类型：转载 责任编辑：asp.net 日期：2007/05/23
热门软件下载：
请问在程序运行时如何获得当前textbox中的行数，谢谢！
网友回答：
参考此帖中我写的计算行高的方法。
http://community.csdn.net/Expert/topic/3449/3449166.xml?temp=.2703821
Option Explicit
Private Sub Command1_Click()
Dim ls_Content() As String
Dim LogCount As Long
Dim i As Long
ls_Content = Split(Text1.Text, vbCrLf)
LogCount = UBound(ls_Content, 1) 得到总行数
For i = 0 To LogCount
Debug.Print ls_Content(i) 分别得到每一行
MsgBox ls_Content(i)
Next i
End Sub