過去ログ

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ      38
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　▼ActiveViewのURLをエンコードして、ナビゲートする。  Dispatch 02/11/8(金) 18:32

　───────────────────────────────────────
　■題名 ： ActiveViewのURLをエンコードして、ナビゲートする。
　■名前 ： Dispatch
　■日付 ： 02/11/8(金) 18:32
　-------------------------------------------------------------------------
   
Dispatchと申します。



必要に迫られ、表題の動作をするＶＢスクリプトを作成してみました。

初めて作ったので、例外処理も甘いです。(^^;)





--------------------------------------------------------

'ＵＲＬエンコーダ



　　　　Dim　　　　　　　　BugWeb

　　　　Dim　　　　　　　　Docun

　　　　Dim　　　　　　　　EncURL

　　　　

　　　　Set BugWeb = CreateObject("BugWeb.BugBrowserAPI")

　　　　Set Docun = BugWeb.CreateDocumentViewObject(BugWeb.ActiveView)

　　　　

　　　　If(Docun Is Nothing) Then

　　　　　　　　BugWeb.ShowMessage("IDocumentViewを作成できません。")

　　　　Else

　　　　　　　　EncURL = BugWeb.EncodeToURLString(Docun.URL)

　　　　　　　　Docun.Navigate(EncURL)　　　　　　　　' ActiveViewにナビゲート

'　　　　　　　　BugWeb.NavigateNew(EncURL)　　　　' 新規Viewにナビゲート

　　　　End If

　　　　

　　　　Set BugWeb = Nothing

　　　　Set Docun　= Nothing



--------------------------------------------------------


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