[kslawy]

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

عملت لك كود علي السريع :

كود :

Private Sub EnabeldToolStripControls(ByVal b As Boolean)


        For Each button In ToolStrip1.Items.OfType(Of ToolStripButton)()
            button.Enabled = b
        Next


        For Each DropDown In ToolStrip1.Items.OfType(Of ToolStripDropDownButton)()
            ' DropDown.Enabled = b
            If DropDown.HasDropDownItems Then
                For Each btn In DropDown.DropDown.Items.OfType(Of ToolStripDropDownItem)()
                    btn.Enabled = b
                Next
            End If
        Next


    End Sub

إذا كان الزر من نوع DropDown وأردت تفعيل وتعطيل أزراره الداخلية فقط يمكن استخدام الكود السابق . أما إذا أردت تفعيله وتعطيله هو نفسه فاستخدم الكود أدناه :

كود :

Private Sub EnabeldToolStripControls(ByVal b As Boolean)


        For Each button In ToolStrip1.Items.OfType(Of ToolStripButton)()
            button.Enabled = b
        Next


        For Each DropDown In ToolStrip1.Items.OfType(Of ToolStripDropDownButton)()
            DropDown.Enabled = b
            'If DropDown.HasDropDownItems Then
            '    For Each btn In DropDown.DropDown.Items.OfType(Of ToolStripDropDownItem)()
            '        btn.Enabled = b
            '    Next
            'End If
        Next


    End Sub