用VB实现彩蝶飞舞

ＶＢ已从１．０版本发展到了６．０版本，其功能越来越完备、强大，不仅提供了轻松有趣的编程环境，而且控件技术的使用更是锦上添花。因此，在全世界范围内特别是在我国ＶＢ应用非常广泛。本文通过两幅蝴蝶图片的动画 设计 ，来说明在ＶＢ５．０中通过使用控件和添加少量代码就能实现复杂的功能。
界面的设计
在窗体Ｆｏｒｍ１上，放置三个图像框控件（Ｉｍａｇｅ１、Ｉｍａｇｅ２、Ｉｍａｇｅ３）、两个定时器控件（Ｔｉ ｍｅｒ１、Ｔｉ ｍｅｒ２）和一个命令按钮（Ｃｏｍｍａｎｄ１）。其中图像框Ｉｍａｇｅ１及Ｉｍａｇｅ２用来 存储两幅图片，图像框Ｉｍａｇｅ３用来交替显示两幅图片；定时器Ｔｉ ｍｅｒ１用来控制两幅图片显示间隔时间，定时器Ｔｉ ｍｅｒ２用来控制图片框Ｉｍ—ａｇｅ３向右移动间隔时间；命令按钮Ｃｏｍ—ｍａｎｄ１用来控制动画的开始。各控件属性设置如表一。两幅蝴蝶图片文件Ｂｆｌｙ１．ｂｍｐ 和Ｂｆｌｙ２．ｂｍｐ可在ＶＢ＼Ｓａｍｐｌｅｓ＼Ｐｇｕｉｄｅ＼ＶＣＲ 子目录下找到，可将其复制到ＶＢ目录下。窗体界面布置如图一。
为各控件添加代码

１、双击Ｔｉ ｍｅｒ１后，在Ｐｒｉ—
ｖａｔｅ Ｓｕｂ Ｔｉ ｍｅｒ１＿Ｔｉ ｍｅｒ（）和Ｅｎｄ
Ｓｕｂ 两行间添加如下代码，以实现两幅图片交替显示：
Ｓｔａｔｉｃ ｆｌａｇ
Ｉｆｆｌａｇ ＝０Ｔｈｅｎ
Ｉｍａｇｅ３．Ｐｉｃｔｕｒｅ ＝Ｉｍａｇｅ１．Ｐｉｃｔｕｒｅ
ｆｌａｇ ＝１
ＥｌｓｅＩｍａｇｅ３．Ｐｉｃｔｕｒｅ ＝Ｉｍａｇｅ２．Ｐｉｃｔｕｒｅ
ｆｌａｇ ＝０
Ｅｎｄ Ｉｆ ２、双击Ｔｉ ｍｅｒ２后，在Ｐｒｉｖａｔｅ Ｓｕｂ
Ｔｉ ｍｅｒ２＿Ｔｉ ｍｅｒ（）和Ｅｎｄ Ｓｕｂ 两行间添加如下代码，
实现图片由左向右移动：
Ｉｆ Ｉｍａｇｅ３．Ｌｅｆｔ ＞Ｍｅ ．Ｓｃａｌｅ Ｗｉｄｔｈ Ｔｈｅｎ Ｉｍ—
ａｇｅ３．Ｌｅｆｔ ＝Ｍｅ ．Ｌｅｆｔ －１５００
Ｉｍａｇｅ３．Ｍｏｖｅ Ｉｍａｇｅ３．Ｌｅｆｔ ＋１００
３、双击Ｃｏｍｍａｎｄ１控件后，在Ｐｒｉｖａｔｅ Ｓｕｂ
Ｃｏｍｍａｎｄ１＿Ｃｌｉｃｋ（）和Ｅｎｄ Ｓｕｂ 两行间添加如下代
码，先将原图片隐藏，然后启动定时器：
Ｉｍａｇｅ１．Ｖｉｓｉｂｌｅ ＝Ｆａｌｓｅ
Ｉｍａｇｅ２．Ｖｉｓｉｂｌｅ ＝Ｆａｌｓｅ
Ｔｉ ｍｅｒ１．Ｅｎａｂｌｅｄ ＝Ｔｒｕｅ
Ｔｉ ｍｅｒ２．Ｅｎａｂｌｅｄ ＝Ｔｒｕｅ
（华北矿业高等专科学校席振元１０１６０１）

转载于:https://www.cnblogs.com/tanghuawei/archive/2007/01/12/618864.html