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

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

為黑山等地區(qū)用戶提供了全套網(wǎng)頁設(shè)計(jì)制作服務(wù)，及黑山網(wǎng)站建設(shè)行業(yè)解決方案。主營業(yè)務(wù)為成都網(wǎng)站建設(shè)、成都網(wǎng)站設(shè)計(jì)、黑山網(wǎng)站設(shè)計(jì)，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務(wù)。我們深信只要達(dá)到每一位用戶的要求，就會(huì)得到認(rèn)可，從而選擇與我們長期合作。這樣，我們也可以走得更遠(yuǎn)！

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 label 換行

如果要自動(dòng)換行，設(shè)置label的寬度固定即可。如果手動(dòng)換行，可以這樣：Label1.Caption = "這是標(biāo)簽" vbCrlf "內(nèi)容換行"

高分求解vb.net 打印的問題

報(bào)表打印應(yīng)該也能實(shí)現(xiàn)，但是我覺得你這個(gè)用文本打印更簡單，將數(shù)據(jù)輸出到txt文件，結(jié)果用RichTextBox顯示，但是需要簡單的排版，調(diào)用打印機(jī)打印RichTextBox即可的

排版用tab（）、space（）、vbcrlf或PrintLine(1)換行，代碼類似如下樣式

PrintLine(1, TAB(60), "準(zhǔn)考證" )

PrintLine(1)

PrintLine(1, "姓名:" xingming Space(3) "準(zhǔn)考證號：" cel(1) Space(3) cel(2) Space(3) cel(3))

但是TAB()排版比較規(guī)整

打印代碼類似如下：

PrintDialog1.Document = PrintDocument1

PrintDocument1.DocumentName = "準(zhǔn)考證"

PrintDialog1.AllowSomePages = False

PrintDialog1.ShowHelp = False

PrintDialog1.ShowNetwork = False

PrintDialog1.AllowSelection = False

PrintDialog1.AllowPrintToFile = False

MySReader = New StringReader(RichTextBox1.Text)

stringToPrint = MySReader.ReadToEnd()

PageSetupDialog1.Document = PrintDocument1

PageSetupDialog1.PageSettings.Margins.Bottom = 50

PageSetupDialog1.PageSettings.Margins.Top = 50

PageSetupDialog1.PageSettings.Margins.Left = 50

PageSetupDialog1.PageSettings.Margins.Right = 50

If PageSetupDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

PrintDocument1.DefaultPageSettings = PageSetupDialog1.PageSettings '頁面設(shè)置

If PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

If PrintDialog1.PrinterSettings.IsValid = True Then

PrintDocument1.Print()

MsgBox("打印完成！" vbCrLf "Print completed!", , "Print hint(打印提示)")

Else

MsgBox("打印失敗！打印機(jī)不可用。" vbCrLf "Print failed! The printer is not valid.", , "Print hint(打印提示)")

End If

Else

Exit Sub

End If

End If

VB.net中有幾種方法表示 換行 我現(xiàn)在發(fā)現(xiàn)有 Chr(10),還有個(gè) vbCrLf 我想問還有嗎

錯(cuò)了，是vbCrLf Chr(13) + Chr(10)

共兩個(gè)字符。

#10是換行符

#13是回車符

有了回車符，代表了一行的結(jié)束，也方便于讀取文本。

不要只打一個(gè)，vbCrLf簡單方便，也是一個(gè)良好的習(xí)慣。

當(dāng)前名稱：vb.net打印換行 vbs輸出換行
URL鏈接：http://chinadenli.net/article12/hgoegc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供標(biāo)簽優(yōu)化、面包屑導(dǎo)航、App設(shè)計(jì)、服務(wù)器托管、軟件開發(fā)、外貿(mào)網(wǎng)站建設(shè)

廣告

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