【-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> |