أخواني الأعزاء..
لدي شريط قوائم MenuStrip يحتوي على عدة قوائم وكل قائمة تحتوي عنوان رئيسي ويتفرع من كل عنوان عدد من الـ Items ما أريده هو إمكانية تفعيل وإلغاء تفعيل الـ Items فقط بدون العناوين الرئيسية وذلك دفعة واحدة لكل القوائم
مع العلم اني توصلت من خلال البحث إلى الكود التالي لكنه يؤثر على كل قوائم الـ MenuStrip حتى العناوين الرئيسية وهذا ما لا أريده .. إليكم الكود:
لدي شريط قوائم MenuStrip يحتوي على عدة قوائم وكل قائمة تحتوي عنوان رئيسي ويتفرع من كل عنوان عدد من الـ Items ما أريده هو إمكانية تفعيل وإلغاء تفعيل الـ Items فقط بدون العناوين الرئيسية وذلك دفعة واحدة لكل القوائم
مع العلم اني توصلت من خلال البحث إلى الكود التالي لكنه يؤثر على كل قوائم الـ MenuStrip حتى العناوين الرئيسية وهذا ما لا أريده .. إليكم الكود:
كود :
Private Sub SetAllMenuItems(ByRef menuStrip As MenuStrip, ByVal enable As Boolean)
Dim c As ToolStripItem
Dim t As ToolStripMenuItem
For Each c In menuStrip.Items
c.Enabled = enable
If c.GetType Is GetType(ToolStripMenuItem) Then
t = c
SetAllMenuItems(t.DropDownItems, enable)
End If
Next
End Sub
Private Sub SetAllMenuItems(ByRef menus As ToolStripItemCollection, ByVal enable As Boolean)
Dim c As ToolStripItem
Dim t As ToolStripMenuItem
For Each c In menus
c.Enabled = enable
If c.GetType Is GetType(ToolStripMenuItem) Then
t = c
SetAllMenuItems(t.DropDownItems, enable)
End If
Next
End Sub
SetAllMenuItems(Me.MenuStrip1, True)