用VisualBasic的Move方法实现动画效果

VisualBasic和结构化程序相比，增加了对象的“方法”功能。充分掌握这种不同于对象属性的“方法”，对可视化应用的开发极为重要。下面，以VB4.0的move方法为例，说明该方法在动画中的应用。
　　本例欲通过move方法完成一只蝴蝶的飞翔过程。通过定时器的中断，每隔一定时间（本例为0.2秒），在屏幕上移动蝴蝶的位置，并且改变蝴蝶的形态（展翅和收翅），于是利用视觉的暂存效应，看到蝴蝶栩栩如生的飞行场面。蝴蝶的位置的移动就由move方法来实现，move方法使用的格式如下：
　　对象.moveleft,top
　　其中left为对象左边界的水平坐标（x轴），top为对象上边界的垂直坐标（Y轴），本例中的对象框（imagebox）,名字为main。
　　蝴蝶的展翅和收翅图象由位图文件bfly1.bmpbfly2.bmp来提供，并可根据需要制作其它飞行的位图文件，以使效果更加逼真。
　　本例中窗体结构和各个对象的属性设置如下：
　　
　　对象属性设置
　　窗体caption蝴蝶飞行动画设计
　　图象框namemain
　　picturebfly1
　　图象框nameopenwings
　　picturebfly1
　　图象框nameclosewings
　　picturebfly2
　　命令框namecommand1
　　captionE&xit
　　定时器nametimer1
　　interval200
　　
　　有关程序比较简单，代码如下：
　　定时器中断程序：
　　PrivateSubTimer-Timer()
　　StaticPickBmpAsInteger
　　Main.MoveMain.Left 20,Main.Top-5
　　IfPickBmpThen
　　Main.Picture=OpenWings.Picture'Displaystheopenbutterflypicture.
　　Else
　　Main.Picture=CloseWings.Picture'Displaystheclosedbutterflypicture.
　　EndIf
　　PickBmp=NotPickBmp'Togglethevalue.
　　EndSub
　　退出按钮（exit）程序：
　　PrivateSubCommand1-Click()
　　UnloadMe
　　End
　　EndSub
　　这样，利用VB的move方法和其它对象属性，就可以实现更加复杂的动画设计。->