僕は、Visual Basic 2010 Expressにてタブブラウザを作っています。
でも、target=_blankのリンクを他のタブに表示する方法が分かりません
色々なサンプルコードを見ましたが、ほとんどがタブブラウザではないときのやり方で、タブブラウザのときのやり方を検索しても全く出てきません。
下のページでも調べてみても、単にIEが立ち上がるのを防ぎたいという質問でタブブラウザの情報が全くありませんでした
http://madia.world.coocan.jp/cgi-bin/vbnet/wwwlng.cgi?print+201011/10110005.txt
現在のコードがこちらですが、下のようにやっても全然出来ません
---------------------------------------------------------------------
Public Class Form1
Dim int As Integer = 0
Dim Browser As New WebBrowser
Private Sub Done(ByVal sender As System.Object, e As Windows.Forms.WebBrowserDocumentCompletedEventArgs)
ToolStripTextBox2.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString
TabControl1.SelectedTab.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle
End Sub
Private Sub NewTab(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)
e.Cancel = True
Dim url As String = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).StatusText
url = sender.Document.ActiveElement.GetAttribute("href")
TabControl1.TabPages.Add("新しいページ")
TabControl1.SelectTab(int)
Browser.Name = "Visual Internet Viewer"
Browser.Dock = DockStyle.Fill
TabControl1.SelectedTab.Controls.Add(Browser)
AddHandler Browser.DocumentCompleted, AddressOf Done
int = int + 1
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(url)
End Sub
(中略)
End Class
---------------------------------------------------------------------
誰か教えてくださる人はいないでしょうか??
出来ればソースコードを載せてください!
これが参考になるのでは
http://rucio.cloudapp.net/ThreadDetail.aspx?ThreadId=10639
ツイート | ![]() |