[المحب]

احبتي واصدقائي ...

اريد كود عمل New Tab يعني في سبيل المثال عند الضغط على صورة او بوتن يفتح لنا تاب جديد مع الذهاب الى موقع معين من اختيارك ؟؟ يعني مثلا انا عندي موقع عبر الانترنيت واريد من خلال ضغطة زر على بوتن او صورة عن النقر اليه يفتح تاب جديد وياخذه الى الموقع الذي أدرجته انا


مع الشكر الجزيل

[MSDOS]

جرب هذه الطريقة

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim wb As New WebBrowser
    wb.Dock = DockStyle.Fill

    Dim tb As New TabPage
    tb.Controls.Add(wb)
    Me.TabControl1.TabPages.Add(tb)

    Me.TabControl1.SelectedIndex = Me.TabControl1.TabPages.Count - 1

    tb.Text = "Google"
    wb.Navigate("http:\\www.google.com")

End Sub

[MSDOS]

جرب بوضعها بدالة كالتالي

كود :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        AddTabPage("http:\\www.google.com")
    End Sub

    Private Sub AddTabPage(ByVal url As String)

        Dim wb As New WebBrowser
        wb.Dock = DockStyle.Fill

        Dim tb As New TabPage
        tb.Controls.Add(wb)
        Me.TabControl1.TabPages.Add(tb)

        Me.TabControl1.SelectedIndex = Me.TabControl1.TabPages.Count - 1

        tb.Text = "تحميل..."
        wb.Navigate(url)

        AddHandler wb.DocumentCompleted, AddressOf WebBrowser_DocumentCompleted

    End Sub


    Private Sub WebBrowser_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
        sender.Parent.Text = sender.DocumentTitle
    End Sub

End Class

[MSDOS]

ايش صار معاك