一个鼠标的问题

twtyypeuxk 2004-05-08 08:17:53
VB怎么判断鼠标按下的是了左键或右键啊!!
...全文
65 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
goodname008 2004-05-09
  • 打赏
  • 举报
回复
全局钩子,需要写标准DLL,用VC做好一些。
twtyypeuxk 2004-05-09
  • 打赏
  • 举报
回复
楼上的这位兄弟,你判断的是键盘的事件,我要的是鼠标的事件啊~~
broown 2004-05-09
  • 打赏
  • 举报
回复
在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
ryuginka 2004-05-08
  • 打赏
  • 举报
回复
有API函数的,但是我不记得了,顶
twtyypeuxk 2004-05-08
  • 打赏
  • 举报
回复
我不是这个意思!我是想在我的程序外按鼠标左键或右键,然后再在我的程序中显示我按下的是左键还是右键,还有一个问题就是怎么把这个鼠标事件给删除了,让系统不响应呢!
goodname008 2004-05-08
  • 打赏
  • 举报
回复
常数是
vbLeftButton
vbRightButton
daisy8675 2004-05-08
  • 打赏
  • 举报
回复
button=1是左
button=2是右

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧