Question

如何在VB中实现label中的文字垂直方向居中

最好有简单的方法
可能没明白我的意思，比如：Label1.Caption = "123456789123456789" ，因为其他的原因需要Label1的大小覆盖整个窗体，我需要这样的结果，让
123456789123456789显示在整个窗体的中间，不是一个字符换一行，第一个回答的人能说的详细点么

Answer 1

第一）设置Label控件的Alignment为2

第二）调整字号大小到显示单个字，或者收小Label控件的宽度（Width）

Answer 2

Private Sub Form_Load()
Label1.Caption = "123456789123456789"
Call SetLbl(Label1)
End Sub

Sub SetLbl(lbl As Label)
Dim vTemp$
Label1.AutoSize = True
Label1.Alignment = 2
For i = 1 To Len(lbl.Caption)
vTemp = vTemp & Mid$(lbl.Caption, i, 1) & vbCrLf
Next
lbl.Caption = vTemp
lbl.top = 0'(Screen.height - lbl.height)/2
lbl.left = (Screen.width - lbl.width)/2
End Sub

用SetLbl这个子过程

=====================================
后面加上
lbl.top = 0'(Screen.height - lbl.height)/2
lbl.left = (Screen.width - lbl.width)/2

Answer 3

这还不简单啊，设置@字体就可以了