旋转的地球

范青山 
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中通过。 
 