【-HOME-BACK-】

文字がタイピングのように出る
ソースAは<head>から</head>にコピー
ソースは<body>から</body>のお好きなところにコピーして下さい。
サンプル
文字がタイピングするように出てきます。
改行をしたい場合は<BR>を 使ってください。
ソースAで出てくる速度も変更できます。
ソースA
<SCRIPT LANGUAGE="VBScript">
<!--//
Dim counter, txt, txt_len, timerID

Sub Window_onLoad()
txt = Text.innerHTML
txt_len = Len(txt)
counter = 1
timerID = Window.SetInterval("typewriter()", 150)//←文字を表示する速さ。
End Sub

Sub typewriter()
Dim cur
If counter > txt_len Then
cur = ""
Window.ClearInterval(timerID)
Else
cur = "<font color='#000000'>_</font>"
End If
Text.innerHTML = Left(txt, counter) & cur
counter = counter + 1
End Sub
-->
</SCRIPT>
ソースB

<SPAN id="Text">表示する文字を記入</SPAN>