制作带有动画和声音的屏幕保护程序
原作者:www.upwinder.com 添加时间:2007-09-02 原文发表:2007-08-31 人气:3 来源：未知
本文章共3011字，分2页，当前第1页，快速翻页：
| | 利用VB5.0和WINDOWS95自身所带的“画笔”就可以制作出带有动画和声音的屏幕保护程序。画面是一只蝴蝶在音乐的伴奏下飞动，碰动屏幕的边缘就会向小球反弹一样换个方向飞。这里需要两个bmp文件，采用的是VB自带的文件（源文件的位置是c:\program files\devstduio\VB\samples\pguide\vcr\bfly1.bmp和bfly2.bmp）。因为蝴蝶要向各个方向飞，所以还要在这两个文件的基础上，再制作两个。打开WINDOWS附件中的“画笔”，打开bfly1.bmp，点取“画像”菜单中的“翻转/旋转”，选择“水平翻转”后，将生成的新文件另存存盘，起名“左飞”，同样的方法将bfly2.bmp另存为“左合”，将bfly1.bmp改名为“右飞”，bfly2.bmp改名为“右合”（左飞，左合是蝴蝶向左飞时的画面，右飞，右合是蝴蝶向右飞时的画面，最后在画笔中将4个图的底色都改为黑色，这是保证蝴蝶的底色和屏幕的背景相融合）。
逆风者
动画的制作是利用image控件来实现的。改变image的picture属性可实现画面的变化，利用move命令可实现画面的移动。利用MCI控件来实现音乐播放。程序编译后将生成的exe可执行文件，改为以*.scr结尾的文件名，将其复制到windows\system子目录即可，然后就可以在“控制面板”的“显示器”中选择该屏幕保护程序即可使用（运行所带exe文件必须将mid复制到指定的位置。这里建议使用所带的setup进行自动安装，可以省去一切步骤，setup后的文件名为蝴蝶.scr，已自动安装到系统的文件夹，在“显示器”中的“屏幕保护程序”可以找到。重新编译程序所需的4个bmp文件和一个Mid文件也安装到指定的位置。详细路径请见源程序中的说明）。
具体做法如下：首先建立一个新窗体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来回变换。
If Image7.Picture = Image5.Picture Then
Image7.Picture = Image6.Picture
Else
Image7.Picture = Image5.Picture
End If
蝴蝶的移动利用image7控件的move方法：
image7.move xp,yp
4个边界值
上边：y=0
下边：y=form1.scaleheight-image7.scaleheight
左边：x=0
右边：x= form1.scalewidth-image7.scalewidth
xp，yp为水平和垂直的移动量。
X，y为image7在窗体中的位置
左右边界的判断：
If x>=form1.ScaleWidth-Image1.Width Then '右边界
Image5.Picture = Image3.Picture
'蝴蝶应向左飞，翅膀张开的图形应选为左飞
Image6.Picture = Image4.Picture
'翅膀合上的图形应选为左合
x = Form1.ScaleHeight - Image1.Width
'改变 x 的位置
xp = (-1) * xp
'改变水平的移动量符号，以便向相反方向飞。
End If
If x <= 0 Then '左边界
Image5.Picture = Image1.Picture '右飞
Image6. Picture = Image2. Picture '右合
x = 0
xp = (-1) * xp
End If
If y > = Form1.ScaleHeight - Image1. Height Then
'下边界
y = Form1. ScaleHeight - Image1. Height
'改变y的位置
yp = (-l) * yp
本文章更多内容：1 - 2 - 下一页>> |
 本文章所属分类： 首页
→ VB
|
文章搜索
热门文章
推荐文章
最新文章
|
您的位置：逆风者
→ VB
→ 正文