RÉCUPÉRER LA RÉSOLUTION DE WINDOWS SANS API :: SCREENSTATUS

'Le type ScreenStatus

Public Type ScreenStatus
'Dimentions totale de l' écran
ScreenDimentions As String

'La largeur de l' ecran
ScreenX As Long

'La hauteur de l' ecran
ScreenY As Long

'Le nombre de Twips par pixel sur l' écran
ScreenTwips As Long
End Type

Public ScrStatus As ScreenStatus

'La fonction pour calculer les dimentions de l' écran a partir du type
Public Sub GetScreenStatus(ssVar As ScreenStatus)
'La largeur de l' ecran [largeur en Twips / nombre de twips par pixel]
ssVar.ScreenX = Screen.Width / Screen.TwipsPerPixelX

'La hauteur de l' ecran [hauteur en Twips / nombre de twips par pixel]
ssVar.ScreenY = Screen.Height / Screen.TwipsPerPixelY

'les dimentions totale de l' écran
ssVar.ScreenDimentions = ssVar.ScreenX & "*" & ssVar.ScreenY

'Le nombre de Twips par pixel sur l' écran [(Twips par pixel sur la largeur + Twips par pixel
'sur la hauteur) / 2]
ssVar.ScreenTwips = (Screen.TwipsPerPixelX + Screen.TwipsPerPixelY) / 2
End Sub