Une méthode utilisant l' objet "Screen", SANS APIs.
J' en ai fait un type de donné pour le rendre simple a utiliser.
Il suffit de mettre ce code dans un module.
Source / Exemple :
'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
Conclusion :
Utilisation:
Il suffit apres de déclarer une variable avec le type de donné ScreenStatus ex:
Dim ScrStatus As ScreenStatus
et d' utiliser la fonction:
GetScreenStatus ScrStatus
Voila
Laissez des commentaires.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.