منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] كيف يمكنني عند حدث اضافة تاب جديد نسخ جميع ما فى التاب بالاوامر - نسخة قابلة للطباعة

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



كيف يمكنني عند حدث اضافة تاب جديد نسخ جميع ما فى التاب بالاوامر - elhon.tec - 07-12-16

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

سؤالى هو
كيف يمكنني نسخ جميع ما يحتوية التاب بكافة الاوامر فى تاب جديد علما بأنى اعمل على متصفح انترنت
وقمت بأستخدام طرق كثيرة ولكن دون جدوى وهذا كود قمت بوضعة فى حدث النافذة الجديدة فى اداة 
المتصفح ؟  Huh
هذا المثال للتحميل نظيف فقط مضاف الادوات المستخدمة
[attachment=12437]


PHP كود :
Dim newTab As TabItem TabControl1.CreateTab("New Tab")
 
       Dim panel As TabControlPanel DirectCast(newTab.AttachedControlTabControlPanel)
 
       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(1010)
 
           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 
جزاكم الله كل الخير




RE: كيف يمكنني عند حدث اضافة تاب جديد نسخ جميع ما فى التاب بالاوامر - elhon.tec - 09-12-16

up.............