没有合适的资源?快使用搜索试试~ 我知道了~
用Visual Basic的Move方法实现动画效果
需积分: 9 11 下载量 125 浏览量
2011-03-31
17:11:10
上传
评论
收藏 1KB TXT 举报
温馨提示
试读
2页
用Visual Basic的Move方法实现动画效果VB技术很实用的源码本人收集了一些技巧供大家参考,希望斑竹能多放一些时间。按字母或数字顺序排列列表框中的列表项. 将以下代码加入到你的程序中.
资源推荐
资源详情
资源评论
用Visual Basic的Move方法实现动画效果
哈尔滨 姜军
Visual Basic和结构化程序相比,增加了对象的“方法”功能。充分掌握这种不同于对象属性的“方法”,对可视化应用的开发极为重要。下面,以VB4.0的move方法为例,说明该方法在动画中的应用。
本例欲通过move方法完成一只蝴蝶的飞翔过程。通过定时器的中断,每隔一定时间(本例为0.2秒),在屏幕上移动蝴蝶的位置,并且改变蝴蝶的形态(展翅和收翅),于是利用视觉的暂存效应,看到蝴蝶栩栩如生的飞行场面。蝴蝶的位置的移动就由move方法来实现,move方法使用的格式如下:
对象. move left, top
其中left为对象左边界的水平坐标(x轴),top为对象上边界的垂直坐标(Y轴),本例中的对象框(image box),名字为main。
蝴蝶的展翅和收翅图象由位图文件bfly1.bmp bfly2.bmp来提供,并可根据需要制作其它飞行的位图文件,以使效果更加逼真。
本例中窗体结构和各个对象的属性设置如下:
对象 属性设置
窗体caption 蝴蝶飞行动画设计
图象框name main
picture bfly1
图象框name openwings
picture bfly1
图象框name closewings
picture bfly2
命令框name command1
caption E&xit
定时器name timer1
interval 200
有关程序比较简单,代码如下:
定时器中断程序:
Private SubTimer-Timer()
Static PickBmp As Integer
Main.Move Main.Left +20,Main.Top -5
If PickBmp Then
Main.Picture =Open Wings.Picture’Displays the open butterfly picture.
Else
哈尔滨 姜军
Visual Basic和结构化程序相比,增加了对象的“方法”功能。充分掌握这种不同于对象属性的“方法”,对可视化应用的开发极为重要。下面,以VB4.0的move方法为例,说明该方法在动画中的应用。
本例欲通过move方法完成一只蝴蝶的飞翔过程。通过定时器的中断,每隔一定时间(本例为0.2秒),在屏幕上移动蝴蝶的位置,并且改变蝴蝶的形态(展翅和收翅),于是利用视觉的暂存效应,看到蝴蝶栩栩如生的飞行场面。蝴蝶的位置的移动就由move方法来实现,move方法使用的格式如下:
对象. move left, top
其中left为对象左边界的水平坐标(x轴),top为对象上边界的垂直坐标(Y轴),本例中的对象框(image box),名字为main。
蝴蝶的展翅和收翅图象由位图文件bfly1.bmp bfly2.bmp来提供,并可根据需要制作其它飞行的位图文件,以使效果更加逼真。
本例中窗体结构和各个对象的属性设置如下:
对象 属性设置
窗体caption 蝴蝶飞行动画设计
图象框name main
picture bfly1
图象框name openwings
picture bfly1
图象框name closewings
picture bfly2
命令框name command1
caption E&xit
定时器name timer1
interval 200
有关程序比较简单,代码如下:
定时器中断程序:
Private SubTimer-Timer()
Static PickBmp As Integer
Main.Move Main.Left +20,Main.Top -5
If PickBmp Then
Main.Picture =Open Wings.Picture’Displays the open butterfly picture.
Else
资源评论
tianlongbang
- 粉丝: 0
- 资源: 108
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功