用 VB 实现彩蝶飞舞 -------------------------------------------------------------------------------- ＶＢ已从１．０版本发展到了６．０版本，其功能越来越完备、强大，不仅提供了轻松有趣的编程环境，而且控件技术的使用更是锦上添花，
用VB实现彩蝶飞舞VB
。因此，在全世界
用VB实现彩蝶飞舞
--------------------------------------------------------------------------------
ＶＢ已从１．０版本发展到了６．０版本，其功能越来越完备、强大，不仅提供了轻松有趣的编程环境，而且控件技术的使用更是锦上添花。因此，在全世界范围内特别是在我国ＶＢ应用非常广泛。本文通过两幅蝴蝶图片的动画设计，来说明在ＶＢ５．０中通过使用控件和添加少量代码就能实现复杂的功能。
?界面的设计
?在窗体Ｆｏｒｍ１上，放置三个图像框控件（Ｉｍａｇｅ１、Ｉｍａｇｅ２、Ｉｍａｇｅ３）、两个定时器控件（Ｔｉ ｍｅｒ１、Ｔｉ ｍｅｒ２）和一个命令按钮（Ｃｏｍｍａｎｄ１）。其中图像框Ｉｍａｇｅ１及Ｉｍａｇｅ２用来存储两幅图片，图像框Ｉｍａｇｅ３用来交替显示两幅图片；定时器Ｔｉ ｍｅｒ１用来控制两幅图片显示间隔时间，定时器Ｔｉ ｍｅｒ２用来控制图片框Ｉｍ—ａｇｅ３向右移动间隔时间；命令按钮Ｃｏｍ—ｍａｎｄ１用来控制动画的开始。各控件属性设置如表一。?两幅蝴蝶图片文件Ｂｆｌｙ１．ｂｍｐ 和Ｂｆｌｙ２．ｂｍｐ可在ＶＢ＼Ｓａｍｐｌｅｓ＼Ｐｇｕｉｄｅ＼ＶＣＲ 子目录下找到，可将其复制到ＶＢ目录下。窗体界面布置如图一。
?为各控件添加代码?
１、双击Ｔｉ ｍｅｒ１后，在Ｐｒｉ—
ｖａｔｅ Ｓｕｂ Ｔｉ ｍｅｒ１＿Ｔｉ ｍｅｒ（）和Ｅｎｄ
Ｓｕｂ 两行间添加如下代码，以实现两幅图片交替显示：?
Ｓｔａｔｉｃ ｆｌａｇ?
Ｉｆｆｌａｇ ＝０Ｔｈｅｎ?
Ｉｍａｇｅ３．Ｐｉｃｔｕｒｅ ＝Ｉｍａｇｅ１．Ｐｉｃｔｕｒｅ?
ｆｌａｇ ＝１?
Ｅｌｓｅ?Ｉｍａｇｅ３．Ｐｉｃｔｕｒｅ ＝Ｉｍａｇｅ２．Ｐｉｃｔｕｒｅ?
ｆｌａｇ ＝０?
Ｅｎｄ Ｉｆ? ２、双击Ｔｉ ｍｅｒ２后，在Ｐｒｉｖａｔｅ Ｓｕｂ
Ｔｉ ｍｅｒ２＿Ｔｉ ｍｅｒ（）和Ｅｎｄ Ｓｕｂ 两行间添加如下代码，
实现图片由左向右移动：?
Ｉｆ Ｉｍａｇｅ３．Ｌｅｆｔ ＞Ｍｅ ．Ｓｃａｌｅ Ｗｉｄｔｈ Ｔｈｅｎ Ｉｍ—
ａｇｅ３．Ｌｅｆｔ ＝Ｍｅ ．Ｌｅｆｔ －１５００?
Ｉｍａｇｅ３．Ｍｏｖｅ Ｉｍａｇｅ３．Ｌｅｆｔ ＋１００?
３、双击Ｃｏｍｍａｎｄ１控件后，在Ｐｒｉｖａｔｅ Ｓｕｂ
Ｃｏｍｍａｎｄ１＿Ｃｌｉｃｋ（）和Ｅｎｄ Ｓｕｂ 两行间添加如下代
码，先将原图片隐藏，然后启动定时器：?
Ｉｍａｇｅ１．Ｖｉｓｉｂｌｅ ＝Ｆａｌｓｅ?
Ｉｍａｇｅ２．Ｖｉｓｉｂｌｅ ＝Ｆａｌｓｅ?
Ｔｉ ｍｅｒ１．Ｅｎａｂｌｅｄ ＝Ｔｒｕｅ?
Ｔｉ ｍｅｒ２．Ｅｎａｂｌｅｄ ＝Ｔｒｕｅ?
（华北矿业高等专科学校席振元１０１６０１）
原文转自：http://www.ltesting.net