How can I make the text move smoother?
Private Sub Timer1_Timer()
If Text1.Top > -15240 Then
Text1.Top = Text1.Top - 200
Else
Text1.Top = 4800
End If
End Sub
The timer interval is set at 300...
Printable View
How can I make the text move smoother?
Private Sub Timer1_Timer()
If Text1.Top > -15240 Then
Text1.Top = Text1.Top - 200
Else
Text1.Top = 4800
End If
End Sub
The timer interval is set at 300...
What do you mean, Smoother?
Make the timer interval smaller, and the move steps smaller.
Set the Timer1.Interval to 150Code:Private Sub Timer1_Timer()
If Text1.Top > -15240 Then
Text1.Top = Text1.Top - 100
Else
Text1.Top = 4800
End If
End Sub
When it moves... it kind of skips... I want it to move smoother like ill use dots for a poor example
Mine does this
.. .. .. .. .. ..
I want it to go smoother
......................
I know that I would have to make it cover more frames (if you can call it that), cause its skipping certain frames... I think I confused you more...
1. YOu could set a lower interval(50) to the timer and smaller value for text1.top to decrease
2. You could use a loop insteadCode:Text1.Top = Text1.Top - 50
Make sure you can exit your loop by putting a boolean variable or expression instead of YouwanttoexitmeCode:Do
Doevents
If Text1.Top > -15240 Then
Text1.Top = Text1.Top - 15
Else
Text1.Top = 4800
End if
Loop until Youwanttoexitme
Yeah , i just did that Kedaman, thanks everyone
This code will make the textbox move down. A subtraction symbol (-) will make it go up.Code:Do Until Text1.Top = 3000
DoEvents
Text1.Top = Text1.Top + 1
Loop
Set the top to anything.
Damn! A lot of people replied while I was testing the code out ;]. Oh well, any kind of code that is submitted and works is useful...whether it be the long way or the short way :p.
Thanks anyways man!