[rinawi]

[COLOR="#0000CD"]السلام عليكم و رحمة الله

أخواني و أخواتي الكرام في المنتدى، لدي مشكلة في كيفية تفعيل و تعطيل (Enable = True/False) القوائم في أداة ToolStrip مرة واحد، حيث أنني لا أريد أن أكتبها قائمة تلو الأخرى للتفعيل و التعطيل.
و من محاولاتي كان هذا الكود التالي و لكنه لم ينجح

PHP كود :

Private Sub SetToolStrip(ByRef toolstrip As ToolStrip, ByVal enable As Boolean)
        Dim c As ToolStripItem
        Dim t As ToolStripSplitButton

        For Each c In toolstrip.Items
            c.Enabled = enable
            If c.GetType Is GetType(ToolStripSplitButton) Then
                t = c
                SetToolStrip(t.DropDownItems, enable)
            End If
        Next
    End Sub

    Private Sub SetToolStrip(ByRef stripitem As ToolStripItemCollection, ByVal enable As Boolean)
        Dim c As ToolStripItem
        Dim t As ToolStripSplitButton

        For Each c In stripitem
            c.Enabled = enable
            If c.GetType Is GetType(ToolStripSplitButton) Then
                t = c
                SetToolStrip(t.DropDownItems, enable)
            End If
        Next
    End Sub

Private Sub Main_Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SetToolStrip(ToolStrip1, True)
End Sub 


أتمنى أن ألقى الإجابة منكم و أنا ممنون لكم في الإجابة أو عدم الإجابة.[/COLOR]