[VB.NET]简单动画

简单动画

实例说明

在本实例中，我们将制作一个能实现简单动画功能的应用程序。程序运行后，可通过不断改变两个图片实现动画效果。程序运行结果如图77-1所示。

图77-1 运行结果

技术要点

l 切换图片

l Timer控件的使用

实现过程

■ 新建项目

打开Visual Studio.NET，选择"新建项目"，在项目类型窗口中选择"Visual Basic项目"，在模板窗口中选择"Windows应用程序"，在名称域中输入"SimpleDynPic"，然后选择保存路径。单击"确认"。

■ 添加控件

向当前窗体上添加一个Timer控件，一个Button按钮，一个Label控件和两个Picture控件。

■ 设置属性

对窗体上的控件设置属性，详细情况如表77-1所示。

表77-1 窗体及控件的属性值

窗体/控件 属性 值

<script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

Timer1 Enable True

Interval 1000

Form1 Text 简单动画

■ 添加代码

Dim flap As Short

Private Sub butterfly()

' 在两个位图间切换.

If flap = 0 Then

btrfly.Image = btrfly1.Image

flap = 1

Else

btrfly.Image = btrfly2.Image

flap = 0

End If

End Sub

Private Sub Okay_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Okay.Click

infoform.DefInstance.Close()

End Sub

Private Sub Timer2_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer2.Tick

' 可以更改Timer控件的时间间隔属性来决定动画的快慢

butterfly()

End Sub

■ 运行程序

单击菜单"调试|启动"或单击 图标运行程序。

小结

本实例通过使用Timer控件在两个图片之间不断切换以实现动画的效果。