Question

VB如何获取USB鼠标返回的数据

想用VB写一个读取USB鼠标数据的程序，即实时获取USB的左右上下移动信息，按键按下信息，之前大致了解了一下，好像需要用到很多API函数，求高手指点....急等,,,,万分感谢....

Answer 1

GetCursorPos()
用这个API获取鼠标当前位置、 在timer控件中加入获取代码。输出位置，判断移动位置、

追问

你好，我看了一下与鼠标相关的API函数，只有模拟鼠标按下哪个键的API，没有获取鼠标哪个键按下的API？

追答

用全局钩子，或者窗口钩子。钩取消息，如果是WM_ LBUTTONDOWN那么就是鼠标左键按下， WM_RBUTTONDOWN那么就是鼠标右键按下。

追问

你好，我用的GetAsyncKeyState这个API函数检查鼠标左键 Button_Label.Caption = GetAsyncKeyState(vbKeyMButton)，但是无论我检测鼠标左键还是右键返回的值都是-32768，请问是什么原因啊！

追答

参数传递虚拟键码。
1 01 VK_LBUTTON 滑鼠左键
2 02 VK_RBUTTON 滑鼠右键
----------------------------------------------------------------------------'Code----------------------
const VK_LBUTTON=1
const VK_RBUTTON=2
Private Sub Command1_Click()
Dim MyState as Integer
MyState = GetAsyncKeyState(VK_LBUTTON)
if MyState0 then
Button_Label1.Caption="按下的鼠标左键"
else
Button_Label1.Caption="未按下的鼠标左键"
End If
'......
'同理
'.....
End Sub

追问

你好，我想问的是，无论是按下左右键返回值mystate都等于-32768吗？

追答

右键和左键不会是返回值相同的 ，你的参数有问题。