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
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.