AxBrowserコントロールでwebブラウザを作る

環境/言語:[VB.NET]
分類:[.NET]

VBを使ってwebブラウザを作りたいのですが、
テキストボックスに現在表示されているページのURLを表示させたいのですんですけど、どうすればよいのですか？ちなみに、AxWebBrowserコントロールを使っています。

> テキストボックスに現在表示されているページのURLを表示させたいのですんですけど、

BeforeNavigate イベント
BeforeNavigate2 イベント
NavigateComplete イベント
NavigateComplete2 イベント

などを使うことで、移動先の URL を知る事ができます。

■No16345に返信(魔界の仮面弁士さんの記事)
>>テキストボックスに現在表示されているページのURLを表示させたいのですんですけど、
>
> BeforeNavigate イベント
> BeforeNavigate2 イベント
> NavigateComplete イベント
> NavigateComplete2 イベント
>
> などを使うことで、移動先の URL を知る事ができます。

早い回答ありがとうございます。しかし、これらを使ってもうまくいきません。ソースとエラーメッセージを載せるのでどこかおかしいか教えてもらえませんか？
Private Sub AxWebBrowser1_NavigateComplete2(ByVal sender As Object, _
ByVal e As NavigateEventArgs) _
Handles AxWebBrowser1.NavigateComplete2
AxWebBrowser1.LocationURL.Copy(Text1.Text)


End Sub

エラー： メソッド 'AxWebBrowser1_NavigateComplete2' でイベント 'NavigateComplete2' を処理できません。指定されているシグニチャが異なります。

■No16346に返信(Mさんの記事)
> エラー： メソッド 'AxWebBrowser1_NavigateComplete2' でイベント 'NavigateComplete2' を処理できません。
> 指定されているシグニチャが異なります。

エラーどおりで、引数が一致していません。
オブジェクト ブラウザなりで引数の型を調べてみてください。

object sender, AxSHDocVw.DWebBrowserEvents2_NavigateComplete2Event e

■No16347に返信(じゃんぬねっとさんの記事)
> ■No16346に返信(Mさんの記事)

> エラーどおりで、引数が一致していません。
> オブジェクト ブラウザなりで引数の型を調べてみてください。
>
> object sender, AxSHDocVw.DWebBrowserEvents2_NavigateComplete2Event e

回答ありがとうございます。早速調べてみます。

■No16348に返信(Mさんの記事)
> ■No16347に返信(じゃんぬねっとさんの記事)
>>■No16346に返信(Mさんの記事)
>
>>エラーどおりで、引数が一致していません。
>>オブジェクト ブラウザなりで引数の型を調べてみてください。
>>
>>object sender, AxSHDocVw.DWebBrowserEvents2_NavigateComplete2Event e
>
調べてみたのですが、全くわかりません。すいますんが、どこがどう違うのかはっきり教えていただけませんか？初心者でごめんなさい。

> 調べてみたのですが、全くわかりません。すいますんが、どこがどう違うのかはっきり教えていただけませんか？初心者でごめんなさい。

じゃんぬねっとさんがお書きになっている通り，引数の型が違っているのです。

Private Sub AxWebBrowser1_NavigateComplete2( _
ByVal sender As Object, _
ByVal e As NavigateEventArgs) _
Handles AxWebBrowser1.NavigateComplete2

Private Sub AxWebBrowser1_NavigateComplete2( _
ByVal sender As Object, _
ByVal e As AxSHDocVw.DWebBrowserEvents2_NavigateComplete2Event) _
Handles AxWebBrowser1.NavigateComplete2

■No16353に返信(YASさんの記事)

> じゃんぬねっとさんがお書きになっている通り，引数の型が違っているのです。
>
> Private Sub AxWebBrowser1_NavigateComplete2( _
> ByVal sender As Object, _
> ByVal e As NavigateEventArgs) _
> Handles AxWebBrowser1.NavigateComplete2
>
> Private Sub AxWebBrowser1_NavigateComplete2( _
> ByVal sender As Object, _
> ByVal e As AxSHDocVw.DWebBrowserEvents2_NavigateComplete2Event) _
> Handles AxWebBrowser1.NavigateComplete2
>
できました！本当にありがとうございます！！ご迷惑おかけしました。