Getting Screen Resolution

Date Added January 1, 1970 | Print | Bookmark

'Getting Screen Resolution

'Code By Kiran Reddy
'Getting Screen Resolution
'You can get screen resolution in two ways
'One is using GetSystemMetrics another is using TwipsPerPixel
'Declaration
Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long
Private Const SM_CXSCREEN = 0
Private Const SM_CYSCREEN = 1

Private Sub Form_Load()

'getting screen resolution with GetSystemMetrics
MsgBox "Current Screen Resolution is " & GetSystemMetrics(SM_CXSCREEN) & " x " & GetSystemMetrics(SM_CYSCREEN)
' Or you can use below

'best way is using Screen.TwipsPerPixel
MsgBox "Current Screen Resolution is " & Screen.Width / Screen.TwipsPerPixelX & " x " & Screen.Height / Screen.TwipsPerPixelY

End Sub

Was this article helpful?

Category: VB General

Last updated on January 1, 1970 with 5201 views

1 User Comments

Markhak

February 14, 2020 09:19 am

Cheapeast Progesterone Store http://viacialisns.com/# - cialis cheapest online prices Buy Dexamethasone Online Buy Cialis Priligy Forum Uk

Getting Screen Resolution

Was this article helpful?

1 User Comments

Leave a Comment