السلام عليكم ورحمة الله وبركاتة
سؤالى هو
كيف يمكنني نسخ جميع ما يحتوية التاب بكافة الاوامر فى تاب جديد علما بأنى اعمل على متصفح انترنت
سؤالى هو
كيف يمكنني نسخ جميع ما يحتوية التاب بكافة الاوامر فى تاب جديد علما بأنى اعمل على متصفح انترنت
وقمت بأستخدام طرق كثيرة ولكن دون جدوى وهذا كود قمت بوضعة فى حدث النافذة الجديدة فى اداة
المتصفح ؟
هذا المثال للتحميل نظيف فقط مضاف الادوات المستخدمة
g33up.zip (الحجم : 4.25 م ب / التحميلات : 33)
الاكواد ليست كاملة للمتصفح فقط حدث النافذة الجديدة فى اداة التصفح
كل ما اريدة ان التاب الجديد يحمل جميع الازرار والملحقات الموجودة فى التاب الاساسي
مع الاوامر الخاصة بالازرار ليتم تطبيقها فى التاب الجديد
لا اعرف الكثير عن المديول حتى اضيف مديول جديد
مع العلم انى استخدم Dotnetbar
جزاكم الله كل الخير
هذا المثال للتحميل نظيف فقط مضاف الادوات المستخدمة
g33up.zip (الحجم : 4.25 م ب / التحميلات : 33)
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
جزاكم الله كل الخير