[RaggiTech]

نختار العنصر Close All ونضغط عليه مرتين بحيث يظهر محرر الكود ويولد الحدث الخاص بالضغط على العنصر

ونكتب له هذا الكود

كود :

Private Sub CloseAllDToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseAllDToolStripMenuItem.Click
Dim frm As Form
For Each frm In Me.MdiChildren
frm.Close()
Next frm
End Sub

هذه هذا العنصر غلق جميع النوافذ المفتوحة بداخل Form1

كود :

Dim frm As New Form

هنا عرفنا متغير من نوع Form اسميناه frm

كود :

For Each frm In Me.MdiChildren
frm.Close()
Next frm

استخدمنا الحقلة For Each بحيث تقوم بالبحث عن أى فورم داخل الفورم Form وتكون هذه
الفورم ابن للفورم Form1

واذا وجد هذه الفورم يقوم باغلاقها

كود :

frm.Close()

لو أردنا أن يقوم باغلاق النوافذة المتولدة من Form2 فقط – كنا نعرف المتغير على أساس أنه نسخة من Form2 وليس Form عامة

كود :

Dim frm As New Form2

-----------------------------

- نختار العنصر ArrangeIcons ونضغط عليه مرتين بحيث يظهر محرر الكود ويولد الحدث الخاص بالضغط على العنصر

ونكتب له هذا الكود

كود :

Private Sub ArrangeIconsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ArrangeIconsToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.ArrangeIcons)
End Sub

نقوم هنا بعمل ترتيب للفورم الأبناء داخل الفورم الأب عن طريق الوصل بالخاصية LayoutMdi للفورم الأب أن نحدد طريقة ترتيب الفورم الأبناء بداخله وهى أربع طرق كالتالى

ArrangeIcons
Cascade
TileHorizontal
TileVertical

-----------------------------
الطريقة الثانية Cascade

- نختار العنصر Cascade ونضغط عليه مرتين بحيث يظهر محرر الكود ويولد الحدث الخاص بالضغط على العنصر

ونكتب له هذا الكود

كود :

Private Sub CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.Cascade)
End Sub

-----------------------------
الطريقة الثالثة TileHorizontal

- نختار العنصر TileHorizontal ونضغط عليه مرتين بحيث يظهر محرر الكود ويولد الحدث الخاص بالضغط على العنصر

ونكتب له هذا الكود

كود :

Private Sub TileHorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TileHorizontalToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileHorizontal)
End Sub

-----------------------------
الطريقة الرابعة TileVertical

- نختار العنصر TileVerticalونضغط عليه مرتين بحيث يظهر محرر الكود ويولد الحدث الخاص بالضغط على العنصر

ونكتب له هذا الكود

كود :

Private Sub TileVerticalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TileVerticalToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileVertical)
End Sub