منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] اداة شيك ليست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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] اداة شيك ليست بوكس (/showthread.php?tid=22816)

اداة شيك ليست بوكس - محمد اسماعيل - 05-12-17

السلام عليكم

عندي اداة شيك ليست بوكس

وبها عدة عناصر  طبعا كل عنصر بجانبة شيك بوكس اريد ان يتم فحص وعمل شيك لعنصر واحد فقط

يعني لو تم عمل شيك لعنصر منها لايمكن عمل شيك مرة اخري لعنصر اخر ولكن يجب الغاء شيك لعمل شيك لعنصر اخر

استخدمت الكود التالي ولكن بدون نتيجة


كود :
Private Sub CheckListBox1_CheckChanged(Index As Integer, e As System.Windows.Forms.MouseEventArgs) Handles CheckListBox1.CheckChanged
       If CheckListBox1.CheckedIndices.Count > 0 Then
           Exit Sub
       End If
   End Sub


RE: اداة شيك ليست بوكس - طالب برمجة - 05-12-17

تفضل هذا الكود
PHP كود :
Private Sub CheckedListBox1_ItemCheck(ByVal sender As Object, ByVal e As ItemCheckEventArgs) Handles CheckedListBox1.ItemCheck
    For Each index In sender.CheckedIndices
        If index <> e.Index Then sender.SetItemChecked(index, False)
    Next
End Sub 


RE: اداة شيك ليست بوكس - محمد اسماعيل - 05-12-17

(05-12-17, 01:41 PM)طالب برمجة كتب : تفضل هذا الكود
PHP كود :
Private Sub CheckedListBox1_ItemCheck(ByVal sender As Object, ByVal e As ItemCheckEventArgs) Handles CheckedListBox1.ItemCheck
    For Each index In sender.CheckedIndices
        If index <> e.Index Then sender.SetItemChecked(index, False)
    Next
End Sub 

سؤال بسيط لو اردت اختيار عنصر واحد من اليست بوكس