旋转的地球

Author: 范青山 Date: 2001年 22期

?牐燰B的动画设计是一项很重要的内容，而用不同的图形在计时器的控制下，在一个图片框里交替循环显示（和GIF一样）是动画设计中常用的一种方法，Microsoft的IE界面中有一个动画（在右上角），是一个不停旋转的地球，用VB也能实现。
　　?牐犗然鑫宸煌嵌鹊牡厍蛲夹危娣旁谝桓鑫募铮纭拔业奈牡怠保袷轿?*.jpg，尽量小一些。然后启动VB6.0，在FORM1上建立6个图片框（或一个图片数组），5个图片框的visible属性都设为FALSE。再放一个计时器，将interval属性值设为500。
　　?牐牫绦虼肴缦拢?
　　?牐燚im fp As Integer  ＇声明变量
　　?牐燩rivate Sub form_load（）?煟?
　　?牐爁p = 0
　　?牐燭imer1.Interval = 500
　　?牐燩icture1（0）.Picture = LoadPicture（"d:\my documents\a1.bmp"）??
　　?牐燩icture1（1）.Picture = LoadPicture（"d:\my documents\a2.bmp"）??
　　?牐燩icture1（2）.Picture = LoadPicture（"d:\my documents\a3.bmp"）??
　　?牐燩icture1（3）.Picture = LoadPicture（"d:\my documents\a4.bmp"）??
　　?牐燩icture1（4）.Picture = LoadPicture（"d:\my documents\a5.bmp"）＇载入图片数组
　　?牐燛nd Sub
　　?牐燩rivate Sub timer1_timer?煟?
　　?牐燬elect Case fp
　　?牐燙ase 0
　　?牐燩icture2.Picture = Picture1（0）.Picture
　　?牐牐?显示第一幅画面，以下以此类推
　　?牐爁p = 1
　　?牐燙ase 1:Picture2.Picture = Picture1（1）.Picture
　　?牐爁p = 2
　　?牐燙ase 2:Picture2.Picture = Picture1（2）.Picture
　　?牐爁p = 3
　　?牐燙ase 3:Picture2.Picture = Picture1（3）.Picture
　　?牐爁p = 4
　　?牐燙ase 4:Picture2.Picture = Picture1（4）.Picture
　　?牐爁p = 0     ＇重新回到初始状态
　　?牐燛nd Select
　　?牐燛nd Sub
　　    本程序在VB6.0、WIN98SE中通过。