منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - إستخدام CheckBox لتعطيل أو تفعيل مجموع الأدوات

رجاءا كيفية إستخدام CheckBox لتعطيل أو تفعيل مجموع الأدوات كما في المثال

كود :

   Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged

        ComboBox4.Enabled = False

        TextBox7.Enabled = False

        Label4.Enabled = False

        Label7.Enabled = False

    End Sub

    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged

        ComboBox5.Enabled = False

        TextBox9.Enabled = False

        Label5.Enabled = False

        Label8.Enabled = False

    End Sub

إما تكتب الكود بشكل مباشر مثل ذا :

كود :

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged

    TextBox1.Enabled = CheckBox1.Checked

    TextBox2.Enabled = CheckBox1.Checked

End Sub

أو تكتبه ضمن جملة شرطية :

كود :

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged

    If CheckBox1.Checked = True Then

        TextBox1.Enabled = True

        TextBox2.Enabled = True

    Else

        TextBox1.Enabled = False

        TextBox2.Enabled = False

    End If

End Sub

أللهم إجعل بكل حرف حسنة تنفعك يوم الحساب
تم تطبيق حل الجملة الشرطية بنجاح ـ فقط بقي إشكالية ظهور الأدوات المعنية مفعلة في المرة الأولى لإقلاع البرنامج لتعمل بعدها بصفة عادية .

في حدث اللود للبرنامج ضع الجملة الخاصة بتفعيل التشيك :

كود :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        CheckBox1.Checked = True

    End Sub

فبمجرد أنه يجعلها معلمة(صح) يقوم بالتفعيل
وإذا وضعتها على وضع غير مفعلة (False) يقوم بتجميد الأدوات.

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

YANNOURI

Taha Okla

YANNOURI

Taha Okla