Найти одинаковые значения (строки) в ListBox - Visual Basic .NET

Формулировка задачи:

Как найти одинаковые элементы в listbox ? в listbox используется datasource Пытался ___________

                    Листинг программы
                
 
                        
                          
                    
Dim qa As Integer = 0
        While qa < ListBox4.Items.Count 'перебираем элементы
           If ListBox4.Items.IndexOf(ListBox4.Items(qa)) < qa Then 'ищем было ли до этого такие же
               label1.text="Одинаковые элементы"
               qa = qa - 1
           End If
            qa = qa + 1
        End While

Решение задачи: «Найти одинаковые значения (строки) в ListBox»

textual
                            Листинг программы 
                        
 
                        
                          
                    
        Dim Hs As New HashSet(Of String)
        For I As Integer = 0 To ListBox1.Items.Count - 1
            If Hs.Add(ListBox1.Items(I)) = False Then
                MsgBox("Повторяется: " & ListBox1.Items(I) & " , индекс: " & I)
            End If
        Next

Оцени полезность:

8 голосов , оценка 3.75 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы