如何添加按钮控件的鼠标双击事件？

Question

如果想让按钮控件在被鼠标双击时做某些工作，那么如何添加按钮控件的鼠标双击事件呢？
按钮控件并没有鼠标双机的事件DblClick呀
谢谢！！！

Answer 1

http://search.csdn.net/Expert/topic/1427/1427284.xml?temp=.4219171

Answer 2

http://search.csdn.net/Expert/topic/496/496432.xml?temp=.3442957

Answer 3

一个按钮，一个TimerDim blnClicked As Boolean
Private Sub Command1_Click()
    If blnClicked = True Then
        MsgBox "按钮被双击了"
        blnClicked = False
    Else
        blnClicked = True
    End If
End SubPrivate Sub Form_Load()
    Timer1.Interval = 500 '设定双击有效间隔时间为半秒钟以内
End SubPrivate Sub Timer1_Timer()
    blnClicked = False
End Sub

Answer 4

用子类处理WM_LBUTTONDBLCLK消息是最标准的方法

Answer 5

稍微修正一下：Dim blnClicked As Boolean
Private Sub Command1_Click()
    If blnClicked = True Then
        MsgBox "按钮被双击了"
        blnClicked = False
        Timer1.Enabled = False
    Else
        blnClicked = True
        Timer1.Enabled = True
    End If
End SubPrivate Sub Form_Load()
    Timer1.Interval = 8000 '设定双击有效间隔时间为0.8秒以内
    Timer1.Enabled = False
End SubPrivate Sub Timer1_Timer()
    blnClicked = False
End Sub

Answer 6

deal the wm_lbuttondbclk event

Answer 7

deal the wm_lbuttondbclk message