ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 40691|回复: 51

[分享]不用控件也来显示GIF动画...

[复制链接]

TA的精华主题

TA的得分主题

发表于 2003-5-2 00:36 | 显示全部楼层 |阅读模式
1、费点工夫把GIF分割成单幅图片(如下图); 2、在VBA用户窗体中建立IMAGE控件,逐一分配各图片 3、用API的时钟函数控制图片按序显示出来 呵呵,做了一个效果还不错[em02] [em02]

TA的精华主题

TA的得分主题

发表于 2003-5-2 07:43 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2003-5-2 14:09 | 显示全部楼层
好东东!如能让窗体自动引用Image就好了,记得VB是可以的。

TA的精华主题

TA的得分主题

 楼主| 发表于 2003-5-2 15:57 | 显示全部楼层
TO xiaog: 能够喜欢,我很开心:) 其实自动引用我当时做的时候也曾想这样做,因为用程序控制总比在设计时省力多了,可是这样一来,图片与文档是分离开的了,除非做成资源文件,但也还是分成了两个或以上的的文件,倒不如一个XLS来的省事些。不知既用程序控制又能将图片放在一个文档中方法有没有?

TA的精华主题

TA的得分主题

发表于 2003-5-2 16:05 | 显示全部楼层
To: ldhyob TID = SetTimer(0, 0, Sec * 150, AddressOf checktime)运行出错, 如何设置AddressOf checktime?

TA的精华主题

TA的得分主题

 楼主| 发表于 2003-5-2 16:19 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
是吗?文档在我这儿运行正常啊! checktime子程序应放在模块中.

TA的精华主题

TA的得分主题

发表于 2003-5-2 16:49 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
AddressOf checktime中有空格,改:模板1.checktime,缺(函数或)变量。可能是Office97的原因?手动玩了一下,达不到应有的效果。 我以为您还藏了一手。我在琢磨琢磨怎么认它自己动起来。 谢谢您的奉献!

TA的精华主题

TA的得分主题

发表于 2003-5-2 23:19 | 显示全部楼层
多谢你的点子 我想到一点 把自己开发的程序也加入程序欢迎的窗口,如发炮制,效果应该不错的。 我想知道API函数的学习资料如何能够找到,能够指点一二?

TA的精华主题

TA的得分主题

发表于 2005-1-6 10:22 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
我下载了,但是看到的是一个独立的动画,如果我想把动画在某个.xls文件中使用的话,该如何用控件来做,能把方法再讲得具体些吗?

TA的精华主题

TA的得分主题

发表于 2005-3-15 10:20 | 显示全部楼层
api 中的SetTimer 函数及KillTimer函数如何使用的
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-5-17 13:03 , Processed in 0.049847 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表