target=_blankのリンクを他のタブに表示するには??


VAIVAIO  2012-06-19 01:10:49  No: 147651

僕は、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
---------------------------------------------------------------------
誰か教えてくださる人はいないでしょうか??
出来ればソースコードを載せてください!


オレ  2012-06-19 01:17:38  No: 147652

これが参考になるのでは

http://rucio.cloudapp.net/ThreadDetail.aspx?ThreadId=10639


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加