VB-Homepage Tipp 293

Wechsel der Maustastenbelegung - Alle

Warum auch immer Sie diese Funktion benötigen, schließlich ist es ja sogar eine Systemoption, mit ein wenig Deklaration haben auch Sie die Funktionstasten der Maus ausgetauscht.

Allgemein/Deklarationen
'win32
Private Declare Function SwapMouseButton Lib "User32" (ByVal bSwap As Integer) As Integer

'win16
Private Declare Function SwapMouseButton Lib "User" (ByVal bSwap As Integer) As Integer

Um die Tasten zu vertauschen
SwapMouseButton (True)
um den Originalzustand wieder herzustellen
SwapMouseButton (False)

Tipp-Download

Quelle :

Zurück zur Übersichtsseite