获得text内的行数

获得text内的行数

方法1 [这个是我自己的方法]
======以vbcrlf为界线分割text的内容获取最大下标+1就能得到总行数=====

代码:
Dim a As Variant
Dim b As Integer
a = Split(Text1, vbCrLf)
b = UBound(a) + 1
MsgBox "一共" & b & "行"

注意: 实验的时候记得把text1设置成多行

方法2
======这个是使用API实现可能比我那个好用点======

代码:
'窗体上一个 commnad 一个multiline=true 的text

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

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

Private Sub Command1_Click()
Dim a As Long
a = TextBoxLineCnt(Text1)
cls
Print a
End Sub