フェードインVBScript

_{Sorry. This page is Japanese only.}

フェードインのスクリプト　について

バージョン

　1.00
更新年月日

　1998/2/15
種別

　フリー (無料)
説明
- 　ページが読み込まれ、表示されるときに画面が黒から白にフェードインし、その後普通の表示になります。
動作確認したブラウザ

　Internet Explorer 4.01 (IE3では動かないようにしています)
動作例

　このページをリロードしてみて下さい。
記述方法
1. 　まず、下に記述されているスクリプトを、実行したいHTMLソースの<HEAD>・・・</HEAD>の中に書き写して下さい (クリップボードでコピーするのもよいでしょう)
2. 　そのソースを保存し、IE4で見ればOKです。

スクリプトの本文

<script language="VBScript"><!--

	'フェードインVBScript Ver.1.00
	'by Yuichiro Saito <http://www2.airnet.ne.jp/y-saito/>
	'Created: Feb. 15. 1998
	'自由に書き換えてかまいませんが、著作権表示は必ず残して下さい


	'本文

	'IE3では無効にする
	if not navigator.useragent = "*MSIE 3*" then

	'フェードイン開始
	cl_val = 0
	do
		in_time = second(now)
		document.bgcolor = RGB(cl_val,cl_val,cl_val)
		cl_val = cl_val + 1
	loop until cl_val > 256
	end if


	'End of Script
'--></script>

_{[fadein.html　1998年02月15日更新]}

|　トップページ |　もくじ |