منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : فحص العناصر في اداة CheckedListBox1
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
اريد فحص اذا تم تحديد وعمل شيك لاي عنصر من عناصر الاداة اذاتم اختيار عنصر واحد او لم يتم اختيار اي عنصر  بحيث لو لم يتم اختيار عنصر واحد تظهر الاداة ولايخرج منها الا بعد اختيار عنصر منها



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


 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 

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