screen-resolution

[Jan Hx.]

Hi,

I want to use the Form_Load-procedure to do some 'controls-rearanging'
depending on the screenresolution.
How do I find out wich resolution is being used?

Thanx!
Jan Hx.

 

[Tim]

Private Const SM_CXSCREEN = 0
Private Const SM_CYSCREEN = 1

Private Declare Function apiGetSys Lib "user32" _
Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long


Public Function ScreenWidth() As Long
ScreenWidth = apiGetSys(SM_CXSCREEN)
End Function

Public Function ScreenHeight() As Long
ScreenHeight = apiGetSys(SM_CYSCREEN)
End Function

 

[Jan Hx.]

Tnx Tim! It works just fine!

Private Const SM_CXSCREEN = 0
Private Const SM_CYSCREEN = 1

Private Declare Function apiGetSys Lib "user32" _
Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long


Public Function ScreenWidth() As Long
ScreenWidth = apiGetSys(SM_CXSCREEN)
End Function

Public Function ScreenHeight() As Long
ScreenHeight = apiGetSys(SM_CYSCREEN)
End Function