Question

怎样做出这种文字效果

http://132823.sina-soft.cn

怎样做出这种文字效果

如里面把字慢慢打出来一样
http://tvok.wu123.com:81/1225/www/
很不好意思，网址贴错了,是这个啦

Answer 1

呃，还以为是视频特效呢，结果是网页特效。下面是实现此功能的代码。

<SCRIPT language="vbscript">
//下面我添加了一个<font color=white>，来改变字体颜色。但不知道为什么运行时要闪烁几下才会显示文字，不喜欢可以删掉。
aa="<div id=ww0 style='DISPLAY: none'><font color=white>这是一个VB代码实现的功能，我只能粗略的说一下这段的意思。aa是我们定义的量，等号之后就是我们赋予的值（所写的文本内容），div id=ww0 style='DISPLAY: none'它实现了对值的隐藏，并命名了一个ww0标签，最后由document.write(aa)显示出文本内容。而下面的代码则是实现了逐字显现的功能，几乎看不懂，就不说了。</div> "
document.write(aa)
</script>

<SCRIPT language=VBScript>
dim w,t,p,mm,dy,tmp,vs:vs=5:dy=1:p=1:c="<font color=white><B>|":Set w = document.body
//这里定义了7个变量，并给它们赋予了值。C=就是文字后显示的那个白杠，可以通过修改C值来改变显示的字符和颜色。
sub tp
m=mid(t,p,1):
tmp=200
//这里200是显示的速度，数值越大，显示速度越慢，反之越快。如果把TMP屏蔽掉，文字就会飞快的出现。
if w.scrollHeight-w.scrollTop>w.offsetHeight then w.scrollTop=w.scrollTop+int(dy):dy=dy+dy/vs
else dy=1
mm=mm&m:w1.innerHTML=mm&c:p=p+1:if p<=len(t)+1 then SetTimeOut "tp",16+tmp else
w.scroll="yes"
end sub
sub window_onload()//窗口启动
w.scroll="yes"//文本滚动
w.bgcolor="#A8A8A8"//背景颜色
w.style.cursor="crosshair"//鼠标改变样式
t=w0.innerHTML
t=ww0.innerHTML + t
tp
end sub
</SCRIPT>
<DIV id=w0 style="DISPLAY: none"></DIV>
<DIV id=w1></DIV>