投稿日 | : 2003/04/04(Fri) 00:41 |
投稿者 | : Starfish |
Eメール | : |
URL | : |
タイトル | : Re^3: コマンドボタンでダブルクリック |
こんばんは。
lngSt が、Long型なので、小数点以下が4.5捨5.6入?(いちばん近い偶数に丸める)
されています。したがって、ダブルクリックの間隔が、約0〜1秒になってしまい、うまく
ダブルクリックを認識しない時があります。
ついでに、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