Модератор: Mikle
Public Declare Function QueryPerformanceCounter Lib "kernel32" (lpPerformanceCount As Long) As Long
Public Declare Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As Long) As Long
Public QFreq As Long, Cnt As Long
QueryPerformanceFrequency QFreq
QueryPerformanceCounter Cnt
Private keys(255) As Boolean
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
keys(KeyCode) = True
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
keys(KeyCode) = False
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1