VB让窗体居中

来源:互联网 发布:面板数据的横截面个数 编辑:程序博客网 时间:2024/05/17 23:09

我们可以通过计算得到屏幕的中心位置,再让窗体的左上移动到相应的位置就可以了

在主窗体的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,这里就不多说了。

原创粉丝点击