树林9000 2007-12-4 09:31
在TextBox中如何得知所有的行数
在TextBox中如何得知所有的行数
作者: cww
呼叫方式
Dim LineCnt as Long
LineCnt = TextBoxLineCnt(Text1)
Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long
Public Const EM_GETLINECOUNT =