VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 确定 TextBox 有几行
发表评论(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&)