制作带有动画和声音的屏幕保护程序
介绍
用VB5.0和WINDOWS95自身所带的“画笔”就可以制作出带有动画和声音的屏幕保护程序。画面是一只蝴蝶在音乐的伴奏下飞动，碰动屏幕的边缘就会向小球反弹一样换个方向飞。这里需要两个bmp文件，采用的是VB自带的文件1动画的制作是利用image控件来实现的。改变image的picture属性可实现画面的变化，利用move命令可实现画面的移动。利用MCI控件来实现音乐播放。程序编译后将生成的exe可执行文件，改为以*.scr结尾的文件名，将其复制到windowssystem子目录即可，然后就可以在“控制面板”的“显示器”中选择该屏幕保护程序即可使用。
具体做法
首先建立一个新窗体form1，各属性分别是backcolor选为黑色，borderstyle选为0（黑色不带边框）。在form1上加入7个image控件，在格式菜单中将各个image的大小都选为相同，image1-7的stretch属性都选为true（图像将随控件的大小而变化），image1-6的visible的属性选为false（不可见），image7的visible属性为true。
制作动画
Image1.picture 右飞
Image2.picture 右合
Image3.picture 左飞
Image4.picture 左合
在“工程”菜单中选择“部件”，并从“部件”对话框的“控件”列表中选择“Microsoft Multimedia Control5.0”加入MCI控件，并将其visible属性改为false。加入时钟控件timer1，其interval属性为200（interval的值与机器的配置有关，在其他机器上可作适当调整，我的配置是P133，内存为32M）。
实现动态效果
原理如下：image1-4用来存图形，运行时不可见。Image5用来存蝴蝶翅膀张开时的图像，Image6用来存蝴蝶翅膀合上时的图像，运行时都不可见。Image7是唯一运行时可见，利用时钟控件来改变其图形，用Image5和Image6来回变换。
```vb
If Image7.Picture Image5.Picture Then
Image7.Picture Image6.Picture
Else
Image7.Picture Image5.Picture
End If
```
实现移动效果
蝴蝶的移动利用image7控件的move方法： xp, yp，4个边界值：上边：y0，下边：y，左边：x0，右边：x。
```vb
xp，yp为水平和垂直的移动量。
x，y为image7在窗体中的位置。
左右边界的判断：
If x > Then '右边界
Image5.Picture Image3.Picture '蝴蝶应向左飞，翅膀张开的图形应选为左飞
```
通过以上步骤，你可以制作出带有动画和声音的屏幕保护程序。记得将程序编译后生成的exe可执行文件，改为以*.scr结尾的文件名，并将其复制到windowssystem子目录中。然后就可以在“控制面板”的“显示器”中选择该屏幕保护程序来使用了。
版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。
