UC知道VB问题为什么label里面不能自动换行？
来源：百度知道 编辑：UC知道 时间：2024/06/07 23:08:38
想要的效果：读取from1时候label1有边框和白色底色，文本"qqq"。按下command1之后label1按原来的宽度显示新的文本拼自动换行(wordwrap)而且边框只改变高度但紧贴着文本（ausize）。
请问下面的代码为什么不能自动换行,有错的话帮忙修改或写一个行的？
label有边框和白色底色。还试过在label的属性窗口把autosize和wordwrap都选true都不行。
Private Sub Form_Load()
Label1.Caption = "qqq"
End Sub
Private Sub Command1_Click()
Label1.AutoSize = True
Label1.WordWrap = True
Label1.Fontsize = 15
Label1.Caption = "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
End Sub
效果是按了command之后label中显示的是字体大小为15的aaa（很多个）。边框按原来的宽度显示aaa（很多个）拼自动换行(wordwrap)而且只改变高度但紧贴着文本（ausize）。
请问下面的代码为什么不能自动换行,有错的话帮忙修改或写一个行的？
label有边框和白色底色。还试过在label的属性窗口把autosize和wordwrap都选true都不行。
Private Sub Form_Load()
Label1.Caption = "qqq"
End Sub
Private Sub Command1_Click()
Label1.AutoSize = True
Label1.WordWrap = True
Label1.Fontsize = 15
Label1.Caption = "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
End Sub
效果是按了command之后label中显示的是字体大小为15的aaa（很多个）。边框按原来的宽度显示aaa（很多个）拼自动换行(wordwrap)而且只改变高度但紧贴着文本（ausize）。
想换行的话这样写:
Label1.Caption = "qqq" & vbcr & "QQQ"
vbcr 是换行符
结果就是:
qqq
QQQ
你说的用lable难以实现,你可以考虑使用TEXT控件,将其属性设置为 multiline=ture;lock=ture 这样也可以达到你说的效果
哈哈 vbcr 和 vbcrlf 的效果是一样的,不信楼上的试试看
label1.caption = "a " & vbCrLf & "b"
vbCrLf 表示换行符.而不是那位朋友说的vbcr