• Home
 · 
• Windows System Services
 · 
• Display the screen resolution in a text box

Display the screen resolution in a text box

Display the screen resolution in a text box

API Declarations


Private Declare Function GetSystemMetrics Lib "User32" (ByVal index As Long) As Long
Dim X As Long, Y As Long



Rate Display the screen resolution in a text box

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

X = GetSystemMetrics(0)
Y = GetSystemMetrics(1) 'getting the resolution
 
Text1.Text = CStr(X) & " X " & CStr(Y) 'print to text box (for example only, you can change it)