hello
I'm need a way for get monitor resolution ?
thank
Printable View
hello
I'm need a way for get monitor resolution ?
thank
VB Code:
'******************************************************************************* ' SCREENSIZE (SUB) ' ' DESCRIPTION: ' DETERMINE SCREEN SIZE '******************************************************************************* Sub SCREENSIZE() Dim iWidth As Integer Dim iHeight As Integer iWidth = Screen.Width / Screen.TwipsPerPixelX iHeight = Screen.Height / Screen.TwipsPerPixelY RESOLUTION = iWidth & "X" & iHeight ' DO NOT ALLOW ENTRY IF RESOLUTION IS NOT ' AT MAXIMUM If RESOLUTION <> "1024X768" Then MsgBox "To properly display this application, your video display " & _ "must be set to 1024x768. Program CANNOT continue !", _ vbInformation + vbOKOnly, "Video Display problems" mdiMain.Timer1.Enabled = True Exit Sub End If End Sub