Porównanie textboxa z pozycjami listboxa.

[Crossiik]

Jak porównać tekst textboxa ze wszystkimi pozycjami listboxa?

 

[tubady123]

For Each:

For Each item In ListBox1.Items
     If item.ToString = TextBox1.Text Then
            'zrób coś
     End If
Next

[Crossiik]

Za pierwszym razem działa, ale gdy program próbuje powtórzyć kod dostaje błąd 

 

System.InvalidOperationException: List that this enumerator is bound to has been modified. An enumerator can only be used if the list does not change.
   at System.Windows.Forms.ListBox.ItemArray.EntryEnumerator.System.Collections.IEnumerator.MoveNext()
   at Vlauncher.Form1.Button6x_Click(Object sender, EventArgs e) in C:\Users\Crossik\Documents\Visual Studio 2013\Projects\Vlauncher\Vlauncher\Form1-kopia.vb:line 311
   at System.Windows.Forms.Control.OnClick(EventArgs e)
   at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
   at System.Windows.Forms.Control.WndProc(Message& m)
   at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
   at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
   at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)

  For Each item In ListBox1.Items
            If TextBox8x.Text + "~" + TextBox7x.Text = item.ToString Then
                MsgBox("Ta nazwa jest już zajęta")
            Else
                ListBox1.Items.Add(TextBox8x.Text + "~" + TextBox7x.Text)
                Dim FILE_NAME As String = My.Application.Info.DirectoryPath + "\serwery.txt"
                Dim objWriter As New System.IO.StreamWriter(FILE_NAME, True)
                objWriter.WriteLine(TextBox8x.Text + "~" + TextBox7x.Text)
                objWriter.Close()

            End If
        Next

Tak wygląda kod

[Crossiik]

Ref. Może to bardziej pomoże 

http://scr.hu/31ss/xtedd

 

[tubady123]

Ogólnie patrząc, to zrobiłeś błąd w rozumowaniu. Pętla For Each jedzie kolejno po każdym elemencie w kolekcji i wykonuje kod. Czyli w twoim kodzie dla każdego elementu, gdy If jest fałszywy wykonuje blok Else, co jest błędem, ponieważ powinien się wykonać tylko raz i wyjść z pętli. Stąd też wyskakuje błąd, bo w trakcie wykonywania pętli modyfikujesz listę. Rozwiązaniem problemu jest wyjście z pętli w Elsie, czyli dodanie linijki "Exit For".

  For Each item In ListBox1.Items
            If TextBox8x.Text + "~" + TextBox7x.Text = item.ToString Then
                MsgBox("Ta nazwa jest już zajęta")
            Else
                ListBox1.Items.Add(TextBox8x.Text + "~" + TextBox7x.Text)
                Dim FILE_NAME As String = My.Application.Info.DirectoryPath + "\serwery.txt"
                Dim objWriter As New System.IO.StreamWriter(FILE_NAME, True)
                objWriter.WriteLine(TextBox8x.Text + "~" + TextBox7x.Text)
                objWriter.Close()
                Exit For
            End If
        Next

powinno działac

[Crossiik]

Teraz dzieją się dziwne rzeczy. Jeśli nazwa ta była w listobxie przed odpaleniem programu i teraz spróbuje dodać drugą pozycję o tej samej nazwie to wyskakuje komunikat o zajętej nazwie co mnie cieszy. Jeśli natomiast najpierw dodam np "abc" a potem spróbuje dodać jeszcze raz by wyskoczył komunikat to nic z tego. Pojawiają się 2 "abc"

http://scr.hu/31ss/a3q3c

 

Może przed każdą kolejną pętlą odświeżyć listboxa z pliku txt?

[tubady123]

Sorki, pisałem to późnym wieczorem i nie ogarniałem.

 

Kod buttona:

If czyNazwaJestZajeta() Then
            MsgBox("Ta nazwa jest już zajęta")
Else
            ListBox1.Items.Add(TextBox8x.Text + "~" + TextBox7x.Text)
            Dim FILE_NAME As String = My.Application.Info.DirectoryPath + "\serwery.txt"
            Dim objWriter As New System.IO.StreamWriter(FILE_NAME, True)
            objWriter.WriteLine(TextBox8x.Text + "~" + TextBox7x.Text)
            objWriter.Close()
End If

Funkcja:

Private Function czyNazwaJestZajeta() As Boolean
        For Each item In ListBox1.Items
            If TextBox8x.Text + "~" + TextBox7x.Text = item.ToString Then
                Return True
            End If
        Next
        Return False
End Function

[Crossiik]

Wszystko pięknie działa. Dziękuje bardzo za pomoc można zamknąć.