+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] استفسار بخصوص كود select all CheckBox (/showthread.php?tid=22960)
استفسار بخصوص كود select all CheckBox - dubai.eig - 17-12-17
السلام عليكم ورحمة الله
محتاج كود لاضافة صح في اكثر من مربع CheckBox
علما باني قمت بالبحث وحصلت موضوع بس خاص بال vb6
بارك الله فيكم وشكرا
RE: استفسار بخصوص كود select all CheckBox - ahmedmansour - 17-12-17
على ما فهمت من حضرتك
اعتقد هذا الكود يبفى بالغرض معك
على افتراض ان CheckBox اسمها T1
ضع هذا الكود فى حد ث T1_CheckedChanged
لو ضغطن على T1 سيتم اخيتار كل الادوات من نوعيه CheckBox
PHP كود :
For Each C As Control In Me.GroupBox1.Controls
If T1.Checked = True Then
If TypeOf C Is CheckBox Then
DirectCast(C, CheckBox).Checked = True
End If
Else
If TypeOf C Is CheckBox Then
DirectCast(C, CheckBox).Checked = False
End If
End If
Next
RE: استفسار بخصوص كود select all CheckBox - dubai.eig - 17-12-17
(17-12-17, 05:43 PM)ahmedmansour كتب : على ما فهمت من حضرتك
اعتقد هذا الكود يبفى بالغرض معك
على افتراض ان CheckBox اسمها T1
ضع هذا الكود فى حد ث T1_CheckedChanged
لو ضغطن على T1 سيتم اخيتار كل الادوات من نوعيه CheckBox
PHP كود :
For Each C As Control In Me.GroupBox1.Controls
If T1.Checked = True Then
If TypeOf C Is CheckBox Then
DirectCast(C, CheckBox).Checked = True
End If
Else
If TypeOf C Is CheckBox Then
DirectCast(C, CheckBox).Checked = False
End If
End If
Next
احسنت بارك الله فيك
شكرا
