17-01-19, 06:38 PM
هذا الكود لإضافة العناصر التي عليها تشيك في ليست بوكس
كيف يمكن إضافة العناصر الاخري التي لايوجد عليها تشيك في ليست بوكس أخر
كود :
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
كيف يمكن إضافة العناصر الاخري التي لايوجد عليها تشيك في ليست بوكس أخر