沿着窗体边框转动的图片.htm

来自「VBSCRIPT的源码,相信很多html程序员都会用到,这些源码小小变动一下,可」· HTM 代码 · 共 69 行

HTM
69
字号
<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
<HTML>
<HEAD>
<TITLE>
	沿着窗体边框转动的图片
</TITLE>
<div id="img1"; style="position:absolute; top:0;left:0;display:none">
<img src="1.JPG" width="120" height="60">
</div>
<script LANGUAGE="VBScript">
dim k,j,img1px,img1py
k=20
j=0
sub window_onload()

img1px=30
img1py=30

time1=settimeout("timer1()",1000)
end sub

function timer1()


img1.style.display=""


img1.style.left=img1px+k
img1.style.top=img1py+j

img1px=img1px+k
img1py=img1py+j

time2=settimeout("timer2()",10)
end function

function timer2()

if img1px>=600 then
k=0
j=20
end if

if img1py>=380 then
k=-20
j=0
end if

if img1px<=10 then
k=0
j=-20
end if

if img1py<=10 then
k=20
j=0
img1px=30
img1py=30
end if
img1.style.left=img1px+k
img1.style.top=img1py+j
img1px=img1px+k
img1py=img1py+j
time1=settimeout("timer1()",10)
end function
</SCRIPT>
</HEAD>
</HTML>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?