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

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
.


继Storm和Spark之后,Hortonworks添加对Kafka的支持 一周消息树:国产操作系统最快10月发布,并支持应用商店 技术团队看板方法实践的难点分析 SAP云服务加速转型:调动资源瞄准中国市场 开发测试全承包!移动应用开发工具Telerik平台 火火火火火!看HomeKit如何改变物联网和智能家居? MDCC应用与工具关键词:平台、社交、垂直、解决方案 Leap Motion正式入华 将发布第二代软件SDK 120万操作/秒Redis Cloud 集群单一服务器非基准测试程序 2014微信开发者大会顺利结束 TOP10优秀微信开发商名单公布 【最佳实践】通过DevOps确保可靠和有效的信息安全 2048 Hello World:跨平台快速应用开发Python框架Kivy Forrester:关于私有云的10个事实 2014年8月操作系统份额:Win 8.x大涨,Linux继续下跌 0代码、不编程—交互式网页设计工具VXPLO 揭秘Instagram Hyperlapse背后的技术 【CTO俱乐部在线教育研讨会】用互联网技术深入创新教育产品 降低门槛!Hybrid应用开发框架LigerMobile 下一代IT革命:微服务器和雾计算 使用Mongo Connector和Elasticsearch实现模糊匹配 时隔8个月,物联网联盟AllSeen如今怎样? 《近匠》简网:开发零门槛 快速建原生App MDCC免费展位申请超预期 大会内容初曝光 在服务器与交换机定制之后,谷歌着手量子计算机CPU设计 电信天翼开放平台鲍占斌:优质能力 分成比例高 艾格拉斯副总裁王晓波:手游定价如何设计 Xcode 6 Beta 7发布:语法定、内库改,Swift何时完善? 干货来袭:由22个联邦机构分享的6482个数据集 Phablet出货量今年将超移动PC,明年再超平板 如何提高Web服务端并发效率的异步编程技术? 改改改!让应用通过审核出人头地的10个方法 DELPHI有史以来最大的难题! 二级联动菜单怎么搞啊??各位大虾救急啊!!! 请赐教 如何建立mts與com,dcom,com+通信,其中每種方式有何不同之處? 有个有关j2ee应用服务器的问题,很困惑!(急,一定给分!) 学习c和c++学要学习汇编吗????? 我先试一 下 关于得到文件的名字? 用5行代码就让系统重起的帖子怎么找不着了?谁告诉我?加分了!! 素女经 如何修改SQL数据库表中的数据 在对话框里输出文字?不要控件!!不要static 控件 一个关于打印的怪问题! 如何将数据库通过JDBC接收并将字段关键字连成一棵树(每一分支最多64节点) 救急!!!!!!!小妹我遇到一点问题! 今年就业形势“大好”! ******* 马上就给分,所以给的少了点,大家别介意 ******** 大家给点意见 请关注一个初学者的问题?我学sql但是不知未来的发展趋势!? 图形数据窗口(line 星)点太大,如何缩小 救急!!!!小妹我遇到一点问题! 用bcb制作动态网页 数据窗口 Graph 类型 line 样式 如何学c语言? Delphi中如何获的其它应用程序中的内容? 显示颜色变成只有16色和2色? DWORD 参数传递的问题。 那里有播放AVI文件的程序?谢谢! 参数传递问题!!大侠帮帮我 请帮我修改一下源代码(delphi)请帮忙改一下,让它打印了不往里(数据库)存。 BIOS设置,用电脑是不是可以当闹钟呢? 五笔输入法忽然不能用了 救就我,为什么Frame的客户区变小了?关于切分窗口 怎样查找某一个目录下一个表是否存在? 请问有用过李阳疯狂英语的朋友吗?请说说到底怎么样? 我想向各位大侠请教一个问题? 如何屏蔽TEXTBOX的回车响应? 关于《各位学习编程的目的是什么》的总结 m_pusrrcdset->m_pDatabase->ExecuteSQL("")为什么不行?老是ASSERT错误 请问我刚入bcb的大门,有什么好的参考书可以看看吗? 有没有人知道计算机等级考试四级怎么查分啊? 如何将几个数组的信息写成一个.txt文本文件 笔试题请教? 请教一个小问题! 好难呀好难呀!!!!! 今天狠了狠心买了一本<>,花了我十分之一的工资!心疼啊!散点分! 请问有谁知道如何在C#中使用DirectX? 我在Picturebox中用Picture1.print打了200行数据,可我只能看到前20行 pb数据窗口中的列名在win2000 server里为什么显示不了中文? God save me,help...... 填上合适的词语:( )态度 ( )作用 鼓舞( )填上合适的词语:( )态度 ( )作用 鼓舞( )请选择恰当模拟声音的词语填空:毕毕剥剥 扑踏扑踏 嗡嗡 呼呼 笃笃 叮咚叮咚 咯吱咯吱 根据字义组词全( ) 向远处看( )举:向上托( ) 望:意料( )推选( ) 探看( )看( ) 好办( )见:看法( ) 易:交换( )会面( ) 和气( ) 仓库运来一批粮食.其中小麦35吨,稻谷比小麦和黄豆的总数还多12吨.问:运来的黄豆比的稻谷少多少吨 已知集合A={α|2kπ≤α≤(2k+1)π,k∈Z},B={α|-4≤α≤4},则A∩B=非常疑惑的是 这里的α是表示弧度角度还是单纯的一个常数呢 好纠结 希望在解决题目的同时能帮我讲讲怎么判断一个数什么时候 根据字义组词语陷:1、掉进(),2、凹进(),3、陷害() 仓库运来一批粮食.其中小麦35吨,稻谷比小麦和黄豆的总数还多12吨.问:运来的黄豆比稻谷少多少吨 阅读“冬日雏菊自芬芳”第三自然段,请问小雏菊生长在一个怎样的环境中?作者为什么要特意写出这样的环境? 显露:( )(根据字义组词)根据字义组词,并用透组词, 周口哪有收购粮食的?例如小麦、大豆、玉米之类?除了粮食仓库之外能不能提供联系方式啊? "我是班长"最后一个自然段起到了什么作用? 根据字义组词:算算:弄清是非算:计划,筹划.要明确一点!用算组词! 在平面直角坐标系中,已知点(1-2a,a-2)在第三象限,且a为整数,求a的值.请写出具体过程, 搭石最后一自然段起什么作用 根据字义组词.稍稍喘息( )透穿过,通过( )到处都是( )漫随随便便( )断( )绝独一无二,没有可比的( ) 在平面直角坐标系中,点E(3k-9,1-k)在第三象限内,且点的坐标都为整数,求E点的坐标 写叶子的古诗词五首以上 雏菊什么篱笆 已知点A(m,n),在平面直角坐标系中的第三象限,其坐标m,n满足3m+2n=k-9,2m+n=k-7.(1)、求整数K的值;(2)、当K为整数时,分解因式(a+b)³-k(a+b)=? 写叶子的诗句描写叶子的不论今、古、中、外诗歌散文均可最好附有赏析要附有赏析 雏菊 篱笆.黄昏雏菊 篱笆.黄昏 村庄.阳光 大海.把下面句子填写完整使他们读起来充满诗情画意. 海洋对地球的天气有什么作用 求带“叶”字的诗句和写叶子的诗句有急用,今天必须回答上! (拟人句)雏菊____________________篱笆.黄昏( )村庄 海洋对环境的作用 在括号里填上合适的词语 ()的树叶风格 雏菊紧靠篱笆生长.(改写拟人句) 海洋在调节全球气候的作用,谈谈目前的研究概况 实际应用的可能性等等 以知集合A={α|2kπ 雏菊.篱笆 黄昏.村庄 阳光.大海填写完整 海洋如何调节全球气候越快越好 如何准确辨别雏菊、矢车菊和大波斯菊?各自的花语又是什么? 按字义组词张:1、铺排、陈列(组褒义词成语) 2、看望好:1、喜欢(组褒义词成语) 2、友爱各:1、逐个(组褒义词成语) 2、各个不同熟:1、成熟 2、习惯、常见、清楚要快,又快又好 在平面直角坐标系中,已知点p(1-3m,m-4)在第三象限,且m为整数,求m的值. 第九题,为什么当A等于空集时,k+1大于2k? 我会根据字义组词章:歌曲诗文的段落() 条理() 章程()挽:拉() 哀悼死者()会几个,填几个 已知m,n为整数,且满足2m^2+n^2+3m+n-1=0,求m,n的值 一.在下面的空白处填上适当的词语,使句子变成拟人句.1猫要是 ,能比谁都 .2秋天到了,高 空气对环境有什么作用 已知点P(2M-1,-3M-1)在第三象限内,若M为整数,求点P的坐标 雏菊的英文咋写 裸子植物是我国各地城镇常见的树种,对于___环境,___空气和减轻___污染等具有重要作用快 已知点【2M-13,16 -3M】在第三象限,整数M的值是? “稻谷成熟了”拟人句怎么写? 化学在未来的生活中会起到什么作用?比如在空气环境方面?食物方面? 微生物对环境的正面影响和负面影响 雏菊的英文名称 根据字义组词:冷1,温度低()2,寂静,不热闹()3,暗中的,突然的() 人类对环境造成的正和负面影响? 韩国电影的英文介绍我们上课要用,越详细越好.(不仅仅是剧情)最好是有中文对照的, 在平面直角坐标系内,已知点(1-2a,a-2)在第三象限,且a为整数,求a的值. 生物都生活在有空气的环境中.这句话对吗? 雏菊的英语怎么拼? 净化环境和调节空气一样吗 在平面直角坐标系中,已知点A(-3,N)和点B(1-M,M-3),若点A与点B关于Y轴对称,则M= N= 雏菊英语怎么说 森林能净化空气,调节气候的现象是不是主要说明了环境对植物的影响/ 影响生物生活的环境因素分为两大类:一类是〔 〕,如阳光、空气等;另一类是〔 〕,是指影响生物生存的其他 填上合适的词语( )的大厦,( )的香气,( )的椰树,( )的国槐,( )的油松( )的气质,( )的树冠 已知集合A={a|2kπ 封闭环境的操作空间,空气有哪些有害物质?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn