Récupérer la résolution de windows sans api :: screenstatus

Télécharger le projet
Commenter

Description

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.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (DxuTAleX)