- PR -

axWebBrowserで新しいウィンドウ開く時の対応

1
投稿者投稿内容
海亀
会議室デビュー日: 2004/02/19
投稿数: 9
お住まい・勤務地: 渋谷
投稿日時: 2004-04-21 14:04
axWebBrowserを使って、自分のブラウザを作って入るのですが、ページ内のリンクをクリックして新しいウィンドウを新しいtabpage内表示させるのはなかなかできないです。
BeforeNavigate2イベントとNewWindow2イベント両方試しても、駄目みたいです。皆さんの知恵を借りたいです。よろしくお願いします。
ソース：
#Region "新しいウィンドウ開く"
Private Sub currentWebBrowser_NewWindow2Event(ByVal sender As System.Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_NewWindow2Event) Handles currentWebBrowser.NewWindow2
Dim ex As System.EventArgs
Call Me.CreateTab(sender, ex)
End Sub
#End Region

#Region "axWebBrowser作成"
Private Sub CreateTab(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.SuspendLayout()
'TabPage作成
Dim tabPage As System.Windows.Forms.TabPage = New System.Windows.Forms.TabPage
'WebBrowser作成
Dim axWebBrowser As AxSHDocVw.AxWebBrowser = New AxSHDocVw.AxWebBrowser
axWebBrowser.BeginInit()
axWebBrowser.Dock = DockStyle.Fill

tabPage.Controls.Add(axWebBrowser)
axWebBrowser.EndInit()
Me.TabControl.Controls.Add(tabPage)
Me.TabControl.SelectedTab = tabPage
Me.currentTabPage = tabPage
Me.currentWebBrowser = axWebBrowser
Me.currentWebBrowser.Navigate2(strDef.ToString)
Me.Show()
Me.Activate()
Me.ResumeLayout(False)
End Sub
#End Region
ニック
会議室デビュー日: 2008/01/17
投稿数: 1
投稿日時: 2008-01-17 22:07

ダミーのブラウザを起動させ
「e.ppDisp = AxWebBrowser1.Application」
そのブラウザのbeforenavigate2イベントでタブを追加するの
がもっとも簡単ではないでしょうか。
1

スキルアップ／キャリアアップ（JOB@IT）