<html>
<head>
<title>改变状态栏</title>
<script type="text/vbscript">
if screen.width = 640 then
spaces = 40
elseif screen.width = 800 then
spaces = 50
else
spaces = 64
end if
text = ""
for i = 1 to spaces
text = text & " "
next
text = text & "改变状态栏"
function changeStatus()
window.status = text
text = Mid(text,2) & Left(text,1)
//res = SetTextColor("text", vbRed) '设字的颜色
t=setTimeout("changeStatus()",260)
// s= setTimeOut("chanageStatus()",1000)
End function
</script>
</head>
<body >
<form name="status">
<input type="button" value="改变状态栏" οnclick="changeStatus()"/>
</form>
</body>
</html>
扫一扫
4782
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
