是否可以实现 0 和 1 ，0 和 2 这样类型组合，实现不同的调用？不够再开贴！

Question

如题，
原贴：http://community.csdn.net/Expert/topic/3681/3681936.xml?temp=.640423思路也好。同时感谢这两天帮助过我的各位朋友！

Answer 1

看过搂主的旧贴了，个人认为都显得麻烦或不好调试（回调函数调试很麻烦的），建议使用Timer控件进行扫描判断，这样搂主的两个问题都可以解决了。

Answer 2

在原来的基础上修改一下                Case 11113
                    '这里加个判断
                    'GetAsyncKeyState里面的参数是keycode不是keyascii，所以会有两个值，一个是ASC码，另一个就不是
                     If GetAsyncKeyState(vbKey0) Or GetAsyncKeyState(96) Then
                          debug.print "0,1同时被按下"
                     end if

Answer 3

If GetAsyncKeyState(vbKey0) Or GetAsyncKeyState(96) Then
   debug.print "0,1同时被按下"
 end if
改成 了 “and”

Answer 4

但是有个问题，当按了0，过段时间在按小键盘0 也可以实现debug.print"0,1"

Answer 5

vb 中是否有将键盘改掉的函数？delphi好象有一个

Answer 6

自己找到了个http://dev.csdn.net/article/28/article/33/33819.shtm