Hit-Parade .VB Research Center . Compteur
Accueil ~  Code ~  Programmes ~  Api ~  Forum ~  Cours ~  Livres ~  Quiz ~  Annuaire
~ 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 ~
 Rechercher un site :
  

~ 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 : Oui

Description :
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

Visual Basic Research Center - (c) 2000/2002 -  Webmaster : docvb (chez) free (point) fr