|
Sie möchten wissen, wie viele Zeilen eine MultiLine-Textbox gerade enthält? Kein Problem: Fragen Sie sie doch einfach! Senden Sie mittels der API-Funktion SendMessage die Nachricht EM_GETLINECOUNT an die TextBox. Die Funktion gibt Ihnen umgehend die Anzahl der Zeilen zurück.
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
Public Function TextBoxLinesCount(Textbox As Textbox) As Long
Const EM_GETLINECOUNT = &HBA
TextBoxLinesCount = _
SendMessage(Textbox.hwnd, EM_GETLINECOUNT, 0, 0)
End Function
Beachten Sie, dass als Mindestwert immer 1 zurückgegeben wird - auch dann, wenn die TextBox leer ist. Bei einer "normalen", einzeiligen TextBox ist die Zeilenanzahl folglich auch immer 1.
|