CONNAÎTRE QUELQUES MESURES DE WINDOWS

Commentaire de chricha le 30/10/2006 07:42:31

c'est cette api:
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