+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : listbox (/showthread.php?tid=30620)
الصفحات:
1
2
RE: listbox - ابراهيم ايبو - 03-08-19
السلام عليكم ورحمة الله وبركاته
تفضل الكود بعد التعديل فكلما اضفت عنصرا جديدا تظهر رسالة باضافة ذلك العنصر
كود :
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