用VisualBasic的Move方法實現(xiàn)動畫效果

2019-11-18 17:37:54

字體：大中小

供稿：網(wǎng)友

VisualBasic和結(jié)構(gòu)化程序相比，增加了對象的“方法”功能。充分掌握這種不同于對象屬性的“方法”，對可視化應用的開發(fā)極為重要。下面，以VB4.0的move方法為例，說明該方法在動畫中的應用。
本例欲通過move方法完成一只蝴蝶的飛翔過程。通過定時器的中斷，每隔一定時間（本例為0.2秒），在屏幕上移動蝴蝶的位置，并且改變蝴蝶的形態(tài)（展翅和收翅），于是利用視覺的暫存效應，看到蝴蝶栩栩如生的飛行場面。蝴蝶的位置的移動就由move方法來實現(xiàn)，move方法使用的格式如下：
對象.moveleft,top
其中l(wèi)eft為對象左邊界的水平坐標（x軸），top為對象上邊界的垂直坐標（Y軸），本例中的對象框（imagebox）,名字為main。
蝴蝶的展翅和收翅圖象由位圖文件bfly1.bmpbfly2.bmp來提供，并可根據(jù)需要制作其它飛行的位圖文件，以使效果更加逼真。
本例中窗體結(jié)構(gòu)和各個對象的屬性設置如下：

對象屬性設置
窗體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方法和其它對象屬性，就可以實現(xiàn)更加復雜的動畫設計。->

上一篇：VisualBasic中制作流水燈

下一篇：VisualBasic中字符淡出淡入的實現(xiàn)