如何捕捉当按下tab键，相应事件被触发.txt

VB技巧问答10000例 VB技巧问答10000例

你 可 以 采 用 下 面 的 办 法 ： 
    Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer 
     
    Private Sub Cmd3_LostFocus() 
     If GetKeyState(vbKeyTab) < 0 Then 
     Cmd1.SetFocus 
     End If 
    End Sub 
    这 里 之 所 以 使 用 GetKeyState， 是 为 了 区 分 到 底 用 户 是 使 用 鼠 标 还 是 使 用 Tab键 切 换 焦 点 。 
<END>