Animating a Picturebox's movement?

[Moritain]

Hello,

 

I�m a sophomore student working towards a CS degree and I�m having problems with VB.net. I�m working on an assignment to create a Vending Machine App. I�ve got the whole thing ironed out but can�t seem to animate the dropping of the can.

 

What I�m trying to do is capture the location of a PictureBox and then make a another PictureBox move down 20 pixels every 100ms. The effect I�m hoping for is a kinda-sorta animation of a can falling into to the bottom of the machine.

 

I�m using this Sub as my pause:

 

Private Sub Wait(ByVal Time As Integer)

 

For X As Integer = 1 To Time

System.Threading.Thread.CurrentThread.Sleep(100)

Application.DoEvents()

Next

End Sub

 

This is the best trial I have had so far after several hours of trying code samples from the net:

 

Private Sub DropTheCan()

picCanDrop.Visible = True

Do While picCanDrop.Location.Y < 360

picCanDrop.Location = New Point(picCanDrop.Location.Y - 20)

Loop

End Sub

 

I get a flicker, albeit, in the wrong location.

 

Any help would be greatly appreciated.

 

Thank You.

[Cags]

I haven't tried your code but after looking at it I'm slightly confused by this line

cCanDrop.Location = New Point(picCanDrop.Location.Y - 20)

 

I'm assuming theres some kind of typo here for 2 reasons. Firstly surely there should be an x and y coordinate specified in the new point. Secondly and perhaps the thing causing you trouble, as you are deducting from the Y value it will actually move upwards (since 0 is the top of the page) and thus will always be less than 360. Obviously that could also be a typing mistake but I thought I'd mention it.

 

You could use the timer object like so to achieve the effect your after...

 

   Public iCount As Int16
   Public iOld As Int16

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       Timer1.Interval = 250
       iOld = Button1.Top
       Timer1.Start()

   End Sub

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

       Button1.Top += 10
       iCount += 1

       If iCount = 10 Then
           Timer1.Stop()
           Button1.Top = iOld
       End If

   End Sub

 

EDIT:- Obviously my example moves a button not picturebox, but thats kinda irrelevant.

[Moritain]

Sorry for the slow reply, its been a crazy this weekend. Thanks a ton, that code put me on the right track and with a few minor changes worked awesomely.

 

Thanks again!