How to get screen resolution of the system (in two ways)

Home » System & API » How to get screen resolution of the system (in two ways)

How to get screen resolution of the system (in two ways)

Posted on January 4, 2009

'System & API - How to get screen resolution of the system (in two ways)
'Without Using API:

MsgBox (Screen.Width / Screen.TwipsPerPixelX) & " x " & (Screen.Height / Screen.TwipsPerPixelY)
 
'Using API:

Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Public Const SM_CXSCREEN = 0
Public Const SM_CYSCREEN = 1
 
Private Sub Main()
    MsgBox GetSystemMetrics(SM_CXSCREEN) & "x" & GetSystemMetrics(SM_CYSCREEN)
End Sub