用VB制作趣味小动画_ppt课件

单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,12/23/2019,#,用,VB,制作趣味小动画,用VB制作趣味小动画,1,一,、让,气球飞起来,一、让气球飞起来,2,（,1,）,“,计时器”控件,工具箱,中“计时器”控件对应的图标,为 。,“计时器”控件的主耍功能是每,隔一定的,时间，产生一次,Timer,事件（这,也是“计时器”控件所具有的唯一的,事件）。为,Timer,事件,编写驱动程序,，就,可以让计算机每隔一定的时间，执行一次这段程序，从而完成,指定,的功能,。,“计时器”,控件的属性很少，如下图所示。,（1）“计时器”控件,3,（,2,）让,气球飞起来,如果,在窗体的某处画,出一,个图形，间隔一定的时间后擦掉，移动一下位置，再画出同样的图形，间隔一定的时间后再擦掉,.,这样反复多次就产生了动画的效果,，当,相邻两次画图的时间间隔和距离间隔都非常小时，就产生了比较逼真的连续动画的效果。,下面,就用上述原理编制程序让气球飞起来,。,第,1,步：启动,VB,，新建一个工程。,第,2,步：将,窗体的,Width,和,Height,属性分别设置为,8000,和,6400,，将,Back Color,属性设置为淡蓝色。,第,3,步：在,程序界面上绘制,一个,“计时器”控件，将它的,Interval,属性设置为,40,，使得运行程序时，在,1,秒钟的时间内发生,25,次,Timer,事件,，即,画、擦气球各,25,次,，程序,界面如下图所示。,（2）让气球飞起来,4,第,4,步：声明,模块级变量,x,和,y,，编写,窗体的,Load,事件和“计时器”控件的,Timer,事件驱动程序,。,第,5,步：运行,程序，观察效果,。,第,6,步：保存,程序。,第4步：声明模块级变量x和y，编写窗体的Load,5,二、让气球飞翔在蓝天白云间,二、让气球飞翔在蓝天白云间,6,在,以上编制的程序中，气球是在我们设置的淡蓝色的“蓝天”中飞翔的，“蓝天”不够逼真。现在我们修改程序,，给,气球换一个逼真,的蓝天,。,第,1,步：准备一幅,好看的蓝天白云图片,，保存,到“让气球飞起来”程序文件夹中,。,第,2,步：启动,VB,，打开,上述的“让气球飞起来”程序。,第,3,步：使用,工具箱中的“图像”控件图标，在窗体中绘制,出一,个“图像”,控件（,VB,自动为该控件起名为,Image1,），如,下面左图所示。,第,4,步：在,Image1,控件的属性窗口选中,Picture,属性,，其右侧出现,一个,按钮，如下面右图所示。,在以上编制的程序中，气球是在我们设置的淡蓝色,7,第,5,步：单击,按钮,，弹,出“加载图片”对话框,，将,对话框中的“查找范围”设置为“让气球飞起来”文件夹，如下面左图所,示；双击,文件夹中,的蓝天,白云,.jpg,，,使,Imagel,图像,控件中显示出“蓝天白云,jpg”,文件对应的图像,，如,下面右图所示。,第5步：单击按钮，弹出“加载图片”对话框，将,8,第,6,步：用,鼠标拖动整个图像控件向左上方移动，让“蓝天白云”图片布满整个,窗体；如果“蓝天白云”图片,比窗体大的话,，还,可以继续向左上方拖动图片，直到窗体中出现的图片是自己满意的部分为止，下图所示可作参考。,第6步：用鼠标拖动整个图像控件向左上方移动，,9,第,7,步：改写,窗体的,Load,事件驱动程序,第,8,步：运行,程序。以下为程序运行过程中的两个画面,。,第,9,步：保存,程序。,第7步：改写窗体的Load事件驱动程序,10,三、做个“米老鼠跳迪斯科”的小动画,三、做个“米老鼠跳迪斯科”的小动画,11,第,1,步：准备,两幅如上图所示的图片。,第,2,步：启动,VB,，新建,一个工程。将窗体的背景色设置为白色。,第,3,步：在,窗体中绘制两个“图像”控件,Image1,和,Image2,，如,下面左图所示。,第,4,步：设置,Image1,和,Image2,的,Picture,属性，为两个“图像”控件加载米老鼠图片，加载效果如下面右图所示。,第1步：准备两幅如上图所示的图片。,12,第,5,步,：,在,窗体中,绘制一,个“计时器”,控件，将,其,Interva,属性,设置为,500,。,第,6,步：打开,代码窗口，声明一个模块级变量,S,。,第,7,步：在,窗体的,Load,事件程序中，为变量,s,赋,初值；为,两个图像控件的,Top,、,Left,属性分别设置成相同的,值（为了,使得动画效果逼真，窗体中两个图像控件的位置应该重叠在,一起）。,这样设置后的代码窗口如下页图所示。,第5步：在窗体中绘制一个“计时器”控件，将其,13,第,8,步：编写,如下所述的“计时器”控件的,Timer,事件驱动,程序。,第,9,步：运行,程序，观察动画效果。,第,10,步：保存,程序，并生成可执行程序。,第8步：编写如下所述的“计时器”控件的Tim,14,谢 谢,谢 谢,15,