请看下面代码,我想知道为什么当我按下TAB键时会出来3个提示筐模块代码:
Public Declare Function SetWindowsHookEx Lib "user32" Alias _
"SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, _
ByVal hmod As Long, ByVal dwThreadId As Long) As LongPublic Declare Function UnhookWindowsHookEx Lib "user32" _
(ByVal hHook As Long) As Long
Public Declare Function CallNextHookEx Lib "user32" _
(ByVal hHook As Long, ByVal ncode As Long, ByVal _
wParam As Long, lParam As Any) As LongPublic hHook As Long
Public Const WH_KEYBOARD = 2
Public Function MyKBHFunc(ByVal iCode As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
MyKBHFunc = 0 If wParam = vbKeyTab Then
MyKBHFunc = 1
MsgBox "TAB"
End If
Call CallNextHookEx(hHook, iCode, wParam, lParam)
End Function窗口代码:
Private Sub Form_Load()
hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf _
MyKBHFunc, App.hInstance, App.ThreadID)End SubPrivate Sub Form_Unload(Cancel As Integer)
UnhookWindowsHookEx hHook
End Sub
Public Declare Function SetWindowsHookEx Lib "user32" Alias _
"SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, _
ByVal hmod As Long, ByVal dwThreadId As Long) As LongPublic Declare Function UnhookWindowsHookEx Lib "user32" _
(ByVal hHook As Long) As Long
Public Declare Function CallNextHookEx Lib "user32" _
(ByVal hHook As Long, ByVal ncode As Long, ByVal _
wParam As Long, lParam As Any) As LongPublic hHook As Long
Public Const WH_KEYBOARD = 2
Public Function MyKBHFunc(ByVal iCode As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
MyKBHFunc = 0 If wParam = vbKeyTab Then
MyKBHFunc = 1
MsgBox "TAB"
End If
Call CallNextHookEx(hHook, iCode, wParam, lParam)
End Function窗口代码:
Private Sub Form_Load()
hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf _
MyKBHFunc, App.hInstance, App.ThreadID)End SubPrivate Sub Form_Unload(Cancel As Integer)
UnhookWindowsHookEx hHook
End Sub
解决方案 »
- 求救,保存不了图片调整后的效果
- 请大家帮忙
- QQ群 2479339 只谈程序!
- 怎样用水晶报表把生成的报表传真出去
- 如何建立像DOS那样的命令,如:COPY C:\A D:\
- 为什么在VB6.0中用DATE控件去打开用Access2000做的数据库的时候总是出错?十万活急啊
- 怎么保存ACCESS的数据?
- 我想做一个在运行时可以选中调整位置、大小的输入框,和在设计时文本框一样,给点思路
- 做过服装进出口方面的软件者请进
- 急急急急急急急急急急,用vb怎样知道COM口是不是打开着,能不能不用控件,怎样用API函数,高分。
- 求代码:将文本(来自textbox或*.txt)转换为二进制,存入Access2000数据库。
- 我想知道Toolbar左对器,为什么宽度不能调整?
If wParam = vbKeyTab Then
MyKBHFunc = 1
MsgBox "TAB"
End If
else
Call CallNextHookEx(hHook, iCode, wParam, lParam)
end if
Public Function MyKBHFunc(ByVal iCode As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
MyKBHFunc = 0 If wParam = vbKeyTab Then
MyKBHFunc = 1
MsgBox "TAB"
End If
Call CallNextHookEx(hHook, iCode, wParam, lParam)
End Function