发表评论(0)作者：, 平台：, 阅读：11482, 日期：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&)