سؤال بخصوص تشيك ليست بوكس - نسخة قابلة للطباعة

سؤال بخصوص تشيك ليست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال بخصوص تشيك ليست بوكس (/showthread.php?tid=28284)

سؤال بخصوص تشيك ليست بوكس - نور الهدى الهدى - 17-01-19

هذا الكود لإضافة العناصر التي عليها تشيك في ليست بوكس

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        If CheckedListBox1.CheckedItems.Count < 1 Then Exit Sub

        For r As Integer = 0 To CheckedListBox1.CheckedItems.Count - 1

            ListBox1.Items.Add(CheckedListBox1.CheckedItems(r).ToString)

        Next

    End Sub

كيف يمكن إضافة العناصر الاخري التي لايوجد عليها تشيك في ليست بوكس أخر

RE: سؤال بخصوص تشيك ليست بوكس - حريف برمجة - 17-01-19

كود :

For i = 0 To CheckedListBox1.Items.Count - 1

            Dim Item As Object = CheckedListBox1.Items(i)

            If CheckedListBox1.GetItemChecked(i) Then

                'Do something if Item is checked

                ListBox1.Items.Add(Item)

            Else

                'Do something else if Item is not checked

                ListBox2.Items.Add(Item)

            End If

        Next

RE: سؤال بخصوص تشيك ليست بوكس - نور الهدى الهدى - 21-01-19

(17-01-19, 09:31 PM)حريف برمجة كتب :

كود :

For i = 0 To CheckedListBox1.Items.Count - 1 Dim Item As Object = CheckedListBox1.Items(i) If CheckedListBox1.GetItemChecked(i) Then 'Do something if Item is checked ListBox1.Items.Add(Item) Else 'Do something else if Item is not checked ListBox2.Items.Add(Item) End If Next

جزاك الله كل خير

RE: سؤال بخصوص تشيك ليست بوكس - حريف برمجة - 22-01-19

وياك والمسلمين جميع