Avis Junior Poster

Joined: 07 Oct 2003 Posts: 510 Location: India
|
Posted: Oct 8th, 2003 03:58 AM Post subject: Getting Screen Resolution without API |
|
|
This is a simpler way of getting the screen resolution without using any API.
| Code: | Option Explicit
Private Sub Form_Load()
Dim SX As Long
Dim SY As Long
SX = Screen.Width / Screen.TwipsPerPixelX
SY = Screen.Height / Screen.TwipsPerPixelY
MsgBox "Screen Resolution Is : " & SX & "x" & SY
End Sub |
|
|