17-10-12, 01:07 AM
كاتب الموضوع : 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