[VB6] Hotkeys

[v0id]

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...

[zig81]

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:

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

[v0id]

thx für die schnelle antwort

[413X]

@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):

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