发表评论(0)作者:, 平台:, 阅读:11790, 日期:2000-03-12
确定 TextBox 有几行
声明:
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"
使用:
lineCount=SendMessageLong(Text1.hwnd, EM_GETLINECOUNT, 0&, 0&)
声明:
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"
使用:
lineCount=SendMessageLong(Text1.hwnd, EM_GETLINECOUNT, 0&, 0&)