タイトル : Re: 現在のURLを表示するには 投稿日 : 2006/11/02(Thu) 17:56 投稿者 : 花ちゃん
下記ではどうでしょうか。 Private Sub AxWebBrowser1_DocumentComplete(ByVal sender As Object, _ ByVal e As AxSHDocVw.DWebBrowserEvents2_DocumentCompleteEvent) _ Handles AxWebBrowser1.DocumentComplete TextBox1.Text = AxWebBrowser1.LocationURL 'Debug.WriteLine(e.pDisp.Document.url) End Sub |