函数？？？？？？在线等！！！！

Question

可以用SendKeys "{Tab}"
向应用程序发送Tab键

Answer 1

可以用SendKeys "{Tab}"
向应用程序发送Tab键
以上回答程序就很容易出错
把分给我
Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = 13 And Index < Text1.Count - 1 Then
Text1(Index + 1).SetFocus
End If
End Sub

Answer 2

用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 KEYEVENTF_KEYUP = &H2
Private Const VK_TAB = &H9Public Sub KeyNext(ByRef KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        keybd_event VK_TAB, 0, 0, 0
        keybd_event VK_TAB, 0, KEYEVENTF_KEYUP, 0
        KeyAscii = 0
    End If
    
End Sub
调用：
Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyNext KeyAscii
End Sub