vbnet換行,vbnet換行符

vb.net中listbox內容自動換行如何實現

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

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

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

vb.net 如何識別換行符？

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

VB.NET列表框怎樣換行？

1.把ListBox的MultiSelect的屬性設為2

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

(Added

Attachment)

網站題目：vbnet換行,vbnet換行符
分享鏈接：http://m.kartarina.com/article32/heiepc.html

成都網站建設公司_創新互聯，為您提供定制網站、軟件開發、用戶體驗、網站制作、靜態網站、網站設計

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯