ACC: How to Determine the Current Screen Resolution (95/97)

MORE INFORMATION

1. Create a new module, and type the following Declarations and function:

         '*****************************************************************
         ' DECLARATIONS SECTION
         '*****************************************************************
   
         Option Explicit
   
         Type RECT
             x1 As Long
             y1 As Long
             x2 As Long
             y2 As Long
         End Type
   
         ' NOTE: The following declare statements are case sensitive.
   
         Declare Function GetDesktopWindow Lib "User32" () As Long
         Declare Function GetWindowRect Lib "User32" _
            (ByVal hWnd As Long, rectangle As RECT) As Long
   
         '*****************************************************************
         ' FUNCTION: GetScreenResolution()
         '
         ' PURPOSE:
         '   To determine the current screen size or resolution.
         '
         ' RETURN:
         '   The current screen resolution. Typically one of the following:
         '      640 x 480
         '      800 x 600
         '      1024 x 768
         '
         '*****************************************************************
         Function GetScreenResolution () as String
             Dim R As RECT
             Dim hWnd As Long
             Dim RetVal As Long
             hWnd = GetDesktopWindow()
             RetVal = GetWindowRect(hWnd, R)
             GetScreenResolution = (R.x2 - R.x1) & "x" & (R.y2 - R.y1)
         End Function
   						

2. On the View menu, click Debug window.
3. Type the following line in the Debug window, and then press ENTER:

   ? GetScreenResolution()

   Note that the current screen resolution is displayed in the Debug window. If the current resolution is standard VGA, the following is displayed in the Debug window:
   
   640x480