如何得知TextBox共有多少行?

Private Sub Command1_Click()
Dim i As Integer
Dim a() As String
a = Split(Text1.Text, vbCrLf)
i = UBound(a)
If i < 0 Then i = 0
MsgBox "Text1共有" & i + 1 & "行"
End Sub

上一頁