[nickelodeon]

hay,

ive got visual basics and i was wondering could sum1 plz tell me how to do an animation?

also if a button is clicked how do i make it go to a new window?




thanks

[Regicide]

What kind of animation? Flash, GIF? If you are using flash, you might need to download a new control. If it's a GIF, you could simply use the IE Controller. In order to make a new winodw appear, you must make another form. To make it show, do something like this:

private sub Command1_Click()
newForm.show
End Sub

-----OR-----

private sub Command1_Click()
newForm.load
End Sub

If you do the second one, in the load sub of the other form, you MUST have it say: "Me.visible = true". It's been awhile since I've used VB, so this might not work. But, good luck.

[nickelodeon]

thanks and also i just need to know how to program timers.

[Mosaic1]

Put a timer on the form. In the properties set its interval and as enabled. 1000 is one second.
In the Timer Event write the code which you want to run.
Here I have the Interval set for 10000
Every 10 seconds the message box will appear.

Private Sub Timer1_Timer()
MsgBox "Timer is set"
End Sub

[nickelodeon]

well thats how to make a msg box cum up but what i want to do is make a line move with a timer. **ive seen it done b4**

[coderitr]

Private Sub Timer1_Timer
Static linepos as Long = 0
Line1.Left = linepos + 1
End Sub

[Mosaic1]

A line doesn't have a left property.

It has four points to be considered.

X1 X2 Y1 Y2
A line has a beginning and end point. Left , right, Top Bottom.

Have a look in help for more on this.

Pretty much like this to move a straight line from left to right starting with a vertical line at the left of the control.

In the timer event:

Line1.X1 = Line1.X1 + 10
Line1.X2 = Line1.X2 + 10


Or to go from top to bottom starting with a horizontal line at the top of a control.

Line1.Y1 = Line1.Y1 + 10
Line1.Y2 = Line1.Y2 + 10


Neither of these is coded to stop or return. This is just a quick example.

[coderitr]

You're absolutely right. Sorry.

[nickelodeon]

hi,

thanks for that it worked great. What i would like to know now is how do i make the line move when a command button is clicked?

thanks

[Mosaic1]

You're welcome.

You would do that by enabling the timer.
To stop it, disable the timer.

timer1.enabled = true

or timer1.enabled = false

[nickelodeon]

lol I have another thing to find out


There are afew more things i need to know to finish off my project.

1. How do i make a line stop moving?

2. I have made a person with lines in vb and what i want to do is at one stage when the persons arms are down, when u click a buttin i want them up.


thanks

[Mosaic1]

I answered. Use the timer. Disable or enable the timer. I take it you have the various lines on timers.

[nickelodeon]

no thats not what i mean.

when i click the button that enables the timer the line doesnt stop moving. I want the line to come to a stop b4 the end of the screen.

[Mosaic1]

Have you tried to figure it out? If this is a school assignment you should make an effort. Next time please post some code.

Vertical line at left of form moving to the right...... This will make it start over from the left again once it reaches the form's right side. If you just want it to stop, add an Exit Sub before the End if

Private Sub Timer1_Timer()

If Line1.X1 = Form1.Width Then
MsgBox "Ouch, that really hurt!"
MsgBox Line1.X1 & " " & Form1.Width
Line1.X1 = 0
Line1.X2 = 0
End If

Line1.X1 = Line1.X1 + 10
Line1.X2 = Line1.X2 + 10

End Sub