611
社区成员
发帖
与我相关
我的任务
分享~~fire~~响应键盘的点击事件(在线等)
我在程序中引用了一个外部函数，捕捉键盘的点击事件，
subroutine keybd_event(uint bVk,uint bScan,long dwFlags,long dwExtraInfo ) library 'user32.dll'
又自定义了一个用户事件u_keydown 事件ID为pbm_dwnkey
integer VK_TAB = 09
integer VK_SHIFT = 16
messagebox('','') //这个消息框是我为了看u_keydown有没有被触发而写的
if key = keyenter! then
keybd_event(VK_SHIFT,0,0,0) //按下shift
keybd_event(VK_TAB,0,0,0) //按下tab
keybd_event(VK_TAB,0,2,0) //释放tab
keybd_event(VK_SHIFT,0,2,0) //释放shift
end if
可是在运行时却没有得到响应，这是为什么？
Who 能 help me ? 不胜感激 !
...全文
请发表友善的回复…
发表回复
mittee 2003-09-21
- 打赏
- 举报
event id 应为：pbm_keydown
然后写上：if keydown(keyenter!) then
end if
就ok了
然后写上：if keydown(keyenter!) then
end if
就ok了
wantsong 2003-09-17
- 打赏
- 举报
捕捉shift，ctrl，atl可以直接从u_keydown中keyflags参数得到，可以参考pb 帮助。
佣工7001 2003-09-17
- 打赏
- 举报
pbm_dwnkey数据窗口的事件！这是你想要的吗
btlxy 2003-09-17
- 打赏
- 举报
IF KeyDown(Keyenter!) THEN
..........
..........
weier515 2003-09-17
- 打赏
- 举报
什么意思，我不大明白
xingxing 2003-09-17
- 打赏
- 举报
应该是当前对象不对。
