VB判断当前显示分享辨率(实例)

下面是检测显示分辨率方法的源代码：

Option Explicit
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1


Sub Get_System_Metrics()

    Dim X As Long, Y As Long
    Y = GetSystemMetrics(SM_CYSCREEN)
    X = GetSystemMetrics(SM_CXSCREEN)
    MsgBox "您的屏幕分辨率为: " & X & " X " & Y

End Sub


Private Sub Form_Load()
Dim X As Long, Y As Long
    Y = GetSystemMetrics(SM_CYSCREEN)
    X = GetSystemMetrics(SM_CXSCREEN)
    MsgBox "您的屏幕分辨率为: " & X & " X " & Y
End Sub