(08-08-19, 10:12 PM)ابراهيم ايبو كتب : السلام عليكم اخي ابو روضة
هذا كود أخر لايعتمد عل جمل الفور
كود :
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) ' اضافة عناصر المصفوفة الثانية الى الليست بوكس
الله يكرمك أخى ابراهيم ويبارك بعمرك...
الآن أنت أصبحت تذكرنى بالأخ الجوكر الله يطمنا عليه ويحفظه...
ما شاء الله عليك.
(08-08-19, 10:34 PM)سعود كتب : وبرضو هذا
PHP كود :
Dim lst As New List(Of String)
For Each h As String In ListBox1.Items
If Not lst.Contains(h) Then
lst.Add(h)
End If
Next
ListBox1.Items.Clear()
ListBox1.Items.AddRange(lst.ToArray)
جزاك الله كل الخير أخى سعود وصدقنى أنت بالنسبة لى علم من أعلام المنتدى هنا
فلقد تعلمت على يديك أشياء كثيرة لم أسمع بها من قبل...
الله يحفظك.

