roll_status.js

来自「电脑技术精华大全-共77册-507M.zip」· JavaScript 代码 · 共 11 行

 ' 滚动的状态栏文字:
  msg="_▃▄▅▆ 十万个为什么 ▆▅▄▃_ 计算机应用技巧大全   "
  l=len(msg)
  i=l-3
  sub moveStatus()
   str=right(msg,l-i)+left(msg,i)
   top.status=str
   i=(i+1) mod l 
  end sub
  speed = 300 'ms
  a=setInterval("moveStatus()",speed)