[VB6] Hotkeys

So ich wollte mal fragen, wie man in VB Hotkeys einfügt, so nach dem Muster wenn man z.B. F11 drückt, das dann ein Commandbutton aktiviert wird...

Du kannst bei jedem Objekt mehrere Funtkionen nutzen wie z.B.

Click
DblClick
Mousedown
etc.

Und da gibts auch welche wie Keypress, Keydown und Keyup.

Das sieht dann so aus:

Code:

---

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyF11 Then
 
End If
End Sub

---

Und hier ne Liste mit den VBKeys.

http://www.vb-magazin.de/KnowledgeBa....aspx?id=10045

thx für die schnelle antwort

@zig, das is kein hotkey, da muss man ja "auf" die Form klicken
Nen hotkey is ja eher, wenn man das programm auch minimieren kann un trotzdem auf funktionen zugreifen..

Code saehe so aus (systemweit, aber nich nur fuer eigenes Prog):

Code:

---

Private Sub tmrHotkey_Timer()
'## Schoener Hide/Show-Toggle :)

  Dim HotKey1 As Long
 
  HotKey1 = vbKeyF12

  If GetAsyncKeyState(HotKey1) = KeyPressed Then 'Show/HIde
  If Me.Visible = False Then
    Me.Visible = True
    Me.Show
    App.TaskVisible = True
  Else
    Me.Visible = False
    Me.Hide
    App.TaskVisible = False
  End If
End Sub

---

Und noch folgende Properties setzen:
tmrHotkeyTimer.Enabled = True
tmrHotkeyTimer.Interval = 1