Connaitre la resolution de l'ecran

Soyez le premier à donner votre avis sur cette source.

Snippet vu 18 104 fois - Téléchargée 103 fois


Contenu du snippet

Comment faire pour connaître la résolution de l'affichage ?

Créez un Formulaire avec un Bouton ( Bouton1 )
Mettez ce code dans le Code de votre Formulaire

Source / Exemple :


Private Sub Bouton1_Click()
    Largeur% = Screen.Width \ Screen.TwipsPerPixelX
    Hauteur% = Screen.Height \ Screen.TwipsPerPixelY
    MsgBox "Résolution de l'écran : " & Chr$(10) & Str$(Largeur%) + " x" + Str$(Hauteur%), vbInformation
End Sub

A voir également

Ajouter un commentaire

Commentaires

Messages postés
2
Date d'inscription
jeudi 14 décembre 2006
Statut
Membre
Dernière intervention
9 mai 2007

merci c'est ce qu'il me faut mais j'ai besoin aussi d'une fonction ou aurtre chause qui me donne le nom de mon ecran.merci d'avance
Messages postés
22
Date d'inscription
dimanche 18 septembre 2005
Statut
Membre
Dernière intervention
7 novembre 2007

pour le source en fait il faut taper :
Largeur% = Screen.Width \ Screen.TwipsPerPixelY
Hauteur% = Screen.Height \ Screen.TwipsPerPixelX
Et normalement largeur et hauteur ont les bonnes valeurs ^^
Messages postés
2
Date d'inscription
mercredi 28 janvier 2004
Statut
Membre
Dernière intervention
4 mars 2004

Merci bcp :-)
Messages postés
406
Date d'inscription
lundi 2 décembre 2002
Statut
Membre
Dernière intervention
25 janvier 2014

impeccable. simple est efficace merci .
merci! c'est simple mais c'est ce qu'il me fallait
Afficher les 6 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.