CONNAÎTRE QUELQUES MESURES DE WINDOWS
cs_dragon
Messages postés
2336
Date d'inscription
samedi 14 juillet 2001
Statut
Membre
Dernière intervention
5 mai 2009
-
11 juin 2004 à 20:30
chricha Messages postés 11 Date d'inscription lundi 2 janvier 2006 Statut Membre Dernière intervention 3 novembre 2006 - 30 oct. 2006 à 07:42
chricha Messages postés 11 Date d'inscription lundi 2 janvier 2006 Statut Membre Dernière intervention 3 novembre 2006 - 30 oct. 2006 à 07:42
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/23615-connaitre-quelques-mesures-de-windows
https://codes-sources.commentcamarche.net/source/23615-connaitre-quelques-mesures-de-windows
30 oct. 2006 à 07:42
Private Declare Function GetSystemMetrics Lib "user32" ( _
ByVal nIndex As Long) As Long
Const SM_CXSCREEN = 0 'Largeur de l'écran.
Const SM_CYSCREEN = 1 'Hauteur de l'écran.
Const SM_CXVSCROLL = 2 'Largeur des barres de défilement verticales.
Const SM_CYHSCROLL = 3 'Hauteur des barres de défilement horizontales.
Const SM_CXBORDER = 5 'Largeur d'une bordure de fenêtre.
Const SM_CYBORDER = 6 'Hauteur d'une bordure de fenêtre.
Const SM_CXICON = 11 'Largeur d'un icône.
Const SM_CYICON = 12 'Hauteur d'un icône.
Const SM_CXCURSOR = 13 ' Largeur du curseur.
Const SM_CYCURSOR = 14 'Hauteur du curseur.
Const SM_CYMENU = 15 'Hauteur d'une barre de menu.
Const SM_MOUSEPRESENT = 19 ' Indique si une souris est présente (renvoie 'Vrai' ou 'Faux').
Const SM_CYVSCROLL = 20 ' Hauteur des flèches dans les barres de défilement verticales.
Const SM_CXHSCROLL = 21 'Largeur des flèches dans les barres de défilement horizontales.
Const SM_SWAPBUTTON = 23 'Indique si les boutons droit et gauche de la souris sont inversés (renvoie 'Vrai' ou 'Faux').
Const SM_CXDOUBLECLK = 36 'temps maximal à ne pas dépasser pour qu'un double-clic soit pris en compte.
Const SM_CMOUSEBUTTONS = 43 ' Indique le nombre de boutons présents sur la souris.(prend en compte les 2 sens de la molette + si on appui dessus)
Dim p As String, g As Long
11 juin 2004 à 20:30
c'est juste un petit conseil comme ça, surtout sans compté que l'engin de recherche, cherche pas dans le .zip, donc une description clair du projet risque d'aider plus de monde