غلق جميع الادوات فى الشاشة ما عدا واحدة

أتمني ان يكون هذا هو المطلوب

مرفق مثال

بالتوفيق

Disable_Enable_Controls.rar

اخي محمد فؤاد , اريد ما فعلت فى هذا المثال , ولكن عند قفل الادوات اريد قفلها كلها ما عدا Textbox1   و  Textbox2   على سبيل المثال , اريدهم فقط enable  على كلتا الحالتين

لاستثناء TextBox 1&2  اضف شرط التحقق من اسم الاداه لتصبح الميثود كالتالى

    Private Sub EnableControl(ByVal ctrlParent As Control)
        Dim ctrl As Control
        For Each ctrl In ctrlParent.Controls
            If TypeOf ctrl Is TextBox Then
                If Not CType(ctrl, TextBox).Name = "TextBox1" And Not CType(ctrl, TextBox).Name = "TextBox2" Then
                    ctrl.Enabled = False
                End If
             
            End If
        Next
    End Sub

    Private Sub DisablControl(ByVal ctrlParent As Control)
        Dim ctrl As Control
        For Each ctrl In ctrlParent.Controls
            If TypeOf ctrl Is TextBox Then
                If Not CType(ctrl, TextBox).Name = "TextBox1" And Not CType(ctrl, TextBox).Name = "TextBox2" Then
                    ctrl.Enabled = True
                End If


            End If
        Next
    End Sub