1、打開VB6.0,新建一個(gè)工程,在窗體中添加五個(gè)命令按鈕,caption分別改為“回車”、“換行”、“回車換行”、“換行回車”以及“VBCrlf”。
成都創(chuàng)新互聯(lián)是專業(yè)的廣德網(wǎng)站建設(shè)公司,廣德接單;提供成都做網(wǎng)站、成都網(wǎng)站建設(shè),網(wǎng)頁設(shè)計(jì),網(wǎng)站設(shè)計(jì),建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進(jìn)行廣德網(wǎng)站開發(fā)網(wǎng)頁制作和功能擴(kuò)展;專業(yè)做搜索引擎喜愛的網(wǎng)站,專業(yè)的做網(wǎng)站團(tuán)隊(duì),希望更多企業(yè)前來合作!
添加一個(gè)文本框,將其Text屬性清空,MultiLine屬性設(shè)置為True,Scrollbars屬性設(shè)置為2-Vertical,將窗體Form1的caption屬性改為“回車符和換行符的區(qū)別”,將界面設(shè)置成下圖:
2、雙擊“回車”命令按鈕,進(jìn)入代碼編輯窗口,輸入如下代碼:Text1.Text = 1 Chr(13) 2,如圖:
3、雙擊“換行”命令按鈕,進(jìn)入代碼編輯窗口,輸入如下代碼:Text1.Text = 1 Chr(10) 2,如圖:
4、雙擊“回車換行”命令按鈕,進(jìn)入代碼編輯窗口,輸入如下代碼:Text1.Text = 1 Chr(13) Chr(10) 2,如圖:
5、雙擊“換行回車”命令按鈕,進(jìn)入代碼編輯窗口,輸入如下代碼:Text1.Text = 1 Chr(10) + Chr(13) 2,如圖:
6、雙擊“vbCrlf”命令按鈕,進(jìn)入代碼編輯窗口,輸入如下代碼:Text1.Text = 1 vbCrLf 2,如圖:
7、關(guān)閉代碼窗口,按下F5運(yùn)行程序,依次單擊““回車”、“換行”、“回車換行”、“換行回車”以及“VBCrlf”命令按鈕,在窗體中依次輸出,如圖:
在要換行的地方斷開字符串,用 Environment.NewLine 連接兩個(gè)字符串即可。
1、vb6中用鼠標(biāo)拖放文本框大小。
2、vb6的文本框讓文本自動換行的方法是設(shè)置它的MultiLine屬性為true.
3、vb6全稱全稱為VisualBasic 6.0,是微軟公司推出的可視化編程工具M(jìn)SDN之一,是目前世界上使用最廣泛的程序開發(fā)工具。如果你是一個(gè)對編程一無所知,而又迫切希望掌握一種快捷實(shí)用的編程語言的初學(xué)者,那選擇VB 6.0沒錯(cuò)的。即使考慮到VB程序本身編譯和運(yùn)行效率較低的不足(嘻嘻速度現(xiàn)在不是問題吧),單是它的快捷的開發(fā)速度,簡單易學(xué)的語法,體貼便利的開發(fā)環(huán)境,它仍不失一款優(yōu)秀的編程工具,是初學(xué)者的首選。
在屬性欄里把multiLine選為 ture,就可以實(shí)現(xiàn)自動換行;
MultiLine 屬性(應(yīng)用于TextBox)
返回或設(shè)置一個(gè)值,該值指示 TextBox 控件是否能夠接受和顯示多行文本。在運(yùn)行時(shí)是只讀的。
語法
object.MultiLine
object 所在處代表一個(gè)對象表達(dá)式,其值是“應(yīng)用于”列表中的一個(gè)對象。
設(shè)置值
MultiLine 屬性設(shè)置值有:
設(shè)置值 描述
True 允許多行文本。
False (缺省值)忽略回車符并將數(shù)據(jù)限制在一行內(nèi)。
也不是不可以實(shí)現(xiàn),只不過復(fù)雜一點(diǎn)而已,具體看下面代碼。不過在需要換行等情況下的文本顯示,還是建議用RichTextBox開啟只讀屬性比較省心、比較合適。
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