いつもお世話になっております。

コマンドボタンに於いて、ダブルクリックのイベントを
取得したいのですが、方法がわかりません。
コマンドボタンでダブルクリックは無理なのでしょうか？

ご存じの方、ご教授下さい。

> いつもお世話になっております。
>
> コマンドボタンに於いて、ダブルクリックのイベントを
> 取得したいのですが、方法がわかりません。
> コマンドボタンでダブルクリックは無理なのでしょうか？
>
> ご存じの方、ご教授下さい。

　ダブルクリックのイベントがないので、Clickイベント内で、
　ダブルクリックの判定処理をいれてはどうでしょうか？

> 　ダブルクリックのイベントがないので、Clickイベント内で、
> 　ダブルクリックの判定処理をいれてはどうでしょうか？

多分その方法が思い浮かばないのですよね！
もっといい方法があるかも知れませんが、一番単純な方法として

Option Explicit
Private Declare Function GetDoubleClickTime Lib "user32" () As Long
Private nClick As Integer   'マウスクリックのカウント用

Private Sub Command1_Click()
'ダブルクリックを感知する
    Dim sngSt As Single
    nClick = nClick + 1
    If Timer >= 86398 Then
        MsgBox "真夜中にノックしないで下さい。もう一度やりなおしてね！"
        Exit Sub
    End If
    sngSt = Timer + GetDoubleClickTime / 1000
    '場合によっては待機時間を調整して下さい。
    Do While Timer < sngSt
        DoEvents
    Loop
    If nClick = 1 Then
        'シングルクリックイベントの処理
        MsgBox "シングルクリックです。"
    ElseIf nClick >= 2 Then      ' = 2 でもいいかも
        'シングルクリックイベントの処理
        'クリックイベントが発生してからダブルクリックイベントが発生するので
        '必要によってはここにもシングルクリックの処理を記入して下さい。
        MsgBox "シングルクリックです。"
        
        'ダブルクリックイベントの処理
        MsgBox "ダブルクリックです。"
    End If
    nClick = 0
End Sub

皆さん、有難う御座いました。

お陰で解決することができました。

> > 　ダブルクリックのイベントがないので、Clickイベント内で、
> > 　ダブルクリックの判定処理をいれてはどうでしょうか？
>
> 多分その方法が思い浮かばないのですよね！
> もっといい方法があるかも知れませんが、一番単純な方法として
>
> Option Explicit
> Private nClick As Integer
>
> Private Sub Command1_Click()
>     nClick = nClick + 1
>     Dim lngSt As Long
>     lngSt = Timer
>     Do While Timer - lngSt < 0.5
>         DoEvents
>     Loop
>     If nClick = 1 Then
>         Debug.Print nClick
>     ElseIf nClick = 2 Then
>         Debug.Print nClick
>     End If
>     nClick = 0
> End Sub

　ソースを公開するなんてすごい親切ですね！
　あんまり簡単にソ−スを公開すると、その人の為にならないと思います。
　ということでヒントを書いたのですが・・・
　自分で考えるという事をしないといつまでたっても甘えてしまいますからね

> 　あんまり簡単にソ−スを公開すると、その人の為にならないと思います。
> 　ということでヒントを書いたのですが・・・

おっしゃる通りです。
今回の場合、少しヒントが辛かったようなので、つい

> > 　あんまり簡単にソ−スを公開すると、その人の為にならないと思います。
> > 　ということでヒントを書いたのですが・・・
>
> おっしゃる通りです。
> 今回の場合、少しヒントが辛かったようなので、つい

　たしかに辛いような気しますね(笑)
　もうちょっとヒントをあげればよかったかな？って気がします。
　僕もこのＨＰではずいぶん勉強させてもらってますので、
　これからもよろしくお願いします。

このソースで質問があるのですが、

コマンドボタンをダブルクリックしたとき、
１回目のクリックイベントの処理はわかるのですが、
２回目のクリックイベントが発生したのに
下記のロジックを入れることにより、２回目のクリックイベントは
何処に行ってしまうのでしょうか？
>     Dim lngSt As Long
>     lngSt = Timer
>     Do While Timer - lngSt < 0.5
>         DoEvents
>     Loop

普通に考えると、クリックイベントに２回入ってきてるので
２回同じ処理を行うのでは？

本当に、初心者ですいません。

    If nClick = 1 Then
の行にブレイクを入れて実行、ダブルクリックしてみてください。

また、MSDNのDoEventsステートに、DoEventsにより複数回
プロージャが呼ばれる際の処理について書いてありますよ。

わかりました。
DoEventsの動きを勘違いしていました。

有難う御座います。

こういうAPIがあります。参考までに。私は使ったことないです＾＾；
Public Declare Function GetDoubleClickTime Lib "user32" Alias "GetDoubleClickTime" () As Long

OSがダブルクリックを認識する時間を取得（設定APIもあります）できます。

> OSがダブルクリックを認識する時間を取得（設定APIもあります）できます。

私もそのAPIは見ていたのですが、それを使ってどのようにしてシングルクリックと
ダブルクリックを見分けるのでしょうか？

シングルクリック・ダブルクリックの区別については
花ちゃんさんのコードがよいと思いますよ。

紹介したAPIはご存知のようにダブルクリックの認識間隔です。
ダブルクリックの認識はPCの設定毎に異なるでしょうから
こういったAPIがありますよと参考までに紹介させていただきました。

#No.3397のレスの付け方に不適切なところが
#ありましたら申し訳ありませんでした。

> #No.3397のレスの付け方に不適切なところが
> #ありましたら申し訳ありませんでした。

いいえ、私の方が早合点していたようですみませんでした。

こんばんは。

　lngSt が、Long型なので、小数点以下が４．５捨５．６入？（いちばん近い偶数に丸める）
されています。したがって、ダブルクリックの間隔が、約０〜１秒になってしまい、うまく
ダブルクリックを認識しない時があります。
　ついでに、GetDoubleClickTime と、マウスクリックの連打に対応してみました。後、気に
なるのは日替わりの直前にクリックした場合の処理が考慮されていないところですね(^^;

Option Explicit
Dim nClick As Long
Private Declare Function GetDoubleClickTime Lib "user32" () As Long

Private Sub Command1_Click()
    Dim sngSt As Single
    If nClick = 0 Then
        nClick = 1
        sngSt = Timer + GetDoubleClickTime / 1000
        Do While Timer < sngSt
            DoEvents
            If nClick = 0 Then Exit Do
        Loop
    Else
        Debug.Print "DblClick"
    End If
    nClick = 0
End Sub