VisualBasic6 - Jak przypisać akcję do klawisza, np. a?

Witaj !
Jak za pomocą klawisza wykonać polecenie w programie VisualBasic6 .
Nie chodzi mi o menu, tam można przypisać skruty klawiszowe.
Chodzi mi o to jak naduszę np. "a" program wykonuje jakąś czynność.
Gzięki!

Witam.
By program wykonał pewne czynnosci po wciśnięciu danego klawisza musi on wykryć jego wciśniecie. Można to zrobić za pomocą np. takiego kodu :

Cytat:

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 97 Then '97 to kod klawisza a
MsgBox ("Naciśnięto klawisz a.") 'instrukcje
End If
End Sub

Pozdrawiam tomi140

Masz do wyboru:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)


Private Sub Form_KeyPress(KeyAscii As Integer)


Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)


Znajduja sie one w rozwijanym pasku procedur kodu formatki.

KeyCode mozesz okreslac za pomoca stalych:
vbKeyA
vbKeyS
vbKeyEnter
....


Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyA Then
'(kod do wykonania)
End If

End Sub

pozdr.

Taka medoda jest dobra, jeżeli okno programu jest aktywne, a jeśli chcesz wykryć klawisze naciśnięte w Windowsie, to użyj funkcji:

Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Ta funkcja dobra jest do tworzenia keyloggerów lub skrótów klawiszowych działających w całym Windowsie

Witam i bardzo dziękuje za pomoc!!!
Sporo zajmuje się projektowaniem ukladów elektronicznych, bardziej TV
bo jestem technikiem tv i pracuje w TV Ale oczywiście jeśli bedę mógł pomóc to mój e-mail romantv(_at_)promax.media.pl
Jeszcze raz bardzo dziekuje i jeśli to możliwe podaj swój e-mail.
Pozdrawiam.

Dodano po 3 [godziny] 31 [minuty]:

mam jeszcze jedno pytanko

Private Sub Form_KeyPress(KeyAscii As Integer)

keycode = vbKey1
punkt3 = punkt3 + 1
Label1.Caption = punkt3
If punkt3 = 5 Then
punkt3 = -1
end if

keycode = vbKey2
punkt3 = punkt3 - 1
Label1.Caption = punkt3
If punkt3 <= -1 Then
punkt3 = 0
Label1.Caption = 0

End If
End Sub


Potrzebuje by więcej mogło być klawiszy ,ale coś mi nie wychodzi .
Co robie żle ??
Dzieki za pomoc.

Dodano po 7 [minuty]:

Poprawiłem program i jest tak :

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKey1 Then
punkt3 = punkt3 + 1
Label1.Caption = punkt3
ElseIf punkt3 = 5 Then
punkt3 = -1
End If

If KeyCode = vbKey2 Then
punkt3 = punkt3 + 10
Label1.Caption = punkt3
ElseIf punkt3 = 5 Then
punkt3 = -1
End If

If KeyCode = vbKey3 Then
punkt3 = punkt3 + 100
Label1.Caption = punkt3
ElseIf punkt3 = 5 Then
punkt3 = -1
End If
End Sub



Czy jest to poprawnie ??

Jednak okazuje sie ze jest jeszcze jeden problem obralem metode taka:
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 49 Then
punkt3 = punkt3 + 1
Label1.Caption = punkt3
End If
If punkt3 = 6 Then
punkt3 = -1
End If

If KeyAscii = 50 Then
punkt3 = punkt3 - 1
Label1.Caption = punkt3
End If
If punkt3 <= -1 Then
punkt3 = 0
Label1.Caption = 0
End If

If KeyAscii = 51 Then
punkt4 = punkt4 + 1
Label2.Caption = punkt4
End If
If punkt4 = 6 Then
punkt4 = -1
End If

If KeyAscii = 52 Then
punkt4 = punkt4 - 1
Label2.Caption = punkt4
End If
If punkt4 <= -1 Then
punkt4 = 0
Label2.Caption = 0
End If
end sub

programik dziala poprawnie tylko klawisze takie jak F1 do F12 nie dzialaja
cod ich : 112 113 do 123
jeszcze inne klawisze nie dzialaja takie jak Home itp.

Gdzie problem przosze o pomoc.

Mozesz to przerobic do zdarzenia

poniewaz ono obsluguje F-y.