Inverser les boutons de la souris

0/5 (3 avis)

Snippet vu 7 153 fois - Téléchargée 92 fois

Contenu du snippet

Ce code vous permet d'inverser les boutons de la souris.
Creer 3 command boutons et nommer les respectivement .....Tester, Inverser,Restaurer.
C'est tout..
J'espère ne pas avoir de critique sur ce code

Source / Exemple :


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.
Private Sub Command1_Click()
MsgBox (" Youpi")

End Sub

Private Sub Command2_Click()
Call SwapMouseButton(1)
MsgBox "Boutons inversés"

End Sub

Private Sub Command3_Click()
Call SwapMouseButton(0)
MsgBox "Boutons restaurés"

End Sub

Private Sub Command4_Click()
Unload Me

End Sub

A voir également

Ajouter un commentaire

Commentaires

cs_jmluc
Messages postés
57
Date d'inscription
mercredi 19 décembre 2001
Statut
Membre
Dernière intervention
31 juillet 2003
-
Génial mon gars tu me sauves la mise
jmluc
bob3000
Messages postés
406
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
2 octobre 2004
-
super, ca ma beaucoup aide!

merci
fox94_7
Messages postés
32
Date d'inscription
vendredi 5 novembre 2004
Statut
Membre
Dernière intervention
13 juillet 2007
-
"user32" c'est koi au juste (desoler de mon inorence mai on debute bien un jours) et je vouderais savoir si on doit le changer
merci @+

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.