Label 控件不可以水平,上下居中
不过可以用 PictureBox 控件做到
拖动一个 PictureBox 控件到工程,并命名为 picTextShow,把 AutoDraw 设为 True,加上以下代码就可以实现:
Option Explicit Private Sub Form_Load() picTextShow.CurrentX=(picTextShow.ScaleWidth-picTextShow.TextWidth("要显示的文本"))/2 picTextShow.CurrentY=(picTextShow.ScaleHeight-picTextShow.TextHeight("要显示的文本"))
picTextShow.Print "要显示的文本" End Sub
这样文本就可以在图片框中间显示了。
设置Label的TextAlign的属性为MiddleCenter
属性TextAlign
TextAlign=MiddleCenter
AutoSize=false
TextAlign=MiddleCenter