06-10-12, 10:38 PM
كاتب الموضوع : BADRMEDIA
أداة صندوق الاختيار CheckBox الشهيرة
كما هي ولكن سنتعرف على المزايا فيها
=============================
مثلاً عند اختبار حالته
كود :
If CheckBox1.Checked Then
MessageBox.Show("الاختيار مفعل")
Else
MessageBox.Show("الاختيار غير مفعل")
End IfIf 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