[求助]：如何码判断双击？

东逐水悠悠

如何用代码判断鼠标在ＤＷＧ文件上进行了双击？

雪山飞狐(lzh)

文档级事件
Private Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant)
End Sub

东逐水悠悠

最初由 lzh741206 发布
[B]文档级事件
Private Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant)
End Sub [/B]

Public Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant)
  bEnableDoubleClick = False
End Sub

主程序1:

Public Sub DrainagePipeAdd()
   bEnableDoubleClick = False
  
''dan ji
    If bEnableDoubleClick = True Then
           ...
       end if
'''shuang ji
If bEnableDoubleClick = false Then
           ...
       end if
end sub
如果雙击時,由程序進入AcadDocument_BeginDoubleClick,此時如果再單击,進入不到主程序1:DrainagePipeAdd()中的If bEnableDoubleClick = True Then

主程序2:

Public Sub DrainagePipeAdd()
   bEnableDoubleClick = True
''dan ji
    If bEnableDoubleClick = True Then
           ...
       end if
'''shuang ji
If bEnableDoubleClick = false Then
           ...
       end if
end sub
如果主程序按2修正,那麼只要一運行主程序2:不管單击還是雙击都會進入主程序2:中的If bEnableDoubleClick = True Then


是否有更好的方法PAN斷單击還是雙击?

雪山飞狐(lzh)

做单击事件就在AcadDocument_BeginDoubleClick事件里处理，