ch13_1.htm

来自「名字是《JavaScript从入门到精通》。但是其实是JavaScript的一些」· HTM 代码 · 共 83 行

HTM
83 行
字号 
<!--======================================-->
<!--  范例程序 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>

ch13_1.htm - 源码说明

本页面展示了「名字是《JavaScript从入门到精通》。但是其实是JavaScript的一些比较简单实用的例子」中的 ch13_1.htm 源码文件，采用 HTM 编程语言编写，共 83 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与JavaScript相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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