用VB制作趣味小动画-课件.pptx

1、 （1）“计时器”控件 工具箱中“计时器”控件对应的图标为 。“计时器”控件的主耍功能是每隔一定的时间，产生一次Timer事件（这也是“计时器”控件所具有的唯一的事件）。为Timer 事件编写驱动程序，就可以让计算机每隔一定的时间，执行一次这段程序，从而完成指定的功能。“计时器”控件的属性很少，如下图所示。（2）让气球飞起来 如果在窗体的某处画出一个图形，间隔一定的时间后擦掉，移动一下位置，再画出同样的图形，间隔一定的时间后再擦掉.这样反复多次就产生了动画的效果，当相邻两次画图的时间间隔和距离间隔都非常小时，就产生了比较逼真的连续动画的效果。下面就用上述原理编制程序让气球飞起来。第1步：启动V

2、B，新建一个工程。第2步：将窗体的Width和Height属性分别设置为8000和6400，将Back Color属性设置为淡蓝色。第3步：在程序界面上绘制一个“计时器”控件，将它的Interval属性设置为40，使得运行程序时，在1秒钟的时间内发生25次Timer事件，即画、擦气球各25次，程序界面如下图所示。第4步：声明模块级变量x和y，编写窗体的Load事件和“计时器”控件的Timer事件驱动程序。第5步：运行程序，观察效果。第6步：保存程序。在以上编制的程序中，气球是在我们设置的淡蓝色的“蓝天”中飞翔的，“蓝天”不够逼真。现在我们修改程序，给气球换一个逼真的蓝天。第1步：准备一幅好看的

3、蓝天白云图片，保存到“让气球飞起来”程序文件夹中。第2步：启动VB，打开上述的“让气球飞起来”程序。第3步：使用工具箱中的“图像”控件图标，在窗体中绘制出一个“图像”控件（VB自动为该控件起名为Image1），如下面左图所示。第4步：在Image1控件的属性窗口选中Picture属性，其右侧出现一个按钮，如下面右图所示。第5步：单击按钮，弹出“加载图片”对话框，将对话框中的“查找范围”设置为“让气球飞起来”文件夹，如下面左图所示；双击文件夹中的蓝天白云.jpg，使Imagel图像控件中显示出“蓝天白云jpg”文件对应的图像，如下面右图所示。第6步：用鼠标拖动整个图像控件向左上方移动，让“蓝天白

4、云”图片布满整个窗体；如果“蓝天白云”图片比窗体大的话，还可以继续向左上方拖动图片，直到窗体中出现的图片是自己满意的部分为止，下图所示可作参考。第7步：改写窗体的Load事件驱动程序 第8步：运行程序。以下为程序运行过程中的两个画面。第9步：保存程序。第1步：准备两幅如上图所示的图片。第2步：启动VB，新建一个工程。将窗体的背景色设置为白色。第3步：在窗体中绘制两个“图像”控件Image1和Image2，如下面左图所示。第4步：设置Image1和Image2的Picture属性，为两个“图像”控件加载米老鼠图片，加载效果如下面右图所示。第5步：在窗体中绘制一个“计时器”控件，将其Interva属性设置为500。第6步：打开代码窗口，声明一个模块级变量S。第7步：在窗体的Load事件程序中，为变量s赋初值；为两个图像控件的Top、Left属性分别设置成相同的值（为了使得动画效果逼真，窗体中两个图像控件的位置应该重叠在一起）。这样设置后的代码窗口如下页图所示。第8步：编写如下所述的“计时器”控件的Timer事件驱动程序。第9步：运行程序，观察动画效果。第10步：保存程序，并生成可执行程序。