📄 沿着窗体边框转动的图片.htm
字号:
<!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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -