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

Soyez le premier à donner votre avis sur cette source.

Vue 5 304 fois - Téléchargée 405 fois

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.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_Nious99
Messages postés
5
Date d'inscription
dimanche 1 août 2004
Statut
Membre
Dernière intervention
16 juillet 2006
-
salut, j'arrive en retard, mais il faut charger quelle bibliothèque pour utiliser ça?
DxuTAleX
Messages postés
19
Date d'inscription
mardi 15 janvier 2002
Statut
Membre
Dernière intervention
22 avril 2002
-
Un twip, c' est un point de l' écran. La norme est de 15. Ca reste fixe selon les résolutions.
celiphane
Messages postés
466
Date d'inscription
samedi 16 février 2002
Statut
Membre
Dernière intervention
20 avril 2007
-
juste pour garder une petite touche de dignité envers la langue française :
(et aussi parce que dans votre vie d'informaticien vous aurez tous a présenter des projets contenant ce mot)

dimenSion, pas dimention... tss
cs_Pekinio
Messages postés
161
Date d'inscription
mercredi 11 avril 2001
Statut
Membre
Dernière intervention
10 mars 2002
-
a au fait un twip, c'est bien un point, nan? ou j'me goure pt etre... en tout cas, c'est fixe, les 15 twips par pixels??? dans toutes les resolutions?
merci de me repondre plize
silarou
Messages postés
19
Date d'inscription
mercredi 9 janvier 2002
Statut
Membre
Dernière intervention
27 novembre 2010
-
Moyen mais deja nien
Silarou

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.