1、Label 控件不可以水平,上下居中
2、不过可以用 PictureBox 控件做到
3、拖动一个 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
这样文本就可以在图片框中间显示了。
在Vb中如text和label控件是没有垂直居中功能的。
或者,在窗体代码中
label1.borderstyle=1 立体边框
label1.alignment=2 居中
--------------------------
塔机配件www.gktjpj.com