热键API问题?各位大哥帮帮忙..急..

jackyhyoung 2005-09-08 12:15:12
我用VB写下了如下代码:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Private aa As Boolean
Private Function MyHotKey(vKeyCode) As Boolean
MyHotKey = (GetAsyncKeyState(vKeyCode) < 0)
Print GetAsyncKeyState(vKeyCode)
End Function

Private Sub Timer1_Timer()

If MyHotKey(vbKeyNumpad0) Then
Print 0;
End If
If MyHotKey(vbKeyNumpad1) Then
Print 1;
End If
End Sub

(控制多个键)
原则上是这样的..(后按下者优先,先按下者释放后才有效。
如:按1不放开,则一直有效,这时按下3,虽然1是按下的。,如1想继续有效,
要释放后再按下才行。)

小弟头痛了很久..各位帮帮忙啊?
...全文
62 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
jackyhyoung 2005-09-14
就是做到像key_press这样的效果啊.
回复
supergreenbean 2005-09-08
不懂....
回复
发动态
发帖子
API
创建于2007-09-28

1456

社区成员

VB API
申请成为版主
社区公告
暂无公告