在vb里面,當(dāng)一行的代碼過(guò)長(zhǎng)時(shí)可以將該語(yǔ)句折斷,規(guī)則是,空格+下劃線
成都創(chuàng)新互聯(lián)公司是一家集網(wǎng)站建設(shè),宿州企業(yè)網(wǎng)站建設(shè),宿州品牌網(wǎng)站建設(shè),網(wǎng)站定制,宿州網(wǎng)站建設(shè)報(bào)價(jià),網(wǎng)絡(luò)營(yíng)銷,網(wǎng)絡(luò)優(yōu)化,宿州網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè),幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競(jìng)爭(zhēng)力??沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時(shí)我們時(shí)刻保持專業(yè)、時(shí)尚、前沿,時(shí)刻以成就客戶成長(zhǎng)自我,堅(jiān)持不斷學(xué)習(xí)、思考、沉淀、凈化自己,讓我們?yōu)楦嗟钠髽I(yè)打造出實(shí)用型網(wǎng)站。
例如,aaaabbbb
要在ab中間折斷,
aaaa
_'空格然然加下劃線,再換行,也就是按enter
bbbb
要是想讓自己寫的文字顯示換行,可以在文件中間加ch(13),可實(shí)現(xiàn)此功能。
錯(cuò)了,是vbCrLf Chr(13) + Chr(10)
共兩個(gè)字符。
#10是換行符
#13是回車符
有了回車符,代表了一行的結(jié)束,也方便于讀取文本。
不要只打一個(gè),vbCrLf簡(jiǎn)單方便,也是一個(gè)良好的習(xí)慣。
也不是不可以實(shí)現(xiàn),只不過(guò)復(fù)雜一點(diǎn)而已,具體看下面代碼。不過(guò)在需要換行等情況下的文本顯示,還是建議用RichTextBox開(kāi)啟只讀屬性比較省心、比較合適。
Private?Sub?AutoNextRow()
'獲取ListBox行集合文本
Dim?length?As?Integer?=?(ListBox1.Items.Count?-?1)
Dim?items(length)?As?String?'行文本數(shù)組
For?i?As?Integer?=?0?To?length
items(i)?=?ListBox1.Items(i).ToString
Next
'處理ListBox換行
ListBox1.Items.Clear()?'清空行內(nèi)容
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)?'填充行內(nèi)容
End?Using
End?Sub
首先你的textbox有一個(gè)屬性得設(shè)置成多行、支持回車符才行
其次,換行符我記得直接用\n就行
n個(gè)空格你就寫個(gè)循環(huán)用,每次循環(huán)就加上" "就行。
在要換行的地方斷開(kāi)字符串,用 Environment.NewLine 連接兩個(gè)字符串即可。