一个鼠标的问题

[twtyypeuxk]

VB怎么判断鼠标按下的是了左键或右键啊!!

[daisy8675]

button=1是左
button=2是右

• 打赏
• 举报

回复 赞

[goodname008]

常数是
vbLeftButton
vbRightButton

• 打赏
• 举报

回复 赞

[twtyypeuxk]

我不是这个意思!我是想在我的程序外按鼠标左键或右键,然后再在我的程序中显示我按下的是左键还是右键,还有一个问题就是怎么把这个鼠标事件给删除了,让系统不响应呢!

• 打赏
• 举报

回复 赞

[ryuginka]

有API函数的,但是我不记得了,顶

• 打赏
• 举报

回复 赞

[broown]

在VC中有个消息响应函数PreTranslateMessage(MSG* pMsg)它负责响应WM_HOTKEY消息。
在VB中GetAsyncKeyState (API)
但前提条件，这个函数你必须放到Timer1_Timer()里，它可以捕捉你的按键(keycode值)

下面是一个对Ctrl+Alt+S的捕捉
Private Sub Timer1_Timer()
Dim back_ctrl, back_alt, back_S As Long
'定义back_ctrl等变量来接收返回值

back_ctrl = GetAsyncKeyState(17) '“17”为“ctrl”键的keycode值
back_alt = GetAsyncKeyState(18) '“18”为“alt”键的keycode值
back_S = GetAsyncKeyState(83) '“83”为“S”键的keycode值

If back_ctrl < 0 And back_alt < 0 And back_S < 0 Then
'判断ctrl和alt和S键是否同时被按下
Shell "C:\Winnt\system32\NOTEPAD.exe", vbNormalFocus
'用shell函数来运行指定的“记事本”程序
End If
End Sub

• 打赏
• 举报

回复 赞

[twtyypeuxk]

楼上的这位兄弟,你判断的是键盘的事件,我要的是鼠标的事件啊~~

• 打赏
• 举报

回复 赞

[goodname008]

全局钩子，需要写标准DLL，用VC做好一些。

• 打赏
• 举报

回复 赞