怎样获得当前显示分辨率

Question

我在1024 768下开发的界面在 800 600下不能完全显示 请高手指点

Answer 1

Option ExplicitPrivate Sub Command1_Click()
    Debug.Print Screen.Width / Screen.TwipsPerPixelX, Screen.Height / Screen.TwipsPerPixelY
End Sub

Answer 2

通常是在Form的Resize事件中调整控件的位置。
做的时候要考虑周全，使自己的软件在所有的分辨率下都能正常显示。

Answer 3

Private Sub Form_Load()
    Dim ScrW As Long, ScrH As Long
    ScrW = Screen.Width / Screen.TwipsPerPixelX
    ScrH = Screen.Height / Screen.TwipsPerPixelY
    MsgBox "分辨率：" & ScrW & "×" & ScrH, 64, "提示"
End Sub