程序博客网 > vb linq

窗口中一直飘动的广告效果

来源：互联网发布：vb linq 编辑：程序博客网时间：2024/05/05 06:38

下面代码是一个漂浮广告效果，请把IMG的SRC改成你自己电脑上的一张图片的地址。

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" >

<head>

<title>无标题页</title>

<script>

var dx=5,dy=5;

var interval=100;

var intervalID=window.setInterval('moveDiv()',interval);

function moveDiv()

{

if(window.closed)

{

clearInterval(intervalID);

}

window.status=document.getElementById('swfDiv').style.posLeft+dx;

//(window.screen.availWidth-100) (window.screen.availHeight-80)

if(((document.getElementById('swfDiv').style.posLeft+dx)>800)||((document.getElementById('swfDiv').style.posLeft+dx)<0))

{

dx=-dx;

}

if(((document.getElementById('swfDiv').style.posTop+dy)>445)||((document.getElementById('swfDiv').style.posTop+dy)<0))

{

dy=-dy;

}

document.getElementById('swfDiv').style.posLeft += dx;

document.getElementById('swfDiv').style.posTop += dy;

}

</script>

</head>

<body>

<div id="swfDiv" style="width:100px; height:80px; position:absolute; top:0; left:0; z-index:99; border-bottom:solid 1px black; border-left:solid 1px black; border-right:solid 1px black; border-top:solid 1px black">

<img src="{67A7B337-4419-4361-92CC-F8FC3F445680}.JPG" />

</div>

</body>

</html>

vb linq

vb linq

原创粉丝点击

热门问题 老师的惩罚人脸识别我在镇武司摸鱼那些年重生之率土为王我在大康的咸鱼生活盘龙之生命进化天生仙种凡人之先天五行春回大明朝姑娘不必设防，我是瞎子岳不群岳不群是谁华山岳不群岳不群结局华山掌门岳不群夫人宁中则岳不群为什么恨令狐冲诸天之岳不群落叶飘零燕岳世鑫岳丽娜老公岳丽娜个人资料及图片岳丽娜生了3个孩子岳丽娜比基尼照片岳丽娜三个孩子岳丽娜泳装图片郭大师相声网缶云鹏相声大全缶云鹏孙越相声全集岳以恩岳以恩个人资料岳以恩爸爸是谁岳以恩资料岳口高中天门岳口夏辉老婆照片北京岳各庄批发市场燕青丝和岳听风免费阅读探岳图片大众探岳图片大众途岳图片大众途岳报价及图片途岳汽车图片大众探岳2019款报价及图片途岳图片大众途岳2019款图片及价格途岳价格及图片探岳价格图片大众途岳2018款图片多少钱大众探岳2019新款图片大众探岳2018新款图片大众探岳内饰图片大众探岳报价及图片途岳2018款报价及图片