Increcing Numbers...

[Motoxpro]

i am making a program where if you hold down a key the number will get bigger and bigger i tried useing a timer but the numbe increcment is in a diffrent sub

[mikef]

Try using the Key_Press event and each time that event fires, increment your number.

Private Sub Key_Press()

my number = mynumber+1

End Sub

or

Private Sub Key_Press()

Call MyDifferentSubThatContainsMyIncrementCode

End Sub

[Hack]

I don't understand why you couldn't call your sub from the Timer?

[mikef]

yeah... me neither.... if he uses the key_press event at least he can drop the timer control.

[Motoxpro]

well here is what i have now

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 39 Then
Picture2.Left = Picture2.Left + 60
End If
End Sub

but i wanted it like it you kep holding it it wouldbe like + 61, 62, 63 ,64 ect

[Motoxpro]

Originally posted by Hack
I don't understand why you couldn't call your sub from the Timer?

sorry i didnt even no you could call sub...

so would this be right



Option Explicit
Dim speed As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 39 Then
Picture2.Left = Picture2.Left + speed
End If
Call Timer1_Timer
End Sub

Private Sub Timer1_Timer()
speed = 60
speed = speed + 1
End Sub

[Hack]

I used this will a simple mouse down, and moved the picture back and forth (after checking the decrement checkbox) with no problem (and I did use a Timer).

Private Sub Timer1_Timer()
If Check1.Value = 0 Then
    Picture1.Left = Picture1.Left + 60
Else
    Picture1.Left = Picture1.Left - 60
End If
End Sub
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
 
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = False
End Sub

[Motoxpro]

ok but i wanted it to go faster the onger you hold it down

[Hack]

Ok then, instead of hard coding the 60, use a counter that starts with the picture boxe's current .Left position, and have the timer increment the counter as long as the mouse is depressed. Then your code would be Picture1.Left = Picture1.Left + counter

[AttnSue]

Is this for a game or something?