让窗体居中
在主窗体的Form_load()中的最前面加入下列代码:
DimX0Aslong
DimY0AsLong
'让窗体居中
X0=Screen.Width
Y0=Screen.Height
X0=(X0-Me.Width)/2
Y0=(Y0-Me.Height)/2
Me.MoveX0,Y0->
DimX0Aslong
DimY0AsLong
'让窗体居中
X0=Screen.Width
Y0=Screen.Height
X0=(X0-Me.Width)/2
Y0=(Y0-Me.Height)/2
Me.MoveX0,Y0->
- 上一篇:设置计算机名称
- 下一篇:有关Tray系统盒的VBAPI函数
精彩图集
精彩文章




