تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
listbox
#11
السلام عليكم ورحمة الله وبركاته
تفضل الكود بعد التعديل فكلما اضفت عنصرا جديدا تظهر رسالة باضافة ذلك العنصر
كود :
Public Class Form1
   Dim AA As Integer = 0
   Dim strn As String = ""
   Private Sub Btn_Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Add.Click
       AA = ListBox1.Items.Count
       If Txt_AddItem.Text <> "" Then
           strn = Txt_AddItem.Text
           ListBox1.Items.Add(Txt_AddItem.Text)
           ' هذا الكود لمنع تكرار العنصر في الليست فيو مع كل اضافة لتتم الفلترة
           Dim strItems(ListBox1.Items.Count - 1) As String ' انشاء مصفوفة
           ListBox1.Items.CopyTo(strItems, 0) '  مصفوفة فيها كل العناصر ولو مكررة
           Dim strItems2() As String = strItems.Distinct().ToArray() ' انشاء مصفوفة جديدة عناصرها من المصفوفة الاولى بدون تكرار
           ListBox1.Items.Clear()
           ListBox1.Items.AddRange(strItems2) '  اضافة عناصر المصفوفة الثانية الى الليست فيو
           Txt_AddItem.Text = ""
       End If
       If ListBox1.Items.Count > AA Then
           MsgBox(strn & " تم اضافة العنصر ")
       End If
   End Sub
End Class
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: asemshahen5 , dasktop



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


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