您现在的位置：天极网 > 旋转的地球

旋转的地球

来源：2001-22　作者：　责任编辑：　发表时间:2001-09-27 15:42　评论()

${article.keywordHaveUrl}

　　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