ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

窗体动画(VBA交互脚本)

[复制链接]

TA的精华主题

TA的得分主题

发表于 2010-3-27 19:25 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
效果由VBA+JAVASCRIPT实现的

新建文件夹.rar

42.59 KB, 下载次数: 757

TA的精华主题

TA的得分主题

发表于 2010-3-27 19:33 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
这个好玩,谢谢版主分享.

TA的精华主题

TA的得分主题

发表于 2010-3-27 19:34 | 显示全部楼层
简单实用,好东西,谢谢版主分享

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-3-27 19:38 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
原帖由 kevinchengcw 于 2010-3-27 19:34 发表
简单实用,好东西,谢谢版主分享

简单实用,很同意这句话

TA的精华主题

TA的得分主题

发表于 2010-3-27 19:49 | 显示全部楼层
原帖由 HHAAMM 于 2010-3-27 19:38 发表

简单实用,很同意这句话


很有味道,谢谢 学习了

TA的精华主题

TA的得分主题

发表于 2010-3-27 19:52 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
谢谢版主分享

TA的精华主题

TA的得分主题

发表于 2010-3-28 10:44 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2010-3-31 15:01 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2010-3-31 15:56 | 显示全部楼层
看代码好像不是很简单哦?
<title>JS图片切换 ::</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta name="generator" content="editplus" />
<meta name="author" content="eLore" />
<meta name="keywords" content="" />
<meta name="description" content="" />
<style type="text/css">
* { margin:0; padding:0; }
body {
margin:0;
color:#88c;
background:#333;
background-color: #FFCC00;
}
img { margin:0; padding:0; border:0; }
#js_F {
position:relative;
top:10px; left:10px;
overflow:hidden;
width:120px; height:120px;
background:#33c;
}
#js_F img{
position:absolute;
top:0; left:0;
width:120px; height:120px;
}
</style>
</head>
<body>
<div id="js_F"></div>
<script type="text/javascript">
<!--///*--><![CDATA[/*><!--*/
var js_F = document.getElementById("js_F");
var imgList = ["D:/img/1.jpg", "D:/img/2.jpg", "D:/img/3.jpg", "D:/img/4.jpg" ];
var imgTemp = new Array();
for (i=0; i<imgList.length; i++){
imgTemp = new Image();
imgTemp.src = imgList;
}
var imgs = new Array();
var imgID = 0, nextImgID, proveImgID;
var tf = true; //图片移动方向标志
var speed1 = 10; speed2 = 600; //速度
function imgInit(){
var content = '';
for (i=0; i<imgList.length; i++){
  content += '<img src="' + imgList + '" style="left:0;" />\n';
}
js_F.innerHTML = content;
imgs = js_F.getElementsByTagName('img');
imgs[0].style.zIndex = 20;
imgs[1].style.zIndex = 15;
}
function imgChange(){
if ((imgID+1)<imgList.length){
  nextImgID = imgID + 1;
} else if (imgID<imgList.length) {
  nextImgID = 0;
} else {
  imgID = 0;
  nextImgID = imgID + 1;
}
imgs[imgID].style.zIndex = 20;
imgs[nextImgID].style.zIndex = 15;
setTimeout('imgShow()',speed2);
}
function imgShow(){
if (tf){ //imgID向左边移动2/3,nextImgID向右边1/3
  if (parseInt(imgs[imgID].style.left)>-180){
   imgs[imgID].style.left = (parseInt(imgs[imgID].style.left)-10) + 'px';
   imgs[nextImgID].style.left = (parseInt(imgs[nextImgID].style.left)+5) + 'px';
   setTimeout('imgShow()',speed1);
  } else {
   tf = !tf;
   imgs[imgID].style.zIndex = 15;
   imgs[nextImgID].style.zIndex = 20;
   setTimeout('imgShow()',speed1);
  }
} else {
  if (parseInt(imgs[imgID].style.left)<0){
   imgs[imgID].style.left = (parseInt(imgs[imgID].style.left)+10) + 'px';
   imgs[nextImgID].style.left = (parseInt(imgs[nextImgID].style.left)-5) + 'px';
   setTimeout('imgShow()',speed1);
  } else {
   imgs[imgID].style.zIndex = 10;
   tf = !tf;
   imgID++;
   imgChange();
  }
}
}
imgInit();
imgChange();
/*]]>*///-->
</script>
</body>
</html>

TA的精华主题

TA的得分主题

发表于 2010-3-31 23:22 | 显示全部楼层
牛啊 我什么时候能到这种水平啊?
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-9-8 08:27 , Processed in 0.036580 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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