请问如何使Label的标题内容竖直显示?

Question

似乎是Label的RightToLeft属性确定,但是设计中修改不了,郁闷!
救我啊~

Answer 1

Private Sub Command1_Click()
    Label1.Caption = "测试字体"
End SubPrivate Sub Command2_Click()
    Label1.Caption = "测" & Chr(13) & "试" & Chr(13) & "字" & Chr(13) & "体" & Chr(13)
End Sub是这意思吗？

Answer 2

设计中取消autosize,调整label的宽、高.

Answer 3

Label的RightToLeft属性是靠右边的意思！不是竖直。要使Label的标题竖直显示有4个办法：一是取消autosize，手工调整label的宽、高；二是在每个字的后面加上chr(13) & chr(10)即可；三是每个字作一个标签让其竖立起来；四是用API函数让文本旋转90度，但是必须用文本框控件，因为要用到控件句柄hWnd，而标签控件没有句柄。推荐第四种！

Answer 4

哈哈~ 5楼兄弟思路不错啊!!//我的思路!
设置label 高度= 很高
使用split 把原来label内容转换成一个字符一行的格式
再重新赋值就可以完成你想要的效果了例
材料:1个label
设置:设置为自动调整大小
复制如下代码可以看到效果:
Private Sub Form_Click()
For i = 1 To Len(Label1.Caption)
a = Mid(Label1.Caption, i, 1)
    s = s & a & vbCrLf
Next i
Label1.Caption = s
End Sub
注意! 测试时候只点一下窗体 再点一下 字距就远了 可以稍做限制

Answer 5

我是7楼的! 按照思路做应该是可以的! 但是split 的条件为 空却不能做为条件! 所以采用了另一方式来提取出每一个字符就是使用 mid  这个注意一下!

Answer 6

LABEL1.AUTOSIZE=FALSE
然后把label拉成竖长条