Check screen resolution size 1

[munchen]

Is there a way of checking the screen resolution?

I have a form that has a datagrid on it that displays the results of a stored procedure. On form load I want to do the following:

Private Sub Form_Load()
If screen res = 800 x 600 then
datagrid.height = 1000
datagrid.width = 500
else
datagrid.height = 800
datagrid.width = 300
End Sub

I'm sure this can be done. Hope someone can help.

 

[gmmastros]

Screen.Width will tell you how many Twips wide your resolution is set to. Screen.TwipsPerPixelX will tell you how many twips are in a pixel (horizontally), so....

Screen.Width / Screen.TwipsPerPixelX will return the pixel resolution (horizontally).



-George

Strong and bitter words indicate a weak cause. - Fortune cookie wisdom

 

[dilettante]

You might also consider that non-VESA resolutions are becoming more common. Things like WXGA (1200x768 or even 1200x800 or 1366x768) and WUXGA (1920x1200, etc.) are beginning to pop up on desktops, mostly wide-aspect LCDs.

 

[munchen]

gmmastros

thats exactly what i needed. many thanks.