Pomoć - OnKeyPress,OnKeyDown,OnKeyUp

Pomoć - OnKeyPress,OnKeyDown,OnKeyUp 12.07.2012. u 11:23 · pre 174 meseca #1

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

Re: Pomoć - OnKeyPress,OnKeyDown,OnKeyUp 12.07.2012. u 19:19 · pre 174 meseca #2

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

Potpis

zxz

Re: Pomoć - OnKeyPress,OnKeyDown,OnKeyUp 12.07.2012. u 20:46 · pre 174 meseca #3

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.

Potpis

Jednog dana...

Re: Pomoć - OnKeyPress,OnKeyDown,OnKeyUp 12.07.2012. u 23:10 · pre 174 meseca #4

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.

Potpis

zxz

Re: Pomoć - OnKeyPress,OnKeyDown,OnKeyUp 17.07.2012. u 12:55 · pre 173 meseca #5

Hvala na pomoći.

Forum kao aplikacija na telefonu

Srodne teme