~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période. Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes.
~ Rechercher ~
~ Annuaire VB ~
~ Partenaires ~
|
Fonction SwapMouseButton
Declare Function SwapMouseButton Lib "user32" ( _ ByVal bSwap As Long) As Long
Versions : . Windows 95/98 : Oui . Windows NT : A partir de 3.1 . Windows 2000/XP : OuiDescription : Avec cette fonction, vous pouvez inverser le bouton droit et gauche de la souris.
Si bSwap est mis à 1 les boutons sont inversés, s'il est mis à 0 les boutons retournent à leur état normal.
Si les boutons étaient déjà inversés, la fonction retourne 1 sinon 0.
Exemple d'utilisation :
' (Exemple de Alain Quinet - alain.quinet@free.fr)
Private Declare Function SwapMouseButton Lib "user32" ( _
ByVal bSwap As Long) As Long
' Sur une feuille, vous placez trois boutons
' Command1, Command2, Command3.
' Les boutons Command2 et Command3 vous permettront
' d'inverser ou de restaurer les boutons de votre souris.
' Le bouton Command1 vous permettra de tester le
' fonctionnement des boutons Command2 et Command3.
' Dans l'évenement Click de Command1, vous
' tapez le code qui suit :
Private Sub Command1_Click()
MsgBox ("Youpi")
End Sub
' Dans l'évenement Click de Command2, vous
' tapez le code qui suit :
Private Sub Command2_Click()
Call SwapMouseButton(1)
MsgBox "Boutons inversés"
End Sub
' Dans l'évenement Click de Command3, vous
' tapez le code qui suit :
Private Sub Command3_Click()
Call SwapMouseButton(0)
MsgBox "Boutons restaurés"
End Sub
Retour à la liste des API |