我在公用模块中加入下列代码，却没有实现他的功能？？

Question

设form1的keypreview=truePrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Call EnterToTab(KeyCode)
End SubPublic Sub EnterToTab(Keyasc As Integer)
    If Keyasc = 13 Then
        SendKeys "{TAB}"
    End If
End Sub

Answer 1

在每个控件的KeyPress事件里输入
EnterToTab(Keyascii)

Answer 2

不用在公用模块中也可以
把form.keypriew=true
在form.keypress事件中    If Keyasc = 13 Then
        SendKeys "{TAB}"
    End If
就可以了

Answer 3

我试了，KEY_DOWN事件也可以的
估计应该是TabIndex没设好