イベントの発生について

vb６を利用しています。

コマンドボタン上で　マウスボタンを押し続けていると、その間だけ継続的にイベントが起きるようにはできないのでしょうか？

教えて下さい

No.3 ベストアンサー 回答者： dondon5959 回答日時： 2006/04/24 20:34

Private a As Boolean

Private i As Long

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

a = True
While a = True
DoEvents
i = i + 1
Label1.Caption = i
Wend

End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

a = False

End Sub

Private Sub Form_Load()

i = 0

End Sub


MouseDownとMouseUpを使ったサンプルを作ってみた。
キーとして大事なのは「DoEvents」で一つのイベントで
処理を止めないところ

No.2 回答者： process9 回答日時： 2006/04/24 10:47

オブジェクトに対するイベント駆動（ドリブン）の概念を誤解している

ような気がしますが・・・

何がやりたいため、このような特殊な処理を行いたいのかわからないので
答えづらいのですが、以下の３つが考えられるかな。

１．
MouseDownイベント
MouseUpイベント
DoEventsメソッド
のイベントを使って処理の継続実行させる。

２．独自イベントを追加する。

３．タイマーを使って、タイマーイベントを実行する

のどれかでしょうね。

No.1 回答者： noname#22222 回答日時： 2006/04/24 09:40

マウスボタンを押し続けている間だけ継続的にイベントが起きるようにはできないようです。

しかし、一度クリックし次にクリックするまで継続的にイベントを発生させることは可能です。

・Command1 がクリックされるとタイマーを起動します。
・タイマーイベントでは、0.1秒毎に Text1_CountUP()をコールします。
・Command1 がクリックされるとタイマーをストップします。

これで、継続的に　Text1_CountUP()　がコールされます。

Option Explicit

Dim COMMAND1_ISCLICK As Boolean

Private Sub Command1_Click()
　　COMMAND1_ISCLICK = Not COMMAND1_ISCLICK
　　If COMMAND1_ISCLICK Then
　　　　Me.Text1 = 0
　　　　Me.Timer1.Interval = 100
　　Else
　　　　Me.Timer1.Interval = 0
　　End If
End Sub

Private Sub Timer1_Timer()
　　If COMMAND1_ISCLICK Then
　　　　Text1_CountUp
　　End If
End Sub

Public Sub Text1_CountUp()
　　Me.Text1 = Val(Me.Text1) + 1
End Sub