Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Option Compare Database Option Explicit Dim Vrijeme Dim Znak As Integer Private Sub Form_KeyPress(KeyAscii As Integer) If Vrijeme = 0 Then Vrijeme = Timer End If Vrijeme = Timer - Vrijeme If Chr(KeyAscii) = "A" Or Chr(KeyAscii) = "D" Or Chr(KeyAscii) = "K" 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, 65 MsgBox "pritisnuto A" Case 100, 68 MsgBox "pritisnuto D" Case 107, 75 MsgBox "pritisnuto K" Case 197, 133 MsgBox "pritisnuto AD" Case 20