تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال بخصوص تشيك ليست بوكس
#1
هذا الكود لإضافة العناصر التي عليها تشيك في ليست بوكس
كود :
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

كيف يمكن إضافة العناصر الاخري التي لايوجد عليها تشيك في ليست بوكس أخر
الرد }}}
تم الشكر بواسطة: alsouf
#2
كود :
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
يا رحمن الدنيا والآخرة ورحيمهما
الرد }}}
#3
(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

جزاك الله كل خير
الرد }}}
تم الشكر بواسطة: elgokr
#4
وياك والمسلمين جميع
يا رحمن الدنيا والآخرة ورحيمهما
الرد }}}
تم الشكر بواسطة: نور الهدى الهدى , elgokr , elgokr



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم