为什么这样不能触发双击事件
我是想自己实现右键双击,
先是在右键点击的时候模拟一次左键点击,这样右键也可以触发双击事件
然后在双击事件的时候通过记录的前两次按键状态判定是右键双击(右键,右键)还是左键双击(左键,左键),
但是还有(右键,左键),(左键,右键)这两种情况,可是发现运行后,后两种按键却根本不会触发双击事件,这是为什么?
Module1
Option ExplicitType Mse_Btn PRE As Byte LAST As ByteEnd Type
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