我们可以通过计算得到屏幕的中心位置,再让窗体的左上移动到相应的位置就可以了
在主窗体的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,这里就不多说了。
463