[VB] Hotkeys

[yuvi2003]

Ciao a tutti!
Mi sono da poco iscritto a questo forum!

Vorrei mettere degli hotkeys nel mio programma, quindi se uno fa CTRL+Q ad es. gli chiude il prog. ALT+H gli fa qlcos altro ecc.
Ho cercato in google codici ma trovo una cosa ke però non riesco a modificare, ke È questa:
nel modulo:

Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Long) As Long
Declare Function DefWindowProc Lib "user32" _
Alias "DefWindowProcA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As Long) As Long
Public Const WM_SETHOTKEY = &H32
Public Const WM_SHOWWINDOW = &H18
Public Const HK_ALT = 1024
Public Const HK_SHIFT = 256
Public Const HK_CONTROL = 512

nel form:

 Private Sub Form_Load()
Dim Success, HotKey
Me.WindowState = vbMinimized
HotKey = HK_CONTROL + Asc("Z")

'To change the hot key, change HK_CONTROL to either HK_ALT
'or HK_SHIFT (declared in the module), and then change the Z
'to whichever character you wish to have as your hot key
    
Success = SendMessage(Me.hwnd, WM_SETHOTKEY, HotKey, 0)

If Success <> 1 Then
MsgBox "You require an alternative hot key", vbOKOnly, _
"Hot Key Error"
End If
Success = DefWindowProc(Me.hwnd, WM_SHOWWINDOW, 0, 0)
End Sub

Nel form (ke all'avvio viene minimizzato) quando si schiaccia CTRL+Z viene mostrato. Io non riesco a fargli fare qlcos altro e nn capisco nemmeno dove sta il codice ke gli dice di mostrarsi!

Spero ke qlcuno mi sa dare una mano!

Grazie mille
yuvi

[s|n3]

usa l'editor di menù di vb... ti crea un menù al quale puoi associare tasti di scelta rapida. mi pare molto più semplice

[Mabi]

Gestisci la pressione dei tasti impostando la KeyPreview del form su true:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 2 And KeyCode = vbKeyQ Then
  End
ElseIf Shift = 4 And KeyCode = vbKeyH Then
  MsgBox "Fare altro...", , "Altro"
End If
End Sub