WebBrowserについて (ID:91600)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 M's 回答ありがとうございます。 ---------------------------------- Private DocCompURL as String Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) DocCompURL = URL End Sub ---------------------------------- DocCompURL = "" WebBrowser1.Navigate "http://www.*****" ブラウザをナビゲートする前に"DocCompURL"を空にしておき、その後 Do While Len(DocCompURL)=0 DoEvent Loop でループを抜けています。 本当はDocCompURL="http://www.*****"としたかったのですが WebBrowser1_DocumentCompleteから取得できるURLは私の指定したURLとは違うものが入ってきますのでとりあえず長さだけで求めています。