以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [分享]分享一个获取textbox多行文本框内文字行数的代码。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76888)

--  作者:zcw2764
--  发布时间:2015/11/6 23:09:00
--  [分享]分享一个获取textbox多行文本框内文字行数的代码。

e.Form.Controls("TextBox1").BaseControl.GetLineFromCharIndex(e.Form.Controls("TextBox1").text.Length) + 1


--  作者:coch2004
--  发布时间:2015/11/6 23:33:00
--  
谢谢! 收藏了
--  作者:zcw2764
--  发布时间:2015/11/7 9:41:00
--  
自顶一下
--  作者:lsy
--  发布时间:2015/11/7 9:45:00
--  
不错,有用。

If e.Form.Controls("TextBox1").Text > "" Then
    MessageBox.Show(e.Form.Controls("TextBox1").BaseControl.GetLineFromCharIndex(e.Form.Controls("TextBox1").Text.Length) + 1) \'***可见行数
    MessageBox.Show(e.Form.Controls("TextBox1").Lines.Length) \'***回车行数
End If