vb.net中l(wèi)istbox內(nèi)容自動換行如何實現(xiàn)

也不是不可以實現(xiàn)，只不過復(fù)雜一點而已，具體看下面代碼。不過在需要換行等情況下的文本顯示，還是建議用RichTextBox開啟只讀屬性比較省心、比較合適。

成都創(chuàng)新互聯(lián)-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性價比龍華網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式龍華網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設(shè)找我們，業(yè)務(wù)覆蓋龍華地區(qū)。費用合理售后完善，十載實體公司更值得信賴。

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

vb.net 如何識別換行符？

Dim MultiString as String‘有許多行的字符串Dim StrArray() as String'字符串類型的一維數(shù)組StrArray=Split(MultiString,VbCrlf)'用換行符分割字符串

VB.NET列表框怎樣換行？

1.把ListBox的MultiSelect的屬性設(shè)為2

2.對滾動條的Scroll事件進行編寫

(Added

Attachment)