1 réponse
CONNAITRE LA RESOLUTION DE L'ECRAN
RUBRIQUE : Graphique
Article de Nix ( Site Web de Nix) du 15/05/1999
--------------------------------------------------------------------------------
125 source(s) du même auteur cliquez ici pour voir la liste
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
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
RUBRIQUE : Graphique
Article de Nix ( Site Web de Nix) du 15/05/1999
--------------------------------------------------------------------------------
125 source(s) du même auteur cliquez ici pour voir la liste
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
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