VB.netでタブ型ブラウザを作成しています
- 題名: VB.netでタブ型ブラウザを作成しています
- 著者: syu
- 日時: 2005/11/29 16:56:33
- ID: 13955
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[1]: VB.netでタブ型ブラウザを作成しています
- 著者: なおこ(・∀・)
- 日時: 2005/11/29 21:52:31
- ID: 13967
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[2]: VB.netでタブ型ブラウザを作成しています
- 著者: syu
- 日時: 2005/11/30 22:42:44
- ID: 13991
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[3]: VB.netでタブ型ブラウザを作成しています
- 著者: syu
- 日時: 2005/12/01 22:40:53
- ID: 14015
- この記事の返信元:
- この記事への返信:
- ツリーを表示
分類:[.NET]
いまVB.NET2003でタブ型ブラウザを作成しているのですが、
マウスがリンク上にポイントされた時にリンク先のURLをTextBoxなどに取得したいと思うのですがどう取得すればよいかわかりません。
ぜひ取得方法を教えてください。
現在以下のようなコードで動的にAxWebBrowserを配置しています。
Private currentTabPage As System.Windows.Forms.TabPage
Private currentWebBrowser As AxSHDocVw.AxWebBrowser
'***************タブ作成***************
Sub tab(ByVal temp_URL As String)
Try
Me.SuspendLayout()
Dim tabPage As New System.Windows.Forms.TabPage
Dim axWebBrowser As New AxSHDocVw.AxWebBrowser
axWebBrowser.BeginInit()
axWebBrowser.Dock = DockStyle.Fill
AddHandler axWebBrowser.NavigateComplete2, New AxSHDocVw.DWebBrowserEvents2_NavigateComplete2EventHandler(AddressOf Me.AxWebBrowser_NavigateComplete2)
tabPage.Controls.Add(axWebBrowser)
axWebBrowser.EndInit()
Me.TabControl1.Controls.Add(tabPage)
Me.TabControl1.SelectedTab = tabPage
Me.currentTabPage = tabPage
Me.currentWebBrowser = axWebBrowser
Me.currentWebBrowser.Navigate2(temp_URL)
Me.ResumeLayout(False)
Catch
End Try
End Sub