我们可以通过计算得到屏幕的中心位置,再让窗体的左上移动到相应的位置就可以了
在主窗体的Form_load()中的最前面加入下列代码:
Dim X As long
Dim Y As Long
''让窗体居中
X = Screen.Width
Y = Screen.Height
X = (X - Me.Width) / 2
Y = (Y - Me.Height) / 2
Me.Move X, Y
一个很简单的居中方法,当然也可以用到API,这里就不多说了。
我们可以通过计算得到屏幕的中心位置,再让窗体的左上移动到相应的位置就可以了
在主窗体的Form_load()中的最前面加入下列代码:
Dim X As long
Dim Y As Long
''让窗体居中
X = Screen.Width
Y = Screen.Height
X = (X - Me.Width) / 2
Y = (Y - Me.Height) / 2
Me.Move X, Y
一个很简单的居中方法,当然也可以用到API,这里就不多说了。