[RaggiTech]

كاتب الموضوع : BADRMEDIA

أداة صندوق الاختيار CheckBox الشهيرة

كما هي ولكن سنتعرف على المزايا فيها


=============================


مثلاً عند اختبار حالته

كود :

If CheckBox1.Checked Then
MessageBox.Show("الاختيار مفعل")
Else
MessageBox.Show("الاختيار غير مفعل")
End If

If CheckBox1.Checked Then مثل If CheckBox1.Checked = True Then

لأن فى حالة Checked يكون يساوى True



لكن هو له ثلاث حالات


Checked

Unchecked

Indeterminate - حالة جديدة


لكن من أجل استخدام الثلاث حالات لابد من تفعيل الخاصية ThreeState وتجعلها تساوي True

كود :

CheckBox1.ThreeState = True

ونجد أن المستخدم عندما يضغط على العنصر يتم التبديل بين الثلاث حالات

كود :

Select Case CheckBox1.CheckState
Case CheckState.Checked
MessageBox.Show("حالة أولي")
Case CheckState.Indeterminate
MessageBox.Show("حالة ثانية")
Case CheckState.Unchecked
MessageBox.Show("حالة ثالثة")
End Select