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
Const EM_GETLINECOUNT = "&HBA"
lineCount = SendMessageLong(ControlName.hwnd, EM_GETLINECOUNT, 0&, 0&)
备注:将ControlName换成TextBox控件和RichTextBox控件的名称
lineCount就是你想要的行号。
"user32" Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Const EM_GETLINECOUNT = "&HBA"
lineCount = SendMessageLong(ControlName.hwnd, EM_GETLINECOUNT, 0&, 0&)
备注:将ControlName换成TextBox控件和RichTextBox控件的名称
lineCount就是你想要的行号。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货