[elhon.tec]

السلام عليكم ورحمة الله وبركاتة 

سؤالى هو
كيف يمكنني نسخ جميع ما يحتوية التاب بكافة الاوامر فى تاب جديد علما بأنى اعمل على متصفح انترنت

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

المتصفح ؟ 
هذا المثال للتحميل نظيف فقط مضاف الادوات المستخدمة

  g33up.zip (الحجم : 4.25 م ب / التحميلات : 40)

PHP كود :

Dim newTab As TabItem = TabControl1.CreateTab("New Tab")
        Dim panel As TabControlPanel = DirectCast(newTab.AttachedControl, TabControlPanel)
        Dim ComboBox As New ComboBoxEx()
        Dim wb As New WebBrowser
        Dim myElement As HtmlElement = WebBrowser1.Document.ActiveElement
        Dim target As String = myElement.GetAttribute("href")
     هنا قمت بوضع جميع الازرار فى بانل منفصل 
 Dim panlex As New DevComponents.DotNetBar.PanelEx ' panel creat
مجموعة الازرار    
    Dim butnfr As New DevComponents.DotNetBar.ButtonX ' btn back
        Dim butnbk As New DevComponents.DotNetBar.ButtonX ' btn back
        Dim butnser As New DevComponents.DotNetBar.ButtonX ' btn forwrd
        Dim butnsett As New DevComponents.DotNetBar.ButtonX ' btn setting
        Dim butnhom As New DevComponents.DotNetBar.ButtonX ' btn home
        Dim butnref As New DevComponents.DotNetBar.ButtonX ' btn refresh
        Dim addtab As New DevComponents.DotNetBar.ButtonX ' btn add tab page

        With wb
            .Navigate(target)
            .Dock = DockStyle.Fill
            With newTab
                .CloseButtonVisible = True
                .Text = "Blank"
            End With
            ComboBox.Parent = panel
            ComboBox.Location = New Point(10, 10)
            panel.Controls.Add(ComboBox)
            With ComboBox
                .Dock = DockStyle.Top
                .WatermarkText = "Hello"
            End With
ودي مرحلة الاضافة           
 panel.Controls.Add(wb)
            panel.Controls.Add(panlex)
            panel.Controls.Add(butnfr)
            panel.Controls.Add(butnser)
            panel.Controls.Add(butnsett)
            panel.Controls.Add(butnhom)
            panel.Controls.Add(butnref)
            panel.Controls.Add(addtab)
            panel.Controls.Add(butnbk)
            End With
            e.Cancel = True
            WebBrowser1.ScriptErrorsSuppressed = True 


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