| 投稿日 | ： 2004/03/05(Fri) 19:17 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： MSHFlexGridのdblclickイベント を感知する |
うまく表示されない、実際のコードをコピーペで投稿しないと解決を
遅らせるだけですよ。
nobu さんのコードで問題ないはずですよ。
何か余計な処理していませんか？
MSFlexGrid1_Click イベントでなにか処理していませんか？
Click イベント が発生してからダブルクリックイベントが発生することに
注意して下さい。
下記の部分を追加して見て下さい。
Option Explicit
Private Declare Function GetDoubleClickTime Lib "user32" () As Long
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Private Sub MSHFlexGrid1_Click()
'ダブルクリックを感知する
Dim st As Long
'マウスのダブルクリックの間隔を考慮(0.18〜0.9)
st = timeGetTime + GetDoubleClickTime
'APIを使用しないなら0.18〜0.9秒の範囲で待機して下さい。
Do While timeGetTime < st
'timeGetTimeがリセットされた場合
If st - timeGetTime > 2000 Then st = 0
DoEvents
Loop
'以下に MSHFlexGrid1_Click イベントの処理
End Sub