?? 下角移動的文字.htm
字號:
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript>
<TITLE>下角移動的文字</TITLE>
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=VBScript>
<!--
dim number11,string11
sub window_onload()
number11=1
string11="女士們，先生們，歡 迎 你 使 用 VBScript 編 程 百 例！??！ "
time1=settimeout("timer1()",1000)
end sub
function timer1()
number11=number11+1
if number11>len(string11) then
number11=1
end if
nmbofend=len(string11)-number11
showstring=right(string11,nmbofend)
do until len(showstring)>50
showstring=showstring & " " & string11
loop
window.status=showstring
time2=settimeout("timer2()",100)
end function
function timer2()
time1=settimeout("timer1()",100)
end function
-->
</SCRIPT>
</HEAD>
<BODY bgColor=lightyellow>
<center><h1>請看左下角的文字<h1>
</center>
</BODY>
</HTML>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -