Počet řádků v TextBoxu

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.

Zpět

Autor: The Bozena