المحتوى الرئيسي

مفهوم زر الاختيار البديل RadioButton

زر الاختيار البديل (RadioButton) هو أداة تحكم تُستخدَم عندما يكون على المستخدم اختيار بديل واحد فقط من بين عدة بدائل متاحة، مثل اختيار النوع (ذكر أو أنثى)، أو اختيار مستوى الصعوبة (سهل/متوسط/صعب). يظهر الزر على شكل دائرة صغيرة تمتلئ بنقطة عند اختياره.

الخاصية Checked

هي الخاصية الأهم في RadioButton، وهي خاصية منطقية (Boolean) تحدد ما إذا كان الزر مختارًا (True) أو غير مختار (False).

قراءة حالة الاختيار:

If RadioButton1.Checked = True Then
    Label1.Text = "لقد اخترت: ذكر"
End If

ضبط الاختيار بالكود (مثلًا لجعل خيار معين هو الافتراضي عند بدء التشغيل):

RadioButton1.Checked = True

قاعدة الاختيار الواحد (Mutual Exclusivity)

الخاصية الجوهرية في أزرار RadioButton هي أنها تعمل كمجموعة؛ فعندما يختار المستخدم زرًا معينًا من بين مجموعة أزرار RadioButton موجودة في نفس الحاوية (سواء النموذج نفسه أو GroupBox واحد)، تُلغى تلقائيًّا حالة اختيار أي زر آخر في نفس المجموعة. أي أنه لا يمكن اختيار أكثر من زر واحد في نفس الوقت داخل المجموعة نفسها؛ ومن هنا جاء اسمها “الاختيار البديل”.

دور GroupBox في تكوين مجموعات مستقلة

كما سبق توضيحه في درس GroupBox، فإن أزرار RadioButton الموضوعة مباشرة على نفس النموذج (دون حاوية) تُعامَل كمجموعة واحدة فقط. لإنشاء أكثر من مجموعة اختيار مستقلة داخل نفس النموذج (مثال: مجموعة “النوع” ومجموعة “الصف الدراسي”)، يجب وضع كل مجموعة داخل GroupBox منفصل؛ فيضمن ذلك أن اختيار المستخدم في مجموعة لا يؤثر على اختياره في المجموعة الأخرى.

حدث CheckedChanged

ينفَّذ هذا الحدث عند تغيّر حالة اختيار الزر (سواء أصبح مختارًا أو أصبح غير مختار):

Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
    If RadioButton1.Checked Then
        Label1.Text = "النوع: ذكر"
    End If
End Sub

خصائص أخرى مهمة

• Text: النص الظاهر بجانب دائرة الاختيار، مثل “ذكر” أو “أنثى”.
• Name: الاسم البرمجي، مثل rbMale وrbFemale.
• Enabled: تفعيل أو تعطيل الزر.

مثال تطبيقي متكامل

تحديد الجنس المختار عند الضغط على زر التأكيد:

Private Sub btnConfirm_Click(sender As Object, e As EventArgs) Handles btnConfirm.Click
    If RadioButton1.Checked Then
        Label1.Text = "النوع المختار: ذكر"
    ElseIf RadioButton2.Checked Then
        Label1.Text = "النوع المختار: أنثى"
    Else
        Label1.Text = "لم يتم اختيار النوع"
    End If
End Sub

أسئلة للمراجعة

1. ما وظيفة خاصية Checked في أداة RadioButton؟
2. لماذا لا يمكن اختيار أكثر من زر RadioButton واحد في نفس الوقت داخل المجموعة نفسها؟
3. كيف يمكن إنشاء مجموعتين مستقلتين من أزرار RadioButton على نفس النموذج؟
4. اكتب كودًا يتحقق من الزر المختار بين ثلاثة أزرار (rbEasy، rbMedium، rbHard) ويعرض النتيجة في Label1.
5. اكتب سطر كود يجعل الزر rbFemale هو الاختيار الافتراضي عند فتح النموذج.