旋转的地球

范青山 · 2001年第22期

VB的动画设计是一项很重要的内容，而用不同的图形在计时器的控制下，在一个图片框里交替循环显示（和GIF一样）是动画设计中常用的一种方法，Microsoft的IE界面中有一个动画（在右上角），是一个不停旋转的地球，用VB也能实现。
　　 先画出五幅不同角度的地球图形，存放在一个文件里，如“我的文档”，格式为*.jpg，尽量小一些。然后启动VB6.0，在FORM1上建立6个图片框（或一个图片数组），5个图片框的visible属性都设为FALSE。再放一个计时器，将interval属性值设为500。
　　 程序代码如下：
　　 Dim fp As Integer ＇声明变量
　　 Private Sub form_load（）
　　 fp = 0
　　 Timer1.Interval = 500
　　 Picture1（0）.Picture = LoadPicture（"d:\my documents\a1.bmp"）
　　 Picture1（1）.Picture = LoadPicture（"d:\my documents\a2.bmp"）
　　 Picture1（2）.Picture = LoadPicture（"d:\my documents\a3.bmp"）
　　 Picture1（3）.Picture = LoadPicture（"d:\my documents\a4.bmp"）
　　 Picture1（4）.Picture = LoadPicture（"d:\my documents\a5.bmp"）＇载入图片数组
　　 End Sub
　　 Private Sub timer1_timer
　　 Select Case fp
　　 Case 0
　　 Picture2.Picture = Picture1（0）.Picture
　　 ＇显示第一幅画面，以下以此类推
　　 fp = 1
　　 Case 1:Picture2.Picture = Picture1（1）.Picture
　　 fp = 2
　　 Case 2:Picture2.Picture = Picture1（2）.Picture
　　 fp = 3
　　 Case 3:Picture2.Picture = Picture1（3）.Picture
　　 fp = 4
　　 Case 4:Picture2.Picture = Picture1（4）.Picture
　　 fp = 0 ＇重新回到初始状态
　　 End Select
　　 End Sub
　　 本程序在VB6.0、WIN98SE中通过。