10-12-17, 08:40 PM
اريد فحص اذا تم تحديد وعمل شيك لاي عنصر من عناصر الاداة اذاتم اختيار عنصر واحد او لم يتم اختيار اي عنصر بحيث لو لم يتم اختيار عنصر واحد تظهر الاداة ولايخرج منها الا بعد اختيار عنصر منها
استخدمت الكود التالي ولم يعمل معي
Dim itemChecked As Object
For Each itemChecked In CheckedListBox1.CheckedItems
If itemChecked = False Then
CheckedListBox1.Visible = True
CheckedListBox1.Focus() : Exit Sub
End If
Next
استخدمت الكود التالي ولم يعمل معي
Dim itemChecked As Object
For Each itemChecked In CheckedListBox1.CheckedItems
If itemChecked = False Then
CheckedListBox1.Visible = True
CheckedListBox1.Focus() : Exit Sub
End If
Next