roll_status.js

电脑知识十万个为什么-v1.5注册版.zip

 ' 滚动的状态栏文字:
  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)