📄 ch13_1.htm
字号:
<!--======================================-->
<!-- 范例程序 CH13_1.HTML -->
<!--======================================-->
<HTML>
<HEAD>
<TITLE>跑马灯</TITLE>
<Script Language="JavaScript">
var Speed,ShowStr,Front,id
ShowStr = "这是一个简单的跑马灯示范程序，这个字符串就是内容 "
var Front = 0
var Speed = 1000
function StartRun()
{
document.ThisForm.Content.value=ShowStr.
substring(Front,(ShowStr.length)-Front)
+ShowStr.substring(0,Front-1)
Front = Front+1
if(Front>=ShowStr.length) Front=0
id = setTimeout("StartRun()",Speed)
}
function Speedup()
{
Speed = Speed - 50
}
function Slowdown()
{
Speed = Speed + 50
}
function StopNow()
{
clearTimeout(id)
}
function ChangeStr()
{
ShowStr = document.Control.NewStr.value
while (ShowStr.length<25)
{
ShowStr=ShowStr+" "
}
Front = 1
}
</Script>
</HEAD>
<BODY OnLoad="StartRun()" BackGround="bg.jpg">
<Center>
<Font Color=Red Size=4>
跑马灯范例程序
</Font>
<Form Name="ThisForm">
<Input Type=Text Name="Content" Size=50>
</Form>
</Center>
<HR>
<Form Name="Control">
改变内容：<Input Type=Text Size=40
Name="NewStr">
<Input Type=Button Name="Press1" Value="确定"
OnClick="ChangeStr()"><BR><BR>
<Input Type=Button Name="Press2" Value="加快"
OnClick="Speedup()">
<Input Type=Button Name="Press3" Value="减慢"
OnClick="Slowdown()">
<Input Type=Button Name="Press4" Value="停止"
OnClick="StopNow()">
<Input Type=Button Name="Press5"
Value="重新开始" OnClick="StartRun()">
</Form>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -