社区
VB基础类
帖子详情
请教鼠标事件!
lingyun007
2003-10-16 04:36:08
请问各位,鼠标有没有左键单击和右键单击事件?
...全文
40
11
打赏
收藏
请教鼠标事件!
请问各位,鼠标有没有左键单击和右键单击事件?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
11 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
wx05
2003-10-17
打赏
举报
回复
up
cjlong
2003-10-17
打赏
举报
回复
可以挂钩子,截获鼠标信息
建议看看乡关文章,关于SetWindowsHookEx的
netbooting
2003-10-17
打赏
举报
回复
没有那还判断了有什么用呢,
cjlong
2003-10-17
打赏
举报
回复
这些事件是当按下 ( MouseDown ) 或者释放 ( MouseUp ) 鼠标按钮时发生。
语法
Private Sub Form_MouseDown(button As Integer, shift As Integer, x As Single, y As Single)
Private Sub MDIForm_MouseDown(button As Integer, shift As Integer, x As Single, y As Single)
Private Sub object_MouseDown([index As Integer,]button As Integer, shift As Integer, x As Single, y As Single)
Private Sub Form_MouseUp(button As Integer, shift As Integer, x As Single, y As Single)
Private Sub MDIForm_MouseUp(button As Integer, shift As Integer, x As Single, y As Single)
Private Sub object _MouseUp([index As Integer,]button As Integer, shift As Integer, x As Single, y As Single)
MouseDown 和 MouseUp 事件各种语法包含下列部分:
部分 描述
object 返回一个对象表达式,其值是“应用于”列表中的一个对象。
index 返回一个整数,用来唯一地标识一个在控件数组中的控件。
button 返回一个整数,用来标识该事件的产生是按下 ( MouseDown ) 或者释放 ( MouseUp ) 按钮引起的。button 参数是具有相应于左按钮(位 0),右按钮(位 1),以及中间按钮(位 2)的一个位字段。这些位的值分别等于 1,2,和 4。其中仅有一位被设置,指示出引起该事件的那个按钮。
shift 返回一个整数,在 button 参数指定的按钮被按下或者被释放的情况下,该整数相应于 SHIFT,CTRL,和 ALT 键的状态。某键被按下使得一个二进制位被设置。shift 参数是具有相应于 SHIFT 键(位 0),CTRL 键(位 1),以及 ALT 键(位 2)最少二进制位的一个位字段。这些位的值分别等于 1,2,和 4。shift 参数指示这些键的状态。这些位中可能有一些,全部,或者一个也没有被设置,指示这些键中的一些、全部,或者一个也没有被按下。例如,CTRL 和 ALT 键都被按下,则 shift 的值就是 6。
x, y 返回一个指定鼠标指针当前位置的数。x 和 y 的值所表示的总是通过该对象 ScaleHeight, ScaleWidth, ScaleLeft, 和ScaleTop 属性所建立的坐标系统的方式。
说明
为了在给定的一个鼠标按钮按下或释放时指定将引起的一些操作,应当使用 MouseDown 或者 MouseUp 事件过程。不同于 Click 和 DblClick 事件的是,MouseDown 和 MouseUp 事件能够区分出鼠标的左、右、和中间按钮。也可以为使用 SHIFT, CTRL, 和 ALT 等键盘换挡键编写用于鼠标—键盘组合操作的代码。
下列情况对 Click 和 DblClick 事件都适用:
如果鼠标按钮是当其指针在窗体或控件之上时被按下,则该对象将“捕获”鼠标并接收包括最后 MouseUp 事件在内的全部鼠标事件。这暗示了通过鼠标事件所返回的 x,y 鼠标指针坐标值,可以不总是在接收它们的对象的内部区域之内。
如果鼠标被持续地按下,则第一次按下之后捕获鼠标的对象将接收全部鼠标事件直至所有按钮被释放为止。
如果要测试 button 或 shift 参数,可以使用对象浏览器中的 Visual Basic (VB) 对象库中所列出的常数,用来定义该参数中的各个二进制位:
常数(按钮) 值 描述
vbLeftButton 1 左按钮被按下
vbRightButton 2 右按钮被按下
vbMiddleButton 4 中间按钮被按下
常数(换挡) 值 描述
vbShiftMask 1 SHIFT 键被按下。
vbCtrlMask 2 CTRL 键被按下。
vbAltMask 4 ALT 键被按下。
随后这些常数作为位屏蔽,对于按钮的各种组合,无须计算各个组合的唯一的位字段即可进行测试。
××××××××××××××××××××
为了我的女友,我要做MVP
yangjinok
2003-10-17
打赏
举报
回复
对于没有mouseup和mousedown事件的控件如何判断啊?
easydone
2003-10-16
打赏
举报
回复
MouseDown or MouseUp
demo001
2003-10-16
打赏
举报
回复
楼上诸位已经回答得很清楚了阿!
tianjh
2003-10-16
打赏
举报
回复
up
tianjh
2003-10-16
打赏
举报
回复
可以通过单击事件中的BUTTON参数的状态值确定如果button=1 是左 ,button=2是右具体是那个数字代表哪个键记不清了。自己查一下吧。
射天狼
2003-10-16
打赏
举报
回复
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
MsgBox "点击左键"
ElseIf Button = vbRightButton Then
MsgBox "点击右键"
ElseIf Button = vbMiddleButton Then
MsgBox "点击中间键"
End If
End Sub
strongfisher
2003-10-16
打赏
举报
回复
左键单击和右键单击事件是通过 button 的值来获得的
Private Sub cmdOK_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
End Sub
vb实现图片放大缩小鼠标拖放滚轮缩放
vb 用picturebox实现图片放大缩小鼠标拖放滚轮缩放 这个测试程序满足基本要求,如有更高的要求可61303072qq联系本人 (滚轮是需要按住ctrl键然后按鼠标滚轮就可以了。可以在代码里屏蔽ctrl键的判断)
如何使一个后台运行的程序弹出窗口响应键盘操作
请教
一下大家,如何使一个后台运行的程序弹出窗口响应键盘操作
GPU-Z v0.7.2 汉化版
GPU-Z是一款显卡检测工具,显卡测试工具软件。GPU-Z通吃A卡和N卡,对于交火及混合交火也能很好的识别。...0.36版起追加了悬停提示,对显卡苦手的新人可以把鼠标停在不明白含义的字段上面,不需要再为小问题
请教
别人了。
csdn提问单选框附件
大家好,现在要做个调查问卷,可是那个勾选框做得太烂了,无法做到勾选,本想换一个,但是全篇太多了,效率低下,特来
请教
大牛。 附件中文档,请查看,我特意插入了我想要的单选框放在前面,可以鼠标点击确认勾选,...
不同Jquery版本引发的问题解决
这是最近三个月写得最完美的作品了,用JS实现了一个拖拽排序,效果图如下:一开始进入项目有了这样的拖拽实现想法,一点头绪没有,
请教
师兄说这样实现不可能。当时觉得很遗憾,打算用传统的方式去实现。正构思传统的...
VB基础类
7,763
社区成员
197,609
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章