過去ログ

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ      19
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　▼スライドショー(js)  YAma(作成sim氏) 02/8/2(金) 9:58

　───────────────────────────────────────
　■題名 ： スライドショー(js)
　■名前 ： YAma(作成sim氏)
　■日付 ： 02/8/2(金) 9:58
　-------------------------------------------------------------------------
   
//スライドショー

//(検索バーに入力した数値)ミリ秒間隔で、1番目のドキュメントから

//順に表示するスクリプト。

//たとえば5000ミリ秒（5秒）を指定すると、ドキュメント60個を見終わるのに

//5分かかりますが、その場合検索バーのキーワードを空にすると途中で終了します。

　var bugweb = new ActiveXObject("BugWeb.BugBrowserAPI");

　var orgActiveIndex = 0;

　var i = 0;



　if (bugweb != null && bugweb.Version(0) > 147){

　　var interval = parseInt(bugweb.SearchKeywordString);

　　if ((interval <= 5000) && (interval >= 10)){

　　　//10ミリ秒から5秒まで。

　　　//アクティブドキュメントのIndexを保存

　　　while (bugweb.DocumentView(i) != bugweb.ActiveView){

　　　　i++;

　　　}

　　　orgActiveIndex = i;



　　　//アクティブなドキュメントを順次切り替える

　　　bugweb.SearchKeywordString = "スライドショー開始";

　　　for (i = 0; i < bugweb.DocumentCount; i++){

　　　　WScript.Sleep(interval);

　　　　if (bugweb.SearchKeywordString.substr(0,7) != "スライドショー")　break;

　　　　bugweb.ActiveView = bugweb.DocumentView(i);

　　　　bugweb.SearchKeywordString = "スライドショー中..." + (i + 1)

　　　　　　　　　　　　　　　　　　 + "/" + bugweb.DocumentCount;

　　　}



　　　//検索バーを空にし

　　　//アクティブドキュメントをスライドショー前のものに戻す

　　　bugweb.SearchKeywordString = "";

　　　bugweb.ActiveView = bugweb.DocumentView(orgActiveIndex);

　　　bugweb.ShowMessage("スライドショー終了");

　　} else {

　　　bugweb.ShowMessage("間隔の指定が不正です。");

　　}

　}

　bugweb = null;


				  
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ      19