منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طلب كود أظافة تاب يفتح موقع معين والذهاب له مباشرة من اختيار المبرمج - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طلب كود أظافة تاب يفتح موقع معين والذهاب له مباشرة من اختيار المبرمج (/showthread.php?tid=10189)

طلب كود أظافة تاب يفتح موقع معين والذهاب له مباشرة من اختيار المبرمج - المحب - 22-08-13

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

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


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

طلب كود أظافة تاب يفتح موقع معين والذهاب له مباشرة من اختيار المبرمج - MSDOS - 22-08-13

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

كود :
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 - 22-08-13

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

كود :
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 - 25-08-13

ايش صار معاك