首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

为什么这样不能触发双击事件,该怎么处理

2012-03-12 
为什么这样不能触发双击事件我是想自己实现右键双击,先是在右键点击的时候模拟一次左键点击,这样右键也可

为什么这样不能触发双击事件
我是想自己实现右键双击,
先是在右键点击的时候模拟一次左键点击,这样右键也可以触发双击事件
然后在双击事件的时候通过记录的前两次按键状态判定是右键双击(右键,右键)还是左键双击(左键,左键),
但是还有(右键,左键),(左键,右键)这两种情况,可是发现运行后,后两种按键却根本不会触发双击事件,这是为什么?
Module1

VB code
Option ExplicitType Mse_Btn    PRE As Byte    LAST As ByteEnd Type


Form1
VB code
Option ExplicitDim Mse_Btn As Mse_Btn '用来记录案件状态Dim MyCall As Boolean '指示是不是自己调用的过程Private Sub Form_DblClick()    Debug.Print "Dbl Ciick"End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)    If MyCall = True Then        MyCall = False    ElseIf MyCall = False Then        With Mse_Btn            .LAST = .PRE            .PRE = Button        End With        If Button = vbRightButton Then '是右键就假装左键点一次            MyCall = True            Call Form_MouseDown(vbLeftButton, 0, X, Y)        End If    End IfEnd Sub


[解决办法]
老实说,不明白楼主想表达的意思。
[解决办法]
看了一下,总算明白了楼主的意思。
所谓双击就是连续点击鼠标的同一按钮两次。而非你理解的左右各一下。
[解决办法]
我对楼主的头像很拜服!

热点排行