Prikazi cijelu temu 13.07.2012 10:42
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Key preview
Timer interval=800
Key preview=Yes
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Compare Database
  2. Option Explicit
  3. Dim Vrijeme
  4. Dim Znak As Integer
  5.  
  6.  
  7. Private Sub Form_KeyPress(KeyAscii As Integer)
  8. If Vrijeme = 0 Then
  9. Vrijeme = Timer
  10. End If
  11.  
  12. Vrijeme = Timer - Vrijeme
  13. If Chr(KeyAscii) = "A" Or Chr(KeyAscii) = "D" Or Chr(KeyAscii) = "K" Then
  14.     If Vrijeme < 0.5 Then
  15.     Vrijeme = Timer
  16.     Znak = Znak + KeyAscii
  17.     Else
  18.     Znak = 0
  19.     Vrijeme = 0
  20.     End If
  21. Else
  22.     Znak = 0
  23.     Vrijeme = 0
  24. End If
  25. End Sub
  26.  
  27. Private Sub Form_Timer()
  28.  
  29. Select Case Znak
  30.  
  31. Case 97, 65
  32. MsgBox "pritisnuto A"
  33. Case 100, 68
  34. MsgBox "pritisnuto D"
  35. Case 107, 75
  36. MsgBox "pritisnuto K"
  37. Case 197, 133
  38. MsgBox "pritisnuto AD"
  39. Case 204, 140
  40. MsgBox "pritisnuto AK"
  41. Case 207, 143
  42. MsgBox "pritisnuto DK"
  43. Case 304, 208
  44. MsgBox "pritisnuto ADK"
  45. End Select
  46. Znak = 0
  47. Vrijeme = 0
  48. End Sub
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.