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

- Tilted Technology (https://thetfp.com/tfp/tilted-technology/)

- - [VB.NET] Run a timer while a key is depressed (https://thetfp.com/tfp/tilted-technology/70714-vbulletin-net-run-timer-while-key-depressed.html)

[VB.NET] Run a timer while a key is depressed

ok i want to have a timer running while a user has a key depressed and then i want it to stop when the user lets go... havnt gotten to keyboard stuff like this in my class yet... im just messing around with it on my own...

the pseudo code goes like this...

if "w" key is pushed then
timer1.enabled = True
else timer1.enabled = false
endif

I just have no idea how to tell when a user is pushing the key in...

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 :)

yah... im just using VB.NET cuz thats what im being taught in class...

and the code works... for any key being pushed on the keyboard... how can i make it so the timer only runs when only the "w" key is depressed?

Quote:

Originally Posted by JStrider

Code:

  '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

    If e.KeyCode = Keys.W Then

      m_Timer.Enabled = True

    End If

  End Sub