Public Const WM_USER = &H400
Public Const EM_GETLINESTRING = WM_USER + 20 'Funzione Function GetTextLine (X As TextBox, NumeroLinea As Integer) As String Const BLEN = 1028 Dim ret as Long Dim Buffer As String * BLEN Mid(Buffer,1,1) = Chr(BLEN And &HFF) Mid(Buffer,2,1) = Chr(BLEN \ &H100) If Not X.Multiline Then GetTextLine = X.Text Else ret=sendmessage(x.hWnd,EM_GETLINESTRING,NumeroLinea -1,ByVal Buffer) If ret Then GetTextLine = Left$(Buffer,ret) Else GetTextLine = "" End If End If End Function |