Visual Basic 6 rechtsklick hotkey

[Darkhell]

Moin, Moin!


Bei der Tastatur wärs:

Public Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyUp Then
  'Code für Pfeilhochtaste und blabla....
  End If

If KeyCode = vbKeyEscape Then
  'Code für Escapetaste und blabla....
  End If
  End Sub

Die Jeweiligen definierungen der Tasten gibts unter F2 mit dem Namen KeyCodeConstants.

Wenn man einen Hotkey wie z.B. STRG + F machen möchte, sollte es gehen dass man einfach eine Verschachtelung macht (kanns nicht beschwören, aber wäre logisch...):

Public Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyControl Then
  'GrundCode für STRG
If KeyCode = vbKeyF Then
  'Code für STRG + F
  End If
  End If
  End Sub

Mit Rechter und linker Maustaste gehts so:

Public Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = vbRightButton Then
  'Rechte Maustaste:
'Mit den Variablen X und Y kann man feststellen wo die 
'Maus abgedrückt wurde....
  End If
If Button = vbMiddleButton Then
  'Mittlere Maustaste:
'Mit den Variablen X und Y kann man feststellen wo die 
'Maus abgedrückt wurde....
  End If
If Button = vbLeftButton Then
  'Linke Maustaste:
'Mit den Variablen X und Y kann man feststellen wo die 
'Maus abgedrückt wurde....
  End If
  End Sub

Die Jeweiligen Button-Definitionen findet ihr mit F2 unter MouseButtonConstants.

MouseUp und MouseDown sind fast das gleiche, mit dem unterschied, dass Up "losgelassen" ist, und Down "gedrückt". Das gleiche mit KeyDown bzw. KeyUp.

Bei Key gibts noch KeyAscii der den Ascii für jede Taste verwendet, statt die KeyCodeConstants. Da gibt's aber kein Up oder Down.....

Ich hoffe, hab dir damit jetzt ein bisschen weitergeholfen....