Digital Life ~デジタルライフ~(Field)

PREV | PAGE-SELECT | NEXT

≫ EDIT

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

| スポンサー広告 | --:-- | comments(-) | trackbacks(-) | TOP↑

≫ EDIT

タイピング文字。タイピングしながら文字を表示させます。

 タイピング文字。タイピングしながら文字を表示させます。

<script type="text/VBScript">
<!--
Dim counter, txt, txt_len, timerID

Sub Window_onLoad()
txt = txtbox.innerHTML
txt_len = Len(txt)
counter = 1
timerID = Window.SetInterval("typewriter()", 文字の速さ)
End Sub

Sub typewriter()
Dim cur
If counter > txt_len Then
cur = ""
Window.ClearInterval(timerID)
Else
cur = "<font color='記号色'>記号</font>"
End If
txtbox.innerHTML = Left(txt, counter) & cur
counter = counter + 1
End Sub
//-->
</script>



↑ヘッダに記述。


<span id="txtbox">
文字
</span>


↑文字を表示させたい場所に記述

| CSSスタイルシート | 17:26 | comments(-) | trackbacks(-) | TOP↑

PREV | PAGE-SELECT | NEXT

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。