Breadcrumbs

[MANSQN]

This tutorial will show you how to make a bouncing ball program

1 use a transparent picture for this tutorial

2 Change also Size Mode to Zoom

4 Add 4 timers to the form. Change their interval property to 1

Change also the first timer Enabled property to True

Let's add the code to each timer tick event:

Code: Select all

Timer1.Tick

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

        PictureBox1.Location = New Point(PictureBox1.Location.X + 5, PictureBox1.Location.Y + 5)

        If PictureBox1.Location.X + PictureBox1.Width > Me.Width Then

            Timer1.Stop()

            Timer2.Start()

        End If

 

        If PictureBox1.Location.Y + PictureBox1.Height > Me.Height Then

            Timer1.Stop()

            Timer3.Start()

        End If

    End Sub

Code: Select all

Timer2.Tick

 

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

        PictureBox1.Location = New Point(PictureBox1.Location.X - 5, PictureBox1.Location.Y + 5)

        If PictureBox1.Location.Y + PictureBox1.Height > Me.Height Then

            Timer2.Stop()

            Timer4.Start()

        End If

        If PictureBox1.Location.X < 0 Then

            Timer2.Stop()

            Timer1.Start()

        End If

    End Sub

Code: Select all

Timer3.Tick

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick

        PictureBox1.Location = New Point(PictureBox1.Location.X + 5, PictureBox1.Location.Y - 5)

        If PictureBox1.Location.X + PictureBox1.Width > Me.Width Then

            Timer3.Stop()

            Timer4.Start()

        End If

        If (PictureBox1.Location.Y < 0) Then

            Timer3.Stop()

            Timer1.Start()

        End If

    End Sub

Code: Select all

Timer4.Tick

Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick

        PictureBox1.Location = New Point(PictureBox1.Location.X - 5, PictureBox1.Location.Y - 5)

        If PictureBox1.Location.X < 0 Then

            Timer4.Stop()

            Timer3.Start()

        End If

        If (PictureBox1.Location.Y < 0) Then

            Timer4.Stop()

            Timer2.Start()

        End If

    End Sub