标题旋转的地球

　　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中通过。