過去ログ

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ       8
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　▼アクティブビューから指定個数のウインドウを閉じる(vbs)  YAma(作成Minase Tamaki氏) 02/8/1(木) 9:45

　───────────────────────────────────────
　■題名 ： アクティブビューから指定個数のウインドウを閉じる(vbs)
　■名前 ： YAma(作成Minase Tamaki氏)
　■日付 ： 02/8/1(木) 9:45
　-------------------------------------------------------------------------
   
'アクティブビューから指定個数のウインドウを閉じる

'Made by Minase Tamaki Ver.000803



Dim BugWeb

Dim Index

Dim Counter

Dim Temp



　　Set BugWeb = CreateObject("BugWeb.BugBrowserAPI")

　　Counter = InputBox("いくつのウインドウを閉じますか？（0でこれ以降すべて）","アクティブビューから指定個数のウインドウを閉じる")



　　For Index = 0 To BugWeb.DocumentCount-1

　　　　If( BugWeb.DocumentView ( Index ) = BugWeb.ActiveView ) Then

　　　　　　Temp = Index

　　　　End If

　　Next



　　If(Counter = 0) Then

　　　　For Index = Temp + 1 To BugWeb.DocumentCount-1

　　　　　　BugWeb.CloseView(BugWeb.DocumentView ( Temp + 1 ))

　　　　Next

　　End If



　　If(Counter > 1) Then

　　　　For Index = 0 To Counter - 2

　　　　　　BugWeb.CloseView(BugWeb.DocumentView ( Temp + 1 ))

　　　　Next

　　End If

　　BugWeb.CloseView(BugWeb.ActiveView)



　　Set BugWeb = Nothing


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