请教VB高手屏幕宽度的问题

来源：百度知道 编辑：UC知道 时间：2024/05/23 18:20:11
我有一个窗体，宽度和高度一定了，我想放在屏幕上，正好放在屏幕的中间，请问如何能知道屏幕的高度和宽度呢？

窗体属性StartUpPosition 设为2

在 VB 6 中，代码是：
Form1.Left = (Screen.Width - Form1.Width) / 2
Form1.Top = Screen.Height - Form1.Height) / 2
第一句是设定窗口的左右位置：屏幕宽度 - 窗口宽度 / 2
第二句是设定窗口的上下位置：屏幕高度 - 窗口高度 / 2
这样就能保证你的窗口在屏幕的正中间。

可是在 VB 2010 中，怎样实现上面同样的功能，本人却不会，请高手不吝赐教

不需要知道屏幕的高度和宽度
更改窗体属性直接就可以做到
窗体的 StartUpPosition 属性改为 2 即可

Me.Top$ = (Screen.Height - Me.Height) / 2
Me.Left$ = (Screen.Width - Me.Width) / 2

Screen.Height屏高
Screen.Width屏宽

Screen.Height/15 屏高（以象素为单位）
Screen.Width/15 屏宽（以象素为单位）