VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 用VB实现彩蝶飞舞
发表评论(0)作者:席振元, 平台:VB6.0+Win98, 阅读:9473, 日期:2000-11-29
用VB实现彩蝶飞舞
--------------------------------------------------------------------------------


VB已从1.0版本发展到了6.0版本,其功能越来越完备、强大,不仅提供了轻松有趣的编程环境,而且控件技术的使用更是锦上添花。因此,在全世界范围内特别是在我国VB应用非常广泛。本文通过两幅蝴蝶图片的动画设计,来说明在VB5.0中通过使用控件和添加少量代码就能实现复杂的功能。
?界面的设计
?在窗体Form1上,放置三个图像框控件(Image1、Image2、Image3)、两个定时器控件(Ti mer1、Ti mer2)和一个命令按钮(Command1)。其中图像框Image1及Image2用来存储两幅图片,图像框Image3用来交替显示两幅图片;定时器Ti mer1用来控制两幅图片显示间隔时间,定时器Ti mer2用来控制图片框Im—age3向右移动间隔时间;命令按钮Com—mand1用来控制动画的开始。各控件属性设置如表一。?两幅蝴蝶图片文件Bfly1.bmp 和Bfly2.bmp可在VB\Samples\Pguide\VCR 子目录下找到,可将其复制到VB目录下。窗体界面布置如图一。
?为各控件添加代码?

1、双击Ti mer1后,在Pri—
vate Sub Ti mer1_Ti mer()和End
Sub 两行间添加如下代码,以实现两幅图片交替显示:?
Static flag?
Ifflag =0Then?
Image3.Picture =Image1.Picture?
flag =1?
Else?Image3.Picture =Image2.Picture?
flag =0?
End If? 2、双击Ti mer2后,在Private Sub
Ti mer2_Ti mer()和End Sub 两行间添加如下代码,
实现图片由左向右移动:?
If Image3.Left >Me .Scale Width Then Im—
age3.Left =Me .Left -1500?
Image3.Move Image3.Left +100?
3、双击Command1控件后,在Private Sub
Command1_Click()和End Sub 两行间添加如下代
码,先将原图片隐藏,然后启动定时器:?
Image1.Visible =False?
Image2.Visible =False?
Ti mer1.Enabled =True?
Ti mer2.Enabled =True?
(华北矿业高等专科学校席振元101601)