MZW-Connection Forum
http://forum.mzw-connection.de/

Rechtsklick und STRG prüfen
http://forum.mzw-connection.de/viewtopic.php?f=43&t=217
Seite 1 von 1

Autor:  NeoNTrooper [ Di 28. Jan 2014, 00:51 ]
Betreff des Beitrags:  Rechtsklick und STRG prüfen

Das Abfangen eines Mausklickes zusammen mit einer Prüfung, ob dabei die STRG-Taste gedrückt wurde funktioniert über eine API (Lib "user32").

Tabelle1:
Code:
Option Explicit
 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
 Debug.Print GetAsyncKeyState(17)
 If GetAsyncKeyState(17) <> 0 Then
  Cancel = True
  Call MeinMakro
 End If
End Sub


Modul 1:
Code:
Option Explicit
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
 
Sub MeinMakro()
 MsgBox "Das war ein Rechtsklick plus Strg"
End Sub


Durch Cancel = True wird der nachfolgende Vorgang erstmal abgefangen. Wenn z.B. ein Kontextmenü sich auf Strg etc. Ändern soll muss Cancel rausgenommen werden bzw. auf False stehen.

Werte:
16 - Shift
17 - STRG
18 - Alt

Seite 1 von 1 Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/