Question

VB中label控件的文字换行

VB中label控件,怎么使其中的文字换行呀.
我是从数据库中调用表中的一个记录,但长度不知,所以当超过了一定长度时后面的就看不到了，我想让它在一定长度时换行,请高手指教,谢谢!!!

Answer 1

晕，副总裁答案~~`````不如回家~~`````
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下通过！！

Answer 2

我支持副总裁超超说的，可是，有一点小问题，label没有text属性，呵呵，具体的说法是这样的！
label中的文字如果是中文，它可以自动换行，但是如果是数字或者是英文的话，就不会自动换行，所以我觉得保准点的方式是
设计界面后，选中该标签，将AUTOSIZE 属性设置为TRUE，还有一个属性 WORDWRAP属性是文字换行属性也设置为TRUE。
当然标签的大小也要设计适当大

Answer 3

您好
Label控件默认是自动换行的，不要把AutoSize属性设置为True。

如果你的Label不能自动换行，可能是Label.Text属性设置的值有问题 你可以尝试直接把从Table中取出的文本赋给Label.Text，看一下是否能自动换行了

Answer 4

Label控件是按照你给它设置的大小来显示，若设置大一些，那数据默认是自动换行的，一直填满label控件，若字数超过它的大小，超出的部分则不显示。相反则完全显示，你不防实验一下！！！

Answer 5

其实楼主可以用Textbox代替label，将textbox的appearance设为flat，然后border设为0，背景设为按钮颜色，multiline设为true，scrollbar设为vertical就可以了，这样就可以自动换行了。