如何判断图片单击和双击事件?

作者：绿色风分类：时间：2022-08-17 浏览：135

楼主
kevinchengcw

Q: 如何判断图片单击和双击事件?
A: 可以利用下列代码实现简单的单双击判断,代码如下:

Dim N As Integer '定义公共变量,用于传递数值
Sub test() '将这个宏指定给图片
If N = 0 Then CallPro '当变量值为0时调用CallPro程序,利用OnTime程序延时一秒启动Pro程序,这样一秒内的按键数会被累加,从而判断是单击还是双击
N = N + 1 '累加按键次数
End Sub
Sub CallPro()
Application.OnTime Time + TimeValue("00:00:01"), "Pro" '延时1秒调用Pro程序
End Sub
Sub Pro()
If N > 1 Then '启动程序后判断按键数,大于1为双击,等于1为单击
MsgBox "双击"
Else
MsgBox "单击"
End If
N = 0 '公共变量值归零
End Sub

具体请参考该帖:http://www.exceltip.net/thread-8855-1-1.html

2楼
wnianzhong

学习了,谢谢!

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表