Postup:
Založte nový projekt. Přidejte
modul a v něm deklarujte:
Option Explicit
Public Declare Function SendMessageLong Lib _
"user32" Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
Public Const EM_GETLINECOUNT = &HBA
Na formulář přidejte
TextBox, nastavte mu vlastnost MultiLine na True. Přidejte jmenovku Label1.
Pak, na událost Change TextBoxu:
Sub Text1_Change()
Dim lineCount as Long
On Local Error Resume Next
'Zjištění
počtu řádek
lineCount = SendMessageLong(Text1.hwnd, EM_GETLINECOUNT,
0&, 0&)
Label1 = Format$(lineCount, "## ###")
End Sub
Spusťte projekt a zkuste přidávat
řádky do textboxu.
|