荔园在线

荔园之美,在春之萌芽,在夏之绽放,在秋之收获,在冬之沉淀

[回到开始] [上一篇][下一篇]


发信人: yuji (女孩抽屉), 信区: Homepage
标  题: Re: 请问怎样可以实现如下效果..........
发信站: BBS 荔园晨风站 (Thu Dec 21 13:36:15 2000), 转信

从左到右逐字增加效果。
<script language=JavaScript>
   var MESSAGE  = "插入你要的文字"
   var POSITION = 100
   var DELAY    = 5
   var scroll = new statusMessageObject()
 function statusMessageObject(p,d) {
  this.msg = MESSAGE
  this.out = " "
  this.pos = POSITION
  this.delay = DELAY
  this.i     = 0
  this.reset = clearMessage}
function clearMessage() {
  this.pos = POSITION}
function scroller() {
  for (scroll.i = 0; scroll.i < scroll.pos; scroll.i++) {
    scroll.out += " "}
  if (scroll.pos >= 0)
   scroll.out += scroll.msg
  else scroll.out = scroll.msg.substring(-scroll.pos,scroll.msg.
length)
  window.status = scroll.out
  scroll.out = " "
  scroll.pos--
  if (scroll.pos < -(scroll.msg.length)) {
   scroll.reset()}
  setTimeout ('scroller()',scroll.delay)}
function snapIn(jumpSpaces,position) {
  var msg = scroll.msg
  var out = ""
  for (var i=0; i<position; i++)
    {out += msg.charAt(i)}
  for (i=1;i<jumpSpaces;i++)
    {out += " "}
  out += msg.charAt(position)
  window.status = out
  if (jumpSpaces <= 1) {
    position++
    if (msg.charAt(position) == ' ')
      {position++ }
    jumpSpaces = 100-position
  } else if (jumpSpaces >  3)
       {jumpSpaces *= .75}
  else
    {jumpSpaces--}
  if (position != msg.length) {
var cmd = "snapIn(" + jumpSpaces + "," + position + ")";
    scrollID = window.setTimeout(cmd,scroll.delay);
  } else {    window.status=""
    jumpSpaces=0
    position=0
    cmd = "snapIn(" + jumpSpaces + "," + position + ")";
    scrollID = window.setTimeout(cmd,scroll.delay);
    return false }
  return true}
snapIn(100,0);
</script>



【 在 MarchRain (магснгаιл) 的大作中提到: 】
:     我希望别人浏览的时候,在IE窗口的最下面那行,
:     可以实现如下效果:“请你的朋友一起来XX作客。”这行字逐字逐字,
:     也就是一个字一个字地由右边飞到左边。这样循环显示。


--
※ 修改:·yuji 於 Dec 21 13:37:48 修改本文·[FROM: 192.168.22.122]
※ 来源:·BBS 荔园晨风站 bbs.szu.edu.cn·[FROM: 192.168.22.122]


[回到开始] [上一篇][下一篇]

荔园在线首页 友情链接:深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店