mouse dowunイベントについて

質問

VB6.0 MouseDowunイベントについて質問です。
ピクチャーボックスをクリックした場合
ピクチャーボックス領域の上半分をクリックしたら
フォーム表示位置を上移動、下半分だったら下移動という処理を行っています。
しかし、現状ではチェックボックスなどのその他コントロールを操作している際に
すこしでもクリック位置がずれると表示位置が移動してしまう誤作動が起こってしまいます。
これを防止するためにクリックではなくダブルクリックで対応したいのですが
マウスダウンイベントでダブルクリックを対応させることは可能ですか？

Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

If Form1.ScaleHeight / 2 - y < 0 Then
Picture2.Top = Form1.ScaleHeight / 2 - y
If Picture2.Top < -VScroll1.Max Then
Picture2.Top = -VScroll1.Max
End If

Else
Picture2.Top = 0
End If
End Sub

回答No.2

noname#22222

ピクチャーボックス領域の上半分をクリックしたらピクチャーボックスのトップをフォームトップにアジャスト。
下半分をクリックしたら、ピクチャーボックスをフォームのボトムにくっつける。

という質問であれば、

Option Explicit

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
　　Const BarWidth = 530
　　Dim isUpper　　　　　As Boolean
　　Dim lngFormHeight　　As Long
　　Dim lngPictureHeight As Long

　　lngFormHeight = Form1.Height
　　lngPictureHeight = Picture1.Height
　　isUpper = Y < (lngPictureHeight / 2)
　　If isUpper Then
　　　　Picture1.Top = 0
　　Else
　　　　Picture1.Top = lngFormHeight - lngPictureHeight - BarWidth
　　End If
End Sub

※質問の解釈が間違っていたらゴミとして無視して下さい。

回答No.1

temtecomai2

KeyDown イベントについての質問の方はどうなったでしょうか？
回答がついていますよ。
http://oshiete1.goo.ne.jp/kotaeru.php3?q=1965642

で、ダブルクリックの処理はダブルクリックのイベントに実装すればいいんじゃないですか？
なぜ無理やり MouseDown イベントを使おうとするのか良くわかりません。
VB 6.0 は何年も触っていないのでダブルクリック イベントが存在するかどうか覚えてませんが。

なければクリック イベントを利用して自力でダブルクリックイベントを実装するとか。
クリック イベントの中で、
以前クリックされた時の時刻と今の時刻を比べ、ある間隔以内であればダブルクリックとみなす。
とか。

というかもっと簡単な方法で解決した方が良いんじゃないでしょうか・・・
問題は「コントロールが多すぎて(または大きくて)フォームからはみ出してしまう」ですよね？
タブ ページ コントロール(名前は自信なし)のようなコントロールでページわけするとか。
またはポップアップする別フォームを使うとか。