Pomoć - OnKeyPress,OnKeyDown,OnKeyUp

[ mustur @ 12.07.2012. 10:23 ] @

Potrebna pomoć.
Kako da izgleda kod koji aktivira neku radnju (msgbox) kada su pritisnute odjednom dve i više tipki na tastaturi (recimo K i A daje jedan rezultat, K,A i D daje drugi rezultat, a posebno K, posebno A i posebno D daju svaki za sebe različite rezultate)
Hvala

[ izonic @ 12.07.2012. 18:19 ] @

Hehe lijep domaci zadatak.
Timer interval=800
Key preview=Yes

Code:
Option Compare Database
Option Explicit
Dim Vrijeme
Dim Znak As Integer

Private Sub Form_KeyPress(KeyAscii As Integer)

If Vrijeme = 0 Then
Vrijeme = Timer
Dim Ime
End If

Vrijeme = Timer - Vrijeme
If KeyAscii = 107 Or KeyAscii = 97 Or KeyAscii = 100 Then
    If Vrijeme < 0.5 Then
    Vrijeme = Timer
    Znak = Znak + KeyAscii
    Else
    Znak = 0
    Vrijeme = 0
    End If
Else
    Znak = 0
    Vrijeme = 0
End If
End Sub

Private Sub Form_Timer()

Select Case Znak

Case 97
MsgBox "pritisnuto A"
Case 100
MsgBox "pritisnuto D"
Case 107
MsgBox "pritisnuto K"
Case 197
MsgBox "pritisnuto AD"
Case 204
MsgBox "pritisnuto AK"
Case 207
MsgBox "pritisnuto DK"
Case 304
MsgBox "pritisnuto ADK"
End Select
Znak = 0
Vrijeme = 0
End Sub

[ SLOJ.1973 @ 12.07.2012. 19:46 ] @

Samo mala ispravka (ako smem naravno,jer izonic je ipak majstor za mene)

Citat:

izonic:

If KeyAscii = 107 Or KeyAscii = 97 Or KeyAscii = 100 Then

ovo je kod za mala slova a,k,d,a za velika treba da stoji:

Code:
If KeyAscii = 75 Or KeyAscii = 65 Or KeyAscii = 68

i zatim

Code:
Private Sub Form_Timer()

Select Case Znak

Case 65
MsgBox "pritisnuto A"
Case 68
MsgBox "pritisnuto D"
Case 75
MsgBox "pritisnuto K"
Case 133
MsgBox "pritisnuto AD"
Case 140
MsgBox "pritisnuto AK"
Case 143
MsgBox "pritisnuto DK"
Case 208
MsgBox "pritisnuto ADK"
End Select
Znak = 0
Vrijeme = 0
End Sub

Pozdrav.

[ izonic @ 12.07.2012. 22:10 ] @

Da da potpuno si u pravu.
Ja sam radio samo za mala slova.
Moze asci pretvoriti u slovo a access ne razlikuje velika i mala.
Ovo je samo ideja ili treba, ako hocemo i velika da prosirimo select case.

[ mustur @ 17.07.2012. 11:55 ] @

Hvala na pomoći.