也不是不可以實(shí)現(xiàn),只不過復(fù)雜一點(diǎn)而已,具體看下面代碼。不過在需要換行等情況下的文本顯示,還是建議用RichTextBox開啟只讀屬性比較省心、比較合適。
成都創(chuàng)新互聯(lián)公司-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性價(jià)比宜良網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫(kù),直接使用。一站式宜良網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設(shè)找我們,業(yè)務(wù)覆蓋宜良地區(qū)。費(fèi)用合理售后完善,十載實(shí)體公司更值得信賴。
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
假設(shè)你要分割的字符串是string1的話
分割代碼就是:
dim s as string=strings.split(string1,vbcrlf)
這樣s就是一個(gè)陣列了。s(0)是第一段內(nèi)容,s(1)是第二段內(nèi)容,以此類推。~~
googles8 的寫法也對(duì)的。不過我的代碼省去了聲明的一行。只用一行就好了。
在要換行的地方斷開字符串,用 Environment.NewLine 連接兩個(gè)字符串即可。
在vb里面,當(dāng)一行的代碼過長(zhǎng)時(shí)可以將該語句折斷,規(guī)則是,空格+下劃線
例如,aaaabbbb
要在ab中間折斷,
aaaa
_'空格然然加下劃線,再換行,也就是按enter
bbbb
要是想讓自己寫的文字顯示換行,可以在文件中間加ch(13),可實(shí)現(xiàn)此功能。
當(dāng)前文章:包含vb.net換行使用的詞條
文章位置:http://www.chinadenli.net/article46/dogcohg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供自適應(yīng)網(wǎng)站、品牌網(wǎng)站制作、網(wǎng)站設(shè)計(jì)、虛擬主機(jī)、服務(wù)器托管、網(wǎng)站排名
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)