• Home
 · 
• Graphics
 · 
• Returns the current screen resolution w/o API calls

Returns the current screen resolution w/o API calls

Returns the current screen resolution w/o API calls

Rate Returns the current screen resolution w/o API calls

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

' Paste the following into the declarations
' of your form then run project
'
' For more snippets please visit 
' http://www.coderhq.com


Private Sub Form_Load()

MsgBox GetScreenRes

End Sub

Public Function GetScreenRes()
Dim ScreenX As Long
Dim ScreenY As Long

ScreenX = Screen.Width / Screen.TwipsPerPixelX
ScreenY = Screen.Height / Screen.TwipsPerPixelY
 
GetScreenRes = ScreenX & "x" & ScreenY

End Function