13518219792
在vb里面，當一行的代碼過長時可以將該語句折斷，規則是，空格+下劃線
武清網站建設公司創新互聯,武清網站設計制作，有大型網站制作公司豐富經驗。已為武清1000多家提供企業網站建設服務。企業網站搭建\外貿網站建設要多少錢，請找那個售后服務好的武清做網站的公司定做！
例如，aaaabbbb
要在ab中間折斷，
aaaa
_'空格然然加下劃線，再換行，也就是按enter
bbbb
要是想讓自己寫的文字顯示換行，可以在文件中間加ch(13),可實現此功能。
也不是不可以實現，只不過復雜一點而已，具體看下面代碼。不過在需要換行等情況下的文本顯示，還是建議用RichTextBox開啟只讀屬性比較省心、比較合適。
Private?Sub?AutoNextRow()
'獲取ListBox行集合文本
Dim?length?As?Integer?=?(ListBox1.Items.Count?-?1)
Dim?items(length)?As?String?'行文本數組
For?i?As?Integer?=?0?To?length
items(i)?=?ListBox1.Items(i).ToString
Next
'處理ListBox換行
ListBox1.Items.Clear()?'清空行內容
Using?g?As?Graphics?=?Graphics.FromHwnd(ListBox1.Handle)
Dim?result?As?New?List(Of?Object)
Dim?w?As?Single?=?ListBox1.ClientSize.Width
Dim?sf?As?SizeF,?str?As?StringBuilder
For?Each?s?As?String?In?items
str?=?New?StringBuilder
For?i?As?Integer?=?0?To?(s.Length?-?1)
sf?=?g.MeasureString(str.ToString??s(i),?ListBox1.Font)?
If?sf.Width??w?Then
result.Add(str.ToString)
str?=?New?StringBuilder
End?If
str.Append(s(i))
If?i?=?s.Length?-?1?Then?result.Add(str.ToString)
Next
Next
ListBox1.Items.AddRange(result.ToArray)?'填充行內容
End?Using
End?Sub
1、vb6中用鼠標拖放文本框大小。
2、vb6的文本框讓文本自動換行的方法是設置它的MultiLine屬性為true.
3、vb6全稱全稱為VisualBasic 6.0，是微軟公司推出的可視化編程工具MSDN之一，是目前世界上使用最廣泛的程序開發工具。如果你是一個對編程一無所知，而又迫切希望掌握一種快捷實用的編程語言的初學者，那選擇VB 6.0沒錯的。即使考慮到VB程序本身編譯和運行效率較低的不足(嘻嘻速度現在不是問題吧)，單是它的快捷的開發速度，簡單易學的語法，體貼便利的開發環境，它仍不失一款優秀的編程工具，是初學者的首選。
在屬性欄里把multiLine選為 ture，就可以實現自動換行；
MultiLine 屬性（應用于TextBox）
返回或設置一個值，該值指示 TextBox 控件是否能夠接受和顯示多行文本。在運行時是只讀的。
語法
object.MultiLine
object 所在處代表一個對象表達式，其值是“應用于”列表中的一個對象。
設置值
MultiLine 屬性設置值有：
設置值 描述
True 允許多行文本。
False （缺省值）忽略回車符并將數據限制在一行內。
Label本身具備換行功能。
（1）在設計時，如果顯示內容比較長，調整Label大小，顯示的內容隨著Label的大小，自動調整并換行，如下圖所示
（2）運行時，使用vbCrlf 也可以實現Label換行
Option?Explicit
Private?Sub?Form_Load()
Label1.BackColor?=?H80FFFF
Label1.WordWrap?=?False
Label1.Caption?=?"第1行"?+?vbCrLf?+?"第2行"?+?vbCrLf?+?"第3行"
End?Sub
