WebBrowserに映されたページのｈｔｍｌ文獲得方法

質問

WebBrowserでナビゲートしたページのHTML文（ソース）をtextボックスに表示させたいのですが、出来なくて困っています。
text1.Text = inet1.OpenURL (★)　　★＝表示させたいURL
という事まではわかったのですが、WebBrowser1のURLの引渡し方法がわかりません！
教えてください！！おねがいします。

回答No.3

todo36

↓によるとWebBrowserだけで出来るそうな。

参考URL：

http://oshiete1.goo.ne.jp/kotaeru.php3?q=352290

回答No.2

taisuke555

WebBrowser1.Navigate "http://www.okweb.ne.jp"
が読込みを完了しないと、エラーになるみたいです。

試しにコマンドボタンを２個用意して、
コマンドボタン１を押して、少ししてから、コマンドボタン２を押してみてください。

Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.okweb.ne.jp"
end sub

Private Sub Command2_Click()
Text2.Text = WebBrowser1.LocationURL
Text1.Text = Inet1.OpenURL(WebBrowser1.LocationURL)
End Sub

１つのコマンドボタンでの方法も考えてみようと思ったのですが、
WebBrowser1.Navigate "http://www.okweb.ne.jp"
で、URLを持っていますよね？

Private Sub Command1_Click()
DIM URLString As String
URLString = "http://www.okweb.ne.jp"
WebBrowser1.Navigate URLString
Text2.Text = WebBrowser1.LocationURL
Text1.Text = Inet1.OpenURL(URLString)
End Sub
では、だめなのでしょうか？
もし、何か理由があるようなら補足してください。

回答No.1

taisuke555

WebBrowser1からURLを取り出したいという事でしょうか？

WebBrowser1.LocationURL

でとれませんか？

補足

ご回答ありがとうございます。この方法(下のソース）は以前から試していたのですが、”ＵＲＬが不正です”というエラーがててしまいます。なぜでしょうか？

Private Sub Command1_Click()

WebBrowser1.Navigate "http://www.okweb.ne.jp"
Text2.Text = WebBrowser1.LocationURL
Text1.Text = Inet1.OpenURL(WebBrowser1.LocationURL)

End Sub