Deklaration: Declare Function SetDoubleClickTime Lib "user32.dll" ( _ ByVal wCount As Long) As Long Beschreibung: Parameter:
Rückgabewert: 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 7.344 mal aufgerufen. |
Neu! sevPopUp 2.0 Dynamische Kontextmenüs! Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... Buchempfehlung Tipp des Monats Mai 2024 Hermann Röttger Wochentage eines Datumsbereichs ermitteln Wochentage eines Datumsbereichs ermitteln, optional mit Feiertagsberechnung TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||
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. |