Question

vb label竖写文字

如提。。。本人看了很多人写的答案。。但弄不出那个效果。。
还请教一下为什么这样写代码。显示的是最后有条，，上面的根本就没显示。。
Private Sub Label1_Click()
Label1.Caption = "技术棵环境的环境的恢复的恢复扩大"
Label1.Caption = "解放打开解放打开解放的可见度"
End Sub

内容是随便写的
上面的答案有一定帮助。。。

主要主要是。。竖着排列文字。。怎么弄？？？别告诉我。让我自己调整字的位置。。

Answer 1

你把label的宽度缩小,一直缩到那些字都竖着,那就行喇.(相当于每个字占一行了)

Answer 2

Private Sub Label1_Click()
Label1.Caption = "技术棵环境的环境的恢复的恢复扩大" & vbCrLf & "解放打开解放打开解放的可见度"

End Sub

----------------------------

Private Sub Label1_Click()
a1="锄禾日当午,"
a2="汗滴禾下土."
a3="谁知盘中餐,"
a4="粒粒皆辛苦."

Label1.Caption =a1 & vbCrLf & a2 & vbCrLf & a3 & vbCrLf & a4

End Sub

Answer 3

改为
Private Sub Label1_Click()
Label1.Caption = "技术棵环境的环境的恢复的恢复扩大" '第一次赋值
Label1.Caption =Label1.Caption & "解放打开解放打开解放的可见度" '第二次赋值（此时会加上原有的值）
End Sub

label只支持单行

Answer 4

写好以后调整一下宽度到适合的数值就行了，不用代码！！

Answer 5

短的的 先 显示~