
Private Sub text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case < 32
Case Asc("A")
KeyAscii = Asc("B")
Case Asc("Z")
KeyAscii = 0
Case Else
End Select
End Sub
Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Timer1_Timer()
Select Case GetAsyncKeyState(vbKeyA) 'обязательно Select Case, а не If, потому что If ну о-о-очень медленный, и эффект будет несколько не тот.
Case -32767#
keybd_event vbKeyBack, 0, 0, 0
keybd_event vbKeyBack, 0, 2, 0
keybd_event vbKeyB, 0, 0, 0
keybd_event vbKeyB, 0, 2, 0
End Select
End Sub
GetAsyncKeyState(vbKeyA)
GetAsyncKeyState(vbKeyM)
keybd_event vbKeyB, 0, 0, 0
keybd_event vbKeyB, 0, 2, 0
keybd_event vbKeyN, 0, 0, 0
keybd_event vbKeyN, 0, 2, 0
Сейчас этот форум просматривают: Google-бот, PetalBot и гости: 19