[RaggiTech]

كاتب الموضوع : AhmedEssawy

في هذه المرة سوف نعود للاعتماد على API من مكتبة user32 وتحديداً من خلال SendMessageLong ، بالشكل التالي :

كود :

Private 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
Private Const EM_GETLINECOUNT = &HBA
Private Sub Command1_Click()
Dim lineCount As Long
On Local Error Resume Next
lineCount = SendMessageLong(Text1.hwnd, EM_GETLINECOUNT, 0&, 0)
MsgBox Format$(lineCount, "##,###")
End Sub