为什么键盘会死掉？

Question

private sub keyDown(keyascii as integer)
    if(keyascii==13) then exit sub
end subprivate sub keyUP(keyascii as integer)
    if(keyascii==13) then 
         sendkeys "{TAB}" 
    end if 
end sub

Answer 1

用SendKey的确会这样
用keybd_event就行了
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)Private Const VK_TAB = &H9Public Sub KeyNext(ByRef KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        keybd_event VK_TAB, vbKeyTab, 0, 0
        KeyAscii = 0
    End If
    
End Sub
调用：
Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyNext KeyAscii
End Sub