問題描述:
VB中label控件,怎麽使其中的文字換行呀.
我是從數據庫中調用表中的壹個記錄,但長度不知,所以當超過了壹定長度時後面的就看不到了,我想讓它在壹定長度時換行,請高手指教,謝謝!!!
解析:
暈,副總裁答案~~`````不如回家~~`````
Label是可以換行的,將Label的AutoSize的屬性設置為True,然後將數據庫記錄字符串Str1分割為規定長度,對於Label控件是可以使用Vbcrlf換行符的~~~``
代碼如下:
Str1 = "TryTryString 這是壹個測試數據" 'Str1是數據庫的記錄
Dim BlockStrLen As Integer
BlockStrLen = 2 ’字符塊的長度,這裏設置為2
Label1.Caption = ""
Do While Len(Str1) > BlockStrLen
Label1.Caption = Label1.Caption & Left(Str1, BlockStrLen) & vbCrLf
Str1 = Right(Str1, Len(Str1) - BlockStrLen)
Loop
Label1.Caption = Label1.Caption & Str1
以上程序,在XP+VB6.0下通過!!