03-08-19, 10:44 AM
السلام عليكم ورحمة الله وبركاته
تفضل الكود بعد التعديل فكلما اضفت عنصرا جديدا تظهر رسالة باضافة ذلك العنصر
تفضل الكود بعد التعديل فكلما اضفت عنصرا جديدا تظهر رسالة باضافة ذلك العنصر
كود :
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