Page 1 sur 1
Résolution graphique de l'écran
Publié:
24 Juil 2005 à 11:45par 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