国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學(xué)院 > 開發(fā)設(shè)計(jì) > 正文

用VisualBasic的Move方法實(shí)現(xiàn)動(dòng)畫效果

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

對象屬性設(shè)置
窗體caption蝴蝶飛行動(dòng)畫設(shè)計(jì)
圖象框namemain
picturebfly1
圖象框nameopenwings
picturebfly1
圖象框nameclosewings
picturebfly2
命令框namecommand1
captionE&xit
定時(shí)器nametimer1
interval200

有關(guān)程序比較簡單,代碼如下:
定時(shí)器中斷程序:
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方法和其它對象屬性,就可以實(shí)現(xiàn)更加復(fù)雜的動(dòng)畫設(shè)計(jì)。->


發(fā)表評論 共有條評論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板: 北碚区| 永年县| 德庆县| 晋城| 扶沟县| 潞城市| 玉林市| 中山市| 茌平县| 沛县| 广西| 靖江市| 隆化县| 井研县| 苍山县| 高安市| 尉氏县| 绥芬河市| 南安市| 扬中市| 九龙县| 高密市| 台南县| 确山县| 定西市| 秭归县| 芜湖县| 田林县| 陈巴尔虎旗| 贵南县| 东安县| 西昌市| 时尚| 义马市| 大余县| 尚志市| 清涧县| 岢岚县| 蒲江县| 青岛市| 商城县|