Résolution graphique de l'écran

[Michael DELIQUE]

Code : Tout sélectionner

Private Const SM_CXSCREEN = 0
Private Const SM_CYSCREEN = 1

Declare Function GetSystemMetrics Lib "user32" (Byval nIndex As Long) As Long

' This class provides information about the screen resolution of the
' client machine.
'
' Example:
'  Dim resolution As New ScreenResolution
'  Messagebox resolution.X & " x " & resolution.Y, 64, "Screen resolution"
Public Class ScreenResolution
  Public Property Get X As Long
    X = GetSystemMetrics(SM_CXSCREEN)
  End Property
 
  Public Property Get Y As Long
    Y = GetSystemMetrics(SM_CYSCREEN)
  End Property
End Class