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

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

كود :

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

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

كود :

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

(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

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

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

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

نور الهدى الهدى

حريف برمجة

نور الهدى الهدى

حريف برمجة