mouseDown, KeyPress?

[MikeJoel]

I use the Click event and it works like you would expect.
I use the keypress and it will repeat the event as long as the a key is being held down.

I use the mouseDown event and it acts like the click. It fires when the mouse button goes down. But it does not repeat while the button is held down.

How can I make it keep going while the mouse is held down.
I tried just recalling the event and it worked until it crashed with a stack overflow (all I was doing was puting a random number in the caption).

Mike

[dglienna]

Post your code so we can see what you are trying to do.

[RobDog888]

The logic would be to enable a timer that will perform a certain action repetitivly invoked from the mousedown event. Set its interval. Then in the accompaning mouseup event you can disable the timer and it will stop firing.

[MikeJoel]

All I am doing is me.caption=rnd*200
I expected it to keep looping as long as the mouse was down.

I am trying to make a fastforward button

Mike

[dglienna]

This increments a textbox 20 times per second when the button is held down.
You could use the form caption instead.

Option Explicit
 
Dim flag As Boolean
 
Private Sub Form_Load()
  Randomize
End Sub
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Timer1.Interval = 50
  Timer1.Enabled = True
End Sub
 
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Timer1.Enabled = False
End Sub
 
Private Sub Timer1_Timer()
  Text1.Text = Rnd * 200
End Sub

[Al42]

Mike, the reason keypress does and mouse click doesn't is in your bios - the keyboard repeats when keys are held down, the mouse buttons don't. It's just historical - computer keys have repeated almost from the beginning, mouse buttons haven't.