vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2021
 
zurück
Rubrik: Maus & Tastatur22.03.05
SwapMouseButton-Funktion

Diese Funktion vertauscht die Funktionen der linken und rechten Mausbuttons oder stellt diese wieder her.

Betriebssystem:  Win95, Win98, WinNT 3.1, Win2000, WinMEViews:  9.121 

Deklaration:

Declare Function SwapMouseButton Lib "user32.dll" (ByVal bSwap As Long) As Long

Beschreibung:
Diese Funktion vertauscht die Funktionen der linken und rechten Mausbuttons oder stellt diese wieder her.

Parameter:
bSwapWird hier der Wert "0" übergeben, so wird die Standardeinstellung verwendet (Links = Klick, Rechts = Kontextmenü). DerWert "1" vertauscht die Mausbuttons (Links = Kontextmenü, Rechts = Klick).

Rückgabewert:
Ist die Funktion erfolgreich, so wird der Wert "1" zurückgegeben, andernfalls liefert die Funktion denWert "0".

Beispiel:

Private Declare Function GetDoubleClickTime Lib "user32.dll" () As Long
Private Declare Function SetDoubleClickTime Lib "user32.dll" ( _
  ByVal wCount  As Long) As Long
Private Declare Function SwapMouseButton Lib "user32.dll" ( _
  ByVal bSwap As Long) As Long
 
Dim OldDblKlickTime As Long
' Mauseigenschaften verändern
Private Sub Form_Load()
  Dim Retval As Long
 
  ' Aktuelle Doppelklickgeschwindigkeit ermitteln
  OldDblKlickTime = GetDoubleClickTime()
 
  ' Neue Doppelklickgeschwindigkeit setzen (die Hälfte)
  Retval = SetDoubleClickTime(OldDblKlickTime / 2)
 
  ' Mausbuttons vertauschen
  Retval = SwapMouseButton(1&)
End Sub
' Mauseigenschaften wiederherstellen
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  Dim Retval As Long
 
  ' Alte Doppelklickgeschwindigkeit setzen
  Retval = SetDoubleClickTime(OldDblKlickTime)
 
  ' Mausbuttons auf Originalwert setzen
  Retval = SwapMouseButton(0&)
End Sub

Diese Seite wurde bereits 9.121 mal aufgerufen.

nach obenzurück
 
   

Druckansicht Druckansicht Copyright ©2000-2021 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel