Rubrik: Maus & Tastatur · Maus | VB-Versionen: VB4, VB5, VB6 | 22.03.07 |
Maustasten vertauschen Mit einem einfachen API-Aufruf lassen sich die Tasten der Maus tauschen. | ||
Autor: Hawker | Bewertung: | Views: 13.688 |
ohne Homepage | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Mit einem einfachen API-Aufruf lassen sich die Tasten der Maus vertauschen, d.h. die linke Maustaste übernimmt die Aufgabe der rechten Taste (meist Kontextmenü-Anzeige) und umgekehrt. Gerade Linkshänder tun sich oftmals leichter, wenn die Maustasten-Funktionen vertauscht sind.
Und so geht's:
Option Explicit ' benötigte API-Deklaration Private Declare Function SwapMouseButton Lib "user32" ( _ ByVal bSwap As Long) As Long
Beispiel:
Private Sub Command1_Click() ' Funktion der linken mit rechter Maustaste vertauschen SwapMouseButton 1& End Sub
Private Sub Command2_Click() ' Tauschvorgang wieder rückgängig machen SwapMouseButton 0& End Sub