Const EM_GETLINE = &HC4
Const EM_LINELENGTH = &HC1
Const EM_LINEINDEX = &HBB
Const EM_GETLINECOUNT = &HBA
 


Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long


Private Sub Command1_Click()

Text2.Text = SendMessage(Text1.hWnd, EM_GETLINECOUNT, 0&, 0&)

End Sub

我不会用API。

Public Function getstr(str1 As String, index As Long) As String
Dim fj() As String
fj = Split(str1, vbCrLf)          '分解成一行一行
If index>0 and index < UBound(fj)+2 Then      '在总行数的范围内
    getstr = fj(index - 1)        '取结果
Else                              '否则返回空
    getstr = ""                  
End If
End Function

Public Function Edit_GetLine(ByVal hWndControl As Long, ByVal nLine As Long) As String
    Dim nRet As Long
    ReDim bTmp(1024) As Byte
    bTmp(1) = 4
    nRet = SendMessage(hWndControl, &HC4, nLine, bTmp(0))
    If nRet Then
        Edit_GetLine = StrConv(Left$(bTmp, InStr(1, bTmp, vbNullChar) - 1), vbUnicode)
        'Edit_GetLine = Left$(bTmp, nRet) 'unicode SendMessageW
    End If
End Function

谢谢