Display size

[Heapy]

Does anyone know how I might go about detecting a user's screen size...

Thx
HWH

 

[ScottE]

The code is a bit ugly, but ut works. You need four API
calls and the function below:

Global Const WM_HORZRES = 8
Global Const WM_VERTRES = 10

Declare Function WM_apiGetDesktopWindow Lib "user32"
Alias "GetDesktopWindow" () As Long
Declare Function WM_apiGetDC Lib "user32" Alias "GetDC"
(ByVal hwnd As Long) As Long
Declare Function WM_apiReleaseDC Lib "user32"
Alias "ReleaseDC" (ByVal hwnd As Long, ByVal hdc As Long)
As Long
Declare Function WM_apiGetDeviceCaps Lib "gdi32"
Alias "GetDeviceCaps" (ByVal hdc As Long, ByVal nIndex As
Long) As Long

Function GetDisplayWidth() As Integer
'* Returns the width of the display/desktop
Dim DisplayHeight As Integer
Dim DisplayWidth As Integer
Dim hDesktopWnd As Long
Dim hDCcaps As Long
Dim iRtn As Integer

hDesktopWnd = WM_apiGetDesktopWindow()
hDCcaps = WM_apiGetDC(hDesktopWnd)
DisplayHeight = WM_apiGetDeviceCaps(hDCcaps, WM_VERTRES)
DisplayWidth = WM_apiGetDeviceCaps(hDCcaps, WM_HORZRES)
iRtn = WM_apiReleaseDC(hDesktopWnd, hDCcaps)

GetDisplayWidth = DisplayWidth
End Function

Hope this helps!