VB2022 VB2019 VB6 VB Sample Codes About Us

Lesson 30 : Creating a Simple Animation


Animation is always an interesting and exciting part of programming. Although visual basic is not designed to handle advanced animations, you can still create some interesting animated effects if you put  in some hard thinking. There are many ways to create animated effects in VB6, but for a start, we will focus on some easy methods.

The simplest way to create animation is to set the VISIBLE property of a group of images or pictures or texts and labels to true or false by triggering a set of events such as clicking a button.

Let's examine the following example:

Example 30.1 Moving Jet

This is a program that creates the illusion of moving the jet plane in four directions, North, South ,East, West. The runtime interface is shown in Figure 30.1. In order to do this, insert five images of the same picture into the form. Set the visible property of the image in the center to be true while the rest set to false. On start-up, only the image in the center is visible. Next, insert four command buttons into the form and change the labels Move North, Move East, Move West and Move South respectively. Double click on the move north button and key in the following codes:

Sub Command1_click( )
Image1.Visible = False
Image3.Visible = True
Image2.Visible = False
Image4.Visible = False
Image5.Visible = False
End Sub

 

By clicking on the move north button, only image 3 is displayed. This will give an illusion that the jet plane has moved north. Key in similar codes by double clicking other command buttons. You can also insert an addition command button and label it as Reset and key in the following codes:

		
Image1.Visible = True
Image3.Visible = False
Image2.Visible = False
Image4.Visible = False
Image5.Visible = False

Clicking on the reset button will make the image in the center visible again while other images become invisible, this will give the false impression that the jet plane has move back to the original position.

Figure 30.1 Moving Jet

Example 30.2 Issue Commands Using Textbox

This is the same program as previous example but now you issue the commands using a textbox, the code is shown below:

Private Sub Command1_Click()
If Text1.Text = "n" Then
Image1.Visible = False
Image3.Visible = True
Image2.Visible = False
Image4.Visible = False
Image5.Visible = False

ElseIf Text1.Text = "e" Then
Image1.Visible = False
Image4.Visible = True
Image2.Visible = False
Image3.Visible = False
Image5.Visible = False

ElseIf Text1.Text = "w" Then
Image1.Visible = False
Image3.Visible = False
Image2.Visible = False
Image4.Visible = False
Image5.Visible = True

ElseIf Text1.Text = "s" Then
Image1.Visible = False
Image3.Visible = False
Image2.Visible = True
Image4.Visible = False
Image5.Visible = False
End If
End Sub

Another simple way to simulate animation in VB6 is by using the Left and Top properties of an object. Image.Left give the distance of the image in twips from the left border of the screen, and Image.Top give the distance of the image in twips from the top border of the screen, where 1 twip is equivalent to 1/1440 inch. Using a statement such as Image.Left-100 will move the image 100 twips to the left, Image.Left+100 will move the image 100 twip away from the left(or 100 twips to the right), Image.Top-100 will move the image 100 twips to the top and Image.Top+100 will move the image 100 twips away from the top border (or 100 twips down).

Example 30.3

This a program that can move an object up, down. left, and right every time you click on a relevant command button.

Figure 30.2 Moving Object


The Code

Private Sub Command1_Click()
Image1.Top = Image1.Top + 100
End Sub
				
Private Sub Command2_Click()
Image1.Top = Image1.Top - 100
End Sub
				
Private Sub Command3_Click()
Image1.Left = Image1.Left + 100
End Sub
Private Sub Command4_Click()
Image1.Left = Image1.Left - 100
End Sub

Example 30.4 Changing Size of Object

This example lets user magnify and diminish an object by changing the height and width properties of an object. It is quite similar to the previous example. The statements  Image1.Height = Image1.Height + 100  and Image1.Width = Image1.Width + 100 will increase the height and the width of an object by 100 twips each time a user click on the relevant command button. On the other hand, The statements  Image1.Height = Image1.Height - 100  and Image1.Width = Image1.Width -100 will decrease the height and the width of an object by 100 twips each time a user click on the relevant command button

Figure 30.3 Changing Size of Object

The Code

Private Sub Command1_Click()
Image1.Height = Image1.Height + 100
Image1.Width = Image1.Width + 100
End Sub

Private Sub Command2_Click()
Image1.Height = Image1.Height - 100
Image1.Width = Image1.Width - 100

End Sub

You can try to combine both programs above and make an object move and increases or decreases in size each time a user click a command button.



Copyright©2008 Dr.Liew Voon Kiong. All rights reserved |Contact|Privacy Policy