状态栏的改变

来源:互联网 发布:淘宝装修350会更新吗 编辑:程序博客网 时间:2024/05/17 01:39

 <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="改变状态栏" onclick="changeStatus()"/>
    </form>

 </body>

</html>

原创粉丝点击