Retrieve Display-Resolution Information : Screen Resolution « Windows API « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Windows API
3. Screen Resolution

Retrieve Display-Resolution Information

 
Declare Function DisplaySize Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
Public Const SM_CXSCREEN = 0
Public Const SM_CYSCREEN = 1
Function VideoRes() As String
    Dim vidWidth
    Dim vidHeight
    
    vidWidth = DisplaySize(SM_CXSCREEN)
    vidHeight = DisplaySize(SM_CYSCREEN)
    
    Select Case (vidWidth * vidHeight)
        Case 307200
            VideoRes = "640 x 480"
        Case 480000
            VideoRes = "800 x 600"
        Case 786432
            VideoRes = "1024 x 768"
        Case Else
            VideoRes = "Something else"
    End Select
End Function
Sub CheckDisplayRes()
    Dim VideoInfo As String
    Dim Msg1 As String, Msg2 As String, Msg3 As String
    VideoInfo = VideoRes
    Select Case VideoInfo
        Case Is = "640 x 480"
            Debug.Print "640 x 480"
        Case Is = "800 x 600"
            Debug.Print "800 x 600"
        Case Is = "1024 x 768"
            Debug.Print "1024 x 768"
        Case Else
            MsgBox "Else"
    End Select
End Sub

 

Related examples in the same category