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

显示全部楼层 · 2015-5-26 17:09:04

Private Sub Form_Load()
Label1.Caption = "123456789123456789"
Call SetLbl(Label1)End SubSub 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 = vTemplbl.top = 0'(Screen.height - lbl.height)/2lbl.left = (Screen.width - lbl.width)/2End Sub用SetLbl这个子过程=====================================后面加上lbl.top = 0'(Screen.height - lbl.height)/2lbl.left = (Screen.width - lbl.width)/2

千问 · 2015-5-26 17:09:04

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