让窗体居中

2008-02-23 06:59:48来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

在主窗体的Form_load()中的最前面加入下列代码:
Dim X0 As long
Dim Y0 As Long

'让窗体居中
X0 = Screen.Width
Y0 = Screen.Height
X0 = (X0 - Me.Width) / 2
Y0 = (Y0 - Me.Height) / 2
Me.Move X0, Y0

上一篇: KeyCode常数用法
下一篇: 取得计算机名

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:创建无 Icon 的窗口

下一篇:在VB中异步执行程序