如何拦截tab键

Question

如果你的窗口有焦点就Text1.Tab*****=1
无就Hook

Answer 1

不太明白,我原来是这么做的:Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        ' 
    End If
End Sub13是Enter键，那tab键是什么？？

Answer 2

我改了一下，可为什么不管用啊？？Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 9 Then
        msgbox "Tab Key Press!" 
    End If
End Sub没有弹出消息框，焦点还是跑到下一个控件上！

Answer 3

是9，但不能用daguohuai() 所示方法
table一按，焦点自动跑了，不触发keypress事件

Answer 4

将窗体上所有控件的tabstop属性设为false

Answer 5

使用KeyDown事件而不是　KeyPress事件
KeyPress事件只是针对可见字符的Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyTab Then
        MsgBox "Tab Key Down!"
    End If
End Sub