Tilted Forum Project Discussion Community - View Single Post - [VB.NET] Run a timer while a key is depressed

Boadah2 · 09-27-2004, 11:24 PM

I'm not a big VB.NET guy, I program VB6 by day to earn the bread money, but as far as .NET goes, C# is where I'm at so I'll try to help. I think this'll work.

After your form generated code, you'd want to do something like this:

Code:

  
  'Make yourself a timer that has events.
  Dim WithEvents m_Timer As Timer

  'On your form key down event, enable the timer.
  Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
    m_Timer.Enabled = True
  End Sub

  'On your form key up event, disable the timer.
  Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp
    m_Timer.Enabled = False
  End Sub

  'Timer event.
  Private Sub m_Timer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles m_Timer.Tick

  End Sub

  'Set the timer interval on the form load
  Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
    m_Timer.Interval = 100
  End Sub

Hope this helps