欢迎光临
我们一直在努力

用visualbasic的move方法实现动画效果_visualbasic教程

建站超值云服务器,限时71元/月

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.PictureDisplaystheopenbutterflypicture.
Else
Main.Picture=CloseWings.PictureDisplaystheclosedbutterflypicture.
EndIf
PickBmp=NotPickBmpTogglethevalue.
EndSub
退出按钮(exit)程序:
PrivateSubCommand1-Click()
UnloadMe
End
EndSub
这样,利用VB的move方法和其它对象属性,就可以实现更加复杂的动画设计。->

赞(0)
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com 特别注意:本站所有转载文章言论不代表本站观点! 本站所提供的图片等素材,版权归原作者所有,如需使用,请与原作者联系。未经允许不得转载:IDC资讯中心 » 用visualbasic的move方法实现动画效果_visualbasic教程
分享到: 更多 (0)