اريد عمل Newtab للمتصفح

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

استخدم DockPanel Suite .

HassanAlattas كتب:

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

استخدم DockPanel Suite .

من تشرح لى كيف استخدمها ؟؟

و انا اريددها لـ visual basic.net

هذا مثال سريع على DockPanel Suite.

ATS.DockPanelDem.rar

لكي تفهم الطريقة ، شغل البرنامج واضغط على زر جديد من شريط الأدوات

مشكور على المساعدة

المثال فيه المطلوب اللى انا عايزه بالضبط

بس المثال اللى انته اعطيته لى طويل قوى ومفهمتش منه اى حاجة

فيا ريت تدينى الخلاصة

يعنى ازاى اعمل newtab

معلش انا عارف انى تقلت عليك قوى بس مبعلش مبتدئ بقى

ولا يهمك اخي,,

مع DockPanel Suite، ممكن تعرض اي فورم على شكل صفحة تبويب ، بس بشرط ان الفورم يرث DockContent.

في المثال عملت فورم اسمه DocumentForm يحتوي على RichTextBox وعدلت في الكود بهذا الشكل:

Imports WeifenLuo.WinFormsUI.Docking
Public Class DocumentForm
	Inherits DockContent

End Class

الأن عرًفنا صفحة التبويب ، باقي نعرًف الفورم اللي نعرض التبويبات داخله .

عملت فورم اسمه MainForm ، وباستخدام المصمم اضفت القوائم وشريط الأدوات ...الخ

بس اهم حاجة هنا هي انه لازم نخلي الخاصية IsMdiContainer للفورم تساوي True

ونضيف الكنترول DockPanel (من المكتبة DockPanel Suite)، علشان تنعرض فيه التبويبات .

وفي الأخير وعلشان نعمل(newtab)، عملت زر جديد ، وفي الحدث Click كتبت هذا الكود :

Private m_ChildFormNumber As Integer
	Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewToolStripMenuItem.Click, NewToolStripButton.Click, NewWindowToolStripMenuItem.Click
		Dim ChildForm As New DocumentForm
		m_ChildFormNumber += 1
		ChildForm.TabText = "Window " & m_ChildFormNumber
		ChildForm.Show(Me.DockPanel1)
	End Sub

هذا كل شئ,,

والســــلام.