说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

Visual Basic动画编程技术

HTML文档下载 WORD文档下载 PDF文档下载
Visual Basic动画编程技术
作者:周长发
在Visual Basic 中 利 用Image 和Timer 控 件 能 很 方 便 地 实 现 动 画。 本 文 将 介 绍Visual Basic 动 画 编 程 的 基 本 原 理 和 实 现 三 种 不 同 类 型 动 画 的 编 程 技 术。

一、 基 本 原 理

---- 动 画 是 一 种 运 动 的 模 拟, 其 实 现 方 法 是 在 屏 幕 上 快 速 地 显 示 一 组 相 关 的 图 象。 因 此 实 现 动 画 的 基 础 是 图 象 的 显 示 和 使 图 象 快 速、 定 时 地 移 动 或 变 化。
---- 在Visual Basic 中, 用LoadPicture 函 数 将BMP、ICO 和WMF 格 式 的 图 象 文 件 装 入 内 存, 并 将 函 数 返 回 值 赋 予Image 对 象 的Picture 属 性, 便 能 在Image 对 象 中 显 示 图 象。 使 图 象 移 动 或 变 化 的 基 本 方 法 有 三 种, 即:

用Image 对 象 的Move 方 法 移 动 图 象, 其Left 和Top 属 性 指 示 了Image 对 象 的 当 前 左 上 角 位 置;

调 用LoadPicture 函 数 装 载 不 同 的 图 象, 并 赋 给Image 对 象 的Picture 属 性, 将 在 对 象 中 显 示 不 同 的 图 象, 即 实 现 图 象 变 化;

修 改Image 对 象 的Width 和/ 或Height 属 性 可 以 缩 放 图 象。
---- 使 用Timer 控 件 可 以 实 现 定 时 控 制。Timer 对 象 的Interval 属 性 设 置 了 定 时 间 隔, 即 调 用Timer 事 件 过 程 的 时 间 间 隔。 在Timer 事 件 过 程 中 处 理 控 制Image 对 象 的 移 动 或 变 化, 便 能 实 现 动 画。Timer 对 象 的Interval 值 决 定 了 动 画 的 变 化 或 移 动 速 度, 其 单 位 是 毫 秒(1/1000 秒)。
---- Timer 对 象 的Enabled 属 性 决 定 了Timer 事 件 是 否 有 效。 设 置Enabled 属 性 为True 将 启 动Timer 事 件( 如 启 动 动 画); 为False 则 将 使Timer 事 件 无 效( 如 停 止 动 画)。

二、 无 位 移 动 画

---- 无 位 移 动 画 是 指 动 画 对 象 不 移 动, 但 图 象 不 断 变 化, 其 典 型 例 子 是 翻 书。 实 现 无 位 移 动 画 的 方 法 是, 设 置 好Image 对 象 和Timer 对 象 后, 在Timer 事 件 过 程 中 调 用 调 用LoadPicture 函 数 装 载 不 同 的 图 象, 并 赋 予Image 对 象 的Picture 属 性, 使 对 象 中 显 示 不 同 的 图 象, 即 实 现 图 象 变 化。
---- 下 面 是 翻 书 动 画 的 例 子。 程 序 启 动 时, 在 窗 体 中 显 示 一 本 翻 开 的 书, 用 鼠 标 左 键 点 击 书, 则 将 开 始 翻 书; 再 用 鼠 标 左 键 点 击 书, 则 书 将 停 止 翻 动。 位 图 文 件book1.bmp~ book4.bmp 分 别 表 现 了 翻 书 时, 正 在 翻 的 书 页 的 不 同 位 置, 它 们 存 放 在 当 前 工 程 所 在 的 目 录 中。

---- 在 需 显 示 动 画 的 窗 体(Form1) 中 设 置Image 对 象Image1 和Timer 对 象Timer1, 并 按 下 表 设 置 它 们 的 属 性, 未 列 出 的 属 性 使 用 缺 省 值。

.
.
.


三、 单 帧 位 移 动 画

---- 单 帧 位 移 动 画, 是 指 同 一 幅 图 象 的 位 置 不 断 变 化 而 形 成 的 动 画, 其 典 型 实 例 时 云 彩 被 风 吹 动。 编 制 单 帧 位 移 动 画 的 方 法 是 在Timer 事 件 过 程 中 调 用Image 对 象 的Move 方 法 来 移 动 图 象。
---- 下 面 是 云 彩 移 动 的 例 子。 程 序 启 动 时, 在 窗 体 中 显 示 一 朵 云, 用 鼠 标 左 键 点 击 云, 则 云 彩 将 开 始 飘 动, 如 碰 到 窗 体 的 边 界, 云 彩 将 改 变 移 动 方 向; 再 用 鼠 标 左 键 点 击 云, 则 云 将 停 止 移 动。 位 图 文 件cloud.bmp 存 放 在 当 前 工 程 所 在 的 目 录 中。

---- 在 需 显 示 动 画 的 窗 体(Form1) 中 设 置Image 对 象Image1 和Timer 对 象Timer1, 并 按 下 表 设 置 它 们 的 属 性, 未 列 出 的 属 性 使 用 缺 省 值。

.
.
.


---- 注 意, 云 彩 碰 到 边 界 而 反 向 移 动, 是 通 过 改 变DetaX%、 DetaY% 的 符 号 来 实 现 的。
四、 多 帧 位 移 动 画

---- 多 帧 位 移 动 画 是 最 复 杂 的 动 画, 综 合 了 无 位 移 动 画 和 单 帧 位 移 动 画 的 特 点。 自 然 界 的 运 动 大 多 数 都 具 有 多 帧 位 移 的 特 点, 如 小 鸟 的 飞 翔, 在 小 鸟 位 置 的 移 动 的 同 时, 其 翅 膀 也 在 扇 动。 实 现 多 帧 位 移 动 画 需 要 在Timer 事 件 过 程 中 同 时 处 理Image 对 象 的 图 象 更 替 和 位 置 移 动。
---- 下 面 是 小 鸟 飞 翔 的 例 子。 程 序 启 动 时, 在 窗 体 中 显 示 一 只 小 鸟, 用 鼠 标 左 键 点 击 它, 则 小 鸟 将 开 始 扇 翅 飞 翔, 如 碰 到 窗 体 的 边 界, 小 鸟 将 改 变 飞 翔 方 向; 再 用 鼠 标 左 键 点 击 小 鸟, 则 小 鸟 将 停 止 飞 翔。 位 图 文 件bird1.bmp~ bird4.bmp 分 别 表 现 了 小 鸟 飞 翔 时, 其 翅 膀 的 不 同 位 置, 它 们 存 放 在 当 前 工 程 所 在 的 目 录 中。

---- 在 需 显 示 动 画 的 窗 体(Form1) 中 设 置Image 对 象Image1 和Timer 对 象Timer1, 并 按 下 表 设 置 它 们 的 属 性, 未 列 出 的 属 性 使 用 缺 省 值。

.
.
.


五、 缩 放 动 画

---- 气 球 的 膨 胀 或 缩 小 是 缩 放 动 画 的 典 型 例 子。 在Timer 事 件 过 程 中 修 改Image 对 象 的Width 和/ 或Height 属 性, 便 可 实 现 缩 放 动 画。 但 如 果 要 表 现 物 体 的 同 心 缩 放, 则 还 应 同 时 还 需 移 动Image 对 象。
---- 下 面 是 模 拟 气 球 在 空 中 缩 放( 同 心) 的 例 子。 程 序 启 动 时, 在 窗 体 中 显 示 一 只 气 球, 用 鼠 标 左 键 点 击 它, 则 气 球 将 开 始 膨 胀, 如 碰 到 窗 体 的 边 界, 气 球 将 缩 小, 缩 小 到 原 来 大 小 时, 又 将 膨 胀; 再 用 鼠 标 左 键 点 击 气 球, 则 气 球 将 停 止 缩 放。 位 图 文 件Balloon.bmp 存 放 在 当 前 工 程 所 在 的 目 录 中。

---- 在 需 显 示 动 画 的 窗 体(Form1) 中 设 置Image 对 象Image1 和Timer 对 象Timer1, 并 按 下 表 设 置 它 们 的 属 性, 未 列 出 的 属 性 使 用 缺 省 值。

对象
属性
设置值
Image1
Picture
...(工程文件所处路径)\Balloon.bmp
.


杭州兆合陈洋:微气象大民生,气象微信平台研发探索 【探秘ES6】系列专栏(十):更深入了解生成器 【探秘ES6】系列专栏(十一):类语法 《近匠》专访Depth VR:浅析VR交互技术选型中的瓶颈与机遇 【CTO讲堂】将“简单快速”渗透到移动开发测试每个环节,从fir.im团队说起 全球开发者报告:Windows Phone已死,Windows 10长存 苹果官方博客:从SDK详说Swift代码的改变 Espresso实战:快速的Android UI自动化测试 《Java并发编程的艺术》作者方腾飞:感谢Java,带我一路前行! Crystal:一个类似于Ruby语法的编程语言 谁将是传统密码的终结者 专访民生银行:CPOS平台如何从线下布局移动支付 MathWorks程邺:机器人时代未来已来 Swift编程规范:保持代码优美的10个方法 中国第二届CSS开发者大会视频&PPT全部免费观看 如何基于Vert.x实现远程调用? Go 1.5如期发布,完全告别C代码 Rust一周集锦(三):关闭3个RFC并为1.4版本做准备 【CTO讲堂】多备份创始人陈元强:在线灾备革命背后的事 探索React:组件间通信过程解析 机智云完成2亿元B轮融资 将围绕信息安全与机器学习创建“机智云联合实验室” 【CTO讲堂】深度?广度?浅析技术人员的职业发展之路 详解React Flux架构工作方式 专访Tiny框架创始人悠然:好的软件设计是“品”出来的 开发移动应用的7大设计要点 历时一年半 现代Web框架Phoenix 1.0正式发布 【七问七答】对话Erlang核心成员Eric Merritt 分布式文档数据库MongoDB开发版本3.1.7发布 年末巨献!SDCC 2015中国软件开发者嘉年华全面开启 Qualcomm中国2015高峰论坛:新品牌与5G技术展望 福利!MDCC 2015 免费展位等你来申请! 今天新买一台机器,xp1800+ 承启nforce2 +Kingmax333 256DDR +ST80G用起来一个字,爽! RichTextBox控件如何读取使用UTF8编码的文本文件? 程序编译到AfxWinMain就显示警告信息 建设一个一般的callcenter有10-20坐席,大概需多少钱呀 散分!!第一个程序在天空提交通过!! (帮我搞定,高分相赠,在线等待!)ASP上传图片到SQLServer,为什么老提示对象不支持appendchunkmydata方法? CheckBox可以同时传递多个值吗? 请问有用过visual interdev的,如何让interdev也像dreamweaver可以在写程序的时候显示代码在哪行的啊.多谢了 请高手帮忙解决我的问题,在此表示谢谢! 有关datagrid 和webform 的问题 程序员的艳遇。。。。。。 验证字符串问题 IE问题!好烦人啊!那位高手能帮我解答! 怎么在建表时使用一个时间函数??就是指出加这条这条文件的时间?? 高手请进,多数据库链接的问题 如何成为一个程序员? 事务以及回滚的问题 有做完一个作业,放60分。 关于ASP调用VC编的DLL接收返回参数的问题 我提问,大家回答 有没有关于触发器的电子书籍? 怎么能够获得数据库的连接字串呀?? 大讨论:目前用什么工具、做什么开发最能赚钱?散分啦!感兴趣的程序员们快来!! 在IE中,打开某个页面,会连接到www.lop.com页面 关于islower(ch),isdigit(ch) 疑问 BQQ的服务器端有没有保存用户的聊天记录的? 如何获得程序方向键输入?多谢! 求助有关IFS-HOOK 高手请入!!急救!求msflexgrid 的打印源码????? 如何在list中显示文件夹 哪里可以看到Obejct类clone的实现方法? 系统的FOUND.00*文件夹里放的FILE000*是什么文件?可以删除吗?刚装系统时没有这些文件的阿 给分啊 今日郁闷之至……散分! 来来来,大伙们一起来衷心祝愿xxmm (晓箫)的老爸老妈顺利赴美参加晓箫的毕业典礼!! Dev-Cpp 使用 NetAPI32.lib 的问题 急寻严蔚敏,吴伟民版《数据结构习题集》c语言版的答案,请问哪有啊 高手们给我一个超级简单的HOOK API的例子好吗?求你们了。 错在哪里 好郁闷啊~ 谁有站内关键字模糊查询的代码?紧急求救、在线等待!!!! 字符串转化为数组的问题 讨论<<标准C++库大全>> 上次是哪位兄弟要的《新编API参考大全》CHM版呀?我找到了一个,还行。 欢迎大家访问我公司的网站! 请学c++builder 有份量的人推荐一本经典的教材(适合初学者) 欢迎大家访问我们公司的网址! 关于分页的问题 the light in his room is on,he must be backcars mustn't be parked in the street告诉我一下他门两个的意思,句型,时态,句拭特点 2013中国的大事件 I don't like the dictionary.My brother doesn't like the dictionary.(用neither…nor…连成一句话)Jack and Tom are classmates.(改为一般疑问句)I bought a watch for my dad.(对划线部分提问)全回答另加20分 get sb a ride与give sb a ride的区别是什么 世博园里的科普小知识是什么能告诉我两个吗? Does Nick has an orange bag?下列句子中均有一处错误,请指出并改正 amaze什么意思 世博园的科普小知识有哪些 为什么说人类社会最终会走向灭亡. amaze的形容词是什么? 请问“disco”是啥意思?我从鼹鼠的故事第55集看到了“disco”这个词,请问它是啥意思? (原创)孔雀东南飞 自己写的!君妾情依依,惟恐情不专.情不专亦恐,犹恐父母命.虽与君相誓,情如磐石坚.风吹日雨落,磐石不复坚.与君离别亦,心如刀割绞.情丝难断矣,无奈与君别.来世情再续, amaze和amuse 的意思? disco什么意思 热有极限吗?温度的最低是-273.15C,最高呢?有极限吗?人类所知最高温是什么?是多少? 为了他的尊严中这个独臂乞丐是如何走向成功的,请发挥想象,写写他奋斗的过程 甲乙两地相距226千米,客车和货车分别从甲乙两地同时出发相像而行,2.5小时后两车相距46千米,客车每小时行40千米,货车每小时行多少千米?(方程解) Time machine 是正宗英语吗? You amaze me 什么意思? disco中文意思DISCO的中文意思是叫什么 由于系统故障导致安装comodo的目录被格了,于是我就想重装comodo time machine,但是安装时总提示重启系统,但是重启后还是装不了,清理过注册表也不行,yandekiss 你回答得有点技术含量好不好,就算 《为了他的尊严》这个独臂乞丐是如何走向成功的,发挥想象,写写他奋斗的过程. 最早的乞丐是何时出现的? 找经典对联.优美好听的,几个好听的,语言优美.或者是朴实的.一定要让人一听就很舒服的.11ban 禁抄 AMAZE 英文 有太棒了,或者,太神奇了之类的意思么我看可口可乐广告最后一句是这个啊,意思是太棒了 my firend sent me an e-mail→I()()()()by my firend HE has an orange bag改为否定句 这个独臂乞丐是如何走向成功的,请发挥想象,写写他奋斗的过程 产生乞丐的原因 把“He has an orange.”改为陈述句和否定句.本人英语实在是不好.希望会英语的同学可以帮忙说一下. 这个独臂乞丐是如何走向成功的,请发挥想象, 乞丐是怎么产生的?为什么要叫做乞丐.我要详细一点而不罗嗦的回答. He has a black bag.(改为否定句) We can take some food and fruit with us. 乞丐节是什么时候 Tom ofter does morning exercises.Tom ofter does morning exercises. 改成否定句和一般疑问句! go for a ride on 是不是on后面只能跟自行车连 其他的词不能接后面 annie的英语是什么意思? food / drink / fruit / candy 这四个单词可数不可数问题1.个人理解 food / drink / fruit / candy 表示它们本身意思的时候都是不可数的,而表示它们各自的种类的时候都又是可数的名词了.可以这么理解吗? 每天晚上六点四十放学没有晚自习每天都会写作业写到十二点多我是那种写作业到多晚都不会困..但是白天上课很容易困的学生但我自控能力很差,总喜欢写一会作业就去看一会电视..找点东 annie英文什么意思 he has an orange 的复数是什么 你从这个独臂乞丐走向成功的事件中得到了什么启示 陈明在8~14岁的每年生日时都测体重,请你说说陈明的体重增长情况. drink到底可数还是不可数?We'd like something ( ) .括号中的填drink还是drinks 乌贼和章鱼有什么区别,平时吃的墨鱼是和它们是一类的吗? 孔雀东南飞仿写仿写宋祖英由湘西农家女成为民歌天后 他们说,蔺相如怕廉颇像老鼠见了猫似的.再写一个有相同修辞手法的句子,快 墨鱼.章鱼.鱿鱼.乌贼.八爪鱼是什么样的 他们是同一种类的鱼么 annie和henry十年前发生了什么? 他们说,蔺相如见了廉颇像老鼠见了猫似的,仿写句子 急求蝜蝂传的翻译~~谢谢急需急需蝜蝂传翻译~~谢谢~~~~~~ HeNry 怎么读 蔺相如见了廉颇像老鼠见了猫似的仿照句子人们说,蔺相如见了廉颇像老鼠见了猫似的.______见了______像____________ I think evey one should be in good health 同义 Were and when do you often have your meals? 什么意思 仿照 “蔺相如怕廉颇像老鼠见了猫似的”这个句子的写法写一句话 i would like to live live somewhere near the university,or at least on a bus line 《孔雀东南飞》编写或改写或续写要现代文, 1、蔺相如见了廉颇像老鼠见了猫似的,为什么要怕他呢!用了什么修辞手法2、大虫见掀他不着,吼一声,就像半天里起了个霹雳,震得那山冈也动了用了什么修辞手法3、日本到处有樱花,有的是几 美国在欧反导基地开建 防范伊朗导弹引中央巡视组:把发现问题、形成震慑作为专家析中央巡视组组长一次一授权:改变网络红人板车哥来到余杭 行万里路为穷16岁伴娘婚礼上遭多人扒光摸遍全身(温州公交车刮擦劳斯莱斯幻影加长版轿车11年来最强风暴袭英国 海陆空交通大英国“小报女王”将接受刑事审判 令世美国在欧反导基地开建 防范伊朗导弹引安倍突访土耳其 传为劝阻土放弃购中国杰克逊私人医生刑满出狱 欲再获行医执浙江11月1日起试发布县级城市实时空经国务院同意 杭州再启城市总体规划修1477吨进口菜油掺入国储库 中储粮九省区市可网查个人信用 注册到看结果医师协会等四部门联合呼吁:对医疗暴力卫计委将启动雾霾健康影响监测 农村将甬台温输气管道紧张施工(图)中国将建立空气污染(雾霾)健康影响监浙江下月起发布县级城市环境空气质量指微雨将至缓秋燥 本周天气温和但昼夜温美法将采取进一步措施打击“伊斯兰国”伊力哈木·土赫提分裂国家案一审公开开美参院批准向温和派叙利亚反政府武装提美一男子枪杀女儿和6名孙辈后自杀新疆17城市鸣警报 提醒市民居安思危乌鲁木齐沙区2014年内拟建43座标英国一少年向母亲出柜 母亲向其透露同台“汉光”军演再出状况 反潜火箭险命乌鲁木齐县建成2000亩“苗木银行”安庆:100元竟买了两枚“金戒指” 美国在伊反恐很纠结:如何面对持美护照阿隆索回应转会红牛传闻:法拉利品牌比淄博启智教育突然关门家长讨学费 疑因阳信一企业污染农田无占地手续 国土部山东省运会将决出620多枚金牌 各种山东男子被掳至日本当劳工 逃至北海道8月份山东四市房价三连跌 济南新房价莱芜一半挂车20吨钢卷甩出车厢 砸扁山东10月1日起下放糕点等8大类食品烟台小伙清新网上代办大额度信用卡 被山东首条现代有轨电车示范线在青岛铺轨
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘