[محمد اسماعيل]

اريد فحص اذا تم تحديد وعمل شيك لاي عنصر من عناصر الاداة اذاتم اختيار عنصر واحد او لم يتم اختيار اي عنصر  بحيث لو لم يتم اختيار عنصر واحد تظهر الاداة ولايخرج منها الا بعد اختيار عنصر منها



استخدمت الكود التالي ولم يعمل معي


 Dim itemChecked As Object
            For Each itemChecked In CheckedListBox1.CheckedItems
                If itemChecked = False Then
                    CheckedListBox1.Visible = True
                    CheckedListBox1.Focus() : Exit Sub
                End If
            Next

[طالب برمجة]

تأكد عن طريق CheckedListBox1.CheckedItems.Count فإذا كان أكبر من صفر فهناك عنصر أو أكثر تم اختياره

---

PHP كود :

If CheckedListBox1.CheckedItems.Count > 0 Then
    CheckedListBox1.Show()
    CheckedListBox1.Focus()
    Exit Sub
End If 


[محمد اسماعيل]

(10-12-17, 09:06 PM)طالب برمجة كتب : تأكد عن طريق CheckedListBox1.CheckedItems.Count فإذا كان أكبر من صفر فهناك عنصر أو أكثر تم اختياره

---

PHP كود :

If CheckedListBox1.CheckedItems.Count > 0 Then
    CheckedListBox1.Show()
    CheckedListBox1.Focus()
    Exit Sub
End If 


الف شكر اخي الكريم الكود ظبط معايا