Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Pomoć - OnKeyPress,OnKeyDown,OnKeyUp

[es] :: Access :: Pomoć - OnKeyPress,OnKeyDown,OnKeyUp

[ Pregleda: 3042 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

mustur
Mustur Gojko
Beograd

Član broj: 32122
Poruke: 48
...148.91.adsl.dyn.beotel.net.



+1 Profil

icon Pomoć - OnKeyPress,OnKeyDown,OnKeyUp12.07.2012. u 10:23 - pre 142 meseci
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
 
Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
*.PPPoE-2989.sa.bih.net.ba.

Sajt: www.icentar.ba


+2 Profil

icon Re: Pomoć - OnKeyPress,OnKeyDown,OnKeyUp12.07.2012. u 18:19 - pre 142 meseci
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


zxz
 
Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.dynamic.isp.telekom.rs.



+41 Profil

icon Re: Pomoć - OnKeyPress,OnKeyDown,OnKeyUp12.07.2012. u 19:46 - pre 142 meseci
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.
Jednog dana...
 
Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
89.146.180.*

Sajt: www.icentar.ba


+2 Profil

icon Re: Pomoć - OnKeyPress,OnKeyDown,OnKeyUp12.07.2012. u 22:10 - pre 142 meseci
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.
zxz
 
Odgovor na temu

mustur
Mustur Gojko
Beograd

Član broj: 32122
Poruke: 48
...148.91.adsl.dyn.beotel.net.



+1 Profil

icon Re: Pomoć - OnKeyPress,OnKeyDown,OnKeyUp17.07.2012. u 11:55 - pre 142 meseci
Hvala na pomoći.
 
Odgovor na temu

[es] :: Access :: Pomoć - OnKeyPress,OnKeyDown,OnKeyUp

[ Pregleda: 3042 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.