VB中label控件的文字换行

Posted 2023-04-14

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下通过！！ 参考技术A 我支持副总裁超超说的，可是，有一点小问题，label没有text属性，呵呵，具体的说法是这样的！
label中的文字如果是中文，它可以自动换行，但是如果是数字或者是英文的话，就不会自动换行，所以我觉得保准点的方式是
设计界面后，选中该标签，将AUTOSIZE 属性设置为TRUE，还有一个属性 WORDWRAP属性是文字换行属性也设置为TRUE。
当然标签的大小也要设计适当大 参考技术B 您好
Label控件默认是自动换行的，不要把AutoSize属性设置为True。

如果你的Label不能自动换行，可能是Label.Text属性设置的值有问题 你可以尝试直接把从Table中取出的文本赋给Label.Text，看一下是否能自动换行了 参考技术C Label控件是按照你给它设置的大小来显示，若设置大一些，那数据默认是自动换行的，一直填满label控件，若字数超过它的大小，超出的部分则不显示。相反则完全显示，你不防实验一下！！！ 参考技术D 其实楼主可以用Textbox代替label，将textbox的appearance设为flat，然后border设为0，背景设为按钮颜色，multiline设为true，scrollbar设为vertical就可以了，这样就可以自动换行了。

在VB中怎么怎么设置label自动换行

Label本身具备换行功能。

（1）在设计时，如果显示内容比较长，调整Label大小，显示的内容随着Label的大小，自动调整并换行，如下图所示

（2）运行时，使用vbCrlf 也可以实现Label换行

Option Explicit

Private Sub Form_Load()
    Label1.BackColor = &H80FFFF
    Label1.WordWrap = False
    Label1.Caption = "第1行" + vbCrLf + "第2行" + vbCrLf + "第3行"
End Sub

参考技术A VB标签LEABEL的换行有两种方式：1、编写代码实现换行：LABEL1.CAPTION = "第一行内容" & vbCrLf & "第二行内容" 'vbCrLf就是一个回车符，实现换行原创： http://hi.baidu.com/netee2、编辑LABEL的属性，实现自动换行：将AutoSize 设置为False,将WordWrap设置为True,,此时在CAPTION中任意输入文字，将实现自动换行 。 参考技术B 忘记告诉你了。。 LABEL控件只能实现单行的。 参考技术C label是可以自动换行的，前提是要设置好label控件的大小，这个是关键。