VB 获取Textbox文本框中的行数函数

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
                          (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
                          lParam As Any) As Long
Private Const EM_GETLINECOUNT = &HBA

Private Function TextBoxLineCnt(ctl As TextBox) As Long
    TextBoxLineCnt = SendMessage(ctl.hwnd, EM_GETLINECOUNT, 0, 0)
End Function

摘自：网络整理

---

可能感兴趣的文章推荐：

---

※VB 获取TextBox文本框中的行数函数

※VB快速读取 TextBox 第 N 行的资料

※限制文本框(TextBox)只能输入数字(VB6代码)

※VB 提取TextBox 文本框中指定一行字符串

※VB 小技巧自定义TextBox文本框右键菜单

※VB 获取光标在TextBox、RichTextBox中所在的位置

---

相关函数

文 章 参考2 ：

---

※VB 获取Textbox文本框中的行数函数

※【VB】StrConv函数.※

※VB获取windows各常用目录的函数（模块）

※VB:常用内部函数大全,你会了几个呢?

※VB