服务器维护网站维护数据维护系统安全配置
专业定制网站企业建站一条龙、软件定制开发、系统集成
稳定虚机备案一条龙，稳定快捷通道
服务理念诚信守诺客户至上专业精神专心贯注

VB 取得文本框中的行数

作者：黑客防线网安VB教程基地来源：黑客防线网安VB教程基地浏览次数：0

黑客防线网安网讯：以下方法将文本框中内容读入字符串数组中。行数即为Ubound(t)+1Dim t() As String, i As Integert = Split(Text1.Text, vbCrLf)For i = 0 To UBound(t)Debug.Print t(i)Next如果只需要行数，...

以下方法将文本框中内容读入字符串数组中。行数即为Ubound(t)+1
Dim t() As String, i As Integer
t = Split(Text1.Text, vbCrLf)
For i = 0 To UBound(t)
Debug.Print t(i)
Next

如果只需要行数，不需要读出，可用以下方法：
*API函数声明
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 = &HBA
注释：在程序中调用
LineCnt = SendMessage(ctl.hwnd, EM_GETLINECOUNT, 0, 0)
注释：LineCnt即为此TextBox的行数。