Predmet:Re: Key preview
Timer interval=800
Key preview=Yes
PreuzmiIzvorni kôd (Visual Basic):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 204, 140
MsgBox "pritisnuto AK"
Case 207, 143
MsgBox "pritisnuto DK"
Case 304, 208
MsgBox "pritisnuto ADK"
End Select
Znak = 0
Vrijeme = 0
End Sub
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.