Listbox überprüfen

  • VB.NET

Es gibt 14 Antworten in diesem Thema. Der letzte Beitrag () ist von gfcwfzkm.

    Listbox überprüfen

    Hi,

    Wie kann ich die ListBox alles überprüfen lassen?

    Quellcode

    1. If TextBox3.Text = "/kick " & ListBox1.Items.ToString Then
    2. MsgBox("Du besitzt keine Admin-Rechte! Probier dies bitte nicht nochmal!", MsgBoxStyle.Information)
    3. streamw.WriteLine("!!!")
    4. streamw.Flush()
    5. Else
    6. streamw.WriteLine(TextBox3.Text)
    7. streamw.Flush()
    8. TextBox3.Clear()
    9. End If

    Also, das ich die komplette listbox auf einen Benutzernamen scannen kann, und fals der name exestiert, wird das kicken gesperrt. Fals nicht, wird alles weitergefürt...
    Brauch da help ;(

    mfg

    ui thx

    Edit:// geht nicht. .Text ist kein member von string

    Quellcode

    1. For Each itm As String In ListBox1.Items
    2. If TextBox3.Text = "/kick " & itm.Text Then
    3. MsgBox("Du besitzt keine Admin-Rechte! Probier dies bitte nicht nochmal!", MsgBoxStyle.Information)
    4. streamw.WriteLine("!!!")
    5. streamw.Flush()
    6. Else
    7. streamw.WriteLine(TextBox3.Text)
    8. streamw.Flush()
    9. TextBox3.Clear()
    10. End If
    11. Next


    wo liegt der fehler?

    hat gefunzt, bis ich meine Admin-rechte-Warnung verändert hab...

    Fehler:
    Die Liste, an die der Enumerator gebunden ist, wurde geändert. Ein Enumerator kann nur verwendet werden, wenn die Liste nicht geändert wird.

    Quellcode

    1. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    2. For Each itm As String In ListBox1.Items
    3. If TextBox3.Text = "/kick " & itm Then
    4. MsgBox("Du besitzt keine Admin-Rechte! Probier dies bitte nicht nochmal!", MsgBoxStyle.Information)
    5. streamw.Close()
    6. streamr.Close()
    7. stream.Close()
    8. Me.Close()
    9. Form1.Show()
    11. Else
    12. streamw.WriteLine(TextBox3.Text)
    13. streamw.Flush()
    14. TextBox3.Clear()
    15. End If
    16. Next
    17. End Sub


    Gibt es einen ausweg oder eine andere möglichkeit?

    mfg

    Hi
    Vermutlich ist das nicht der ganze Code oder ich habe etwas überlesen. For-Each basiert auf der Enumeration, die von Items gebildet werden kann (implementiert IEnumerable). Wenn die Liste geändert wird, kann der Enumerator die Items nicht mehr so auflisten, wie sie vorher waren, da er sich den Speicher nicht extra dafür reserviert. Wenn du nun die Items der ListBox veränderst, führt das dazu, dass der Enumerator einen Fehler auslöst, sobald MoveNext() aufgerufen wird (hier das Next der For-Each-Schleife), da seine Items geändert wurden.

    Und ich plädiere für Option Strict On! Das ist ja grausam!

    Gruß
    ~blaze~

    Open Strikt on? Hab kein plan was das ist...

    Der Komplette Code...:

    Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.IO
    3. Public Class Form3
    4. Private stream As NetworkStream
    5. Private streamw As StreamWriter
    6. Private streamr As StreamReader
    7. Private client As New TcpClient
    8. Private t As New Threading.Thread(AddressOf Listen)
    9. Private Delegate Sub DAddItem(ByVal s As String)
    11. Private Sub AddItem(ByVal s As String)
    12. Dim userlist As String()
    13. If s.StartsWith("/u ") Then
    14. userlist = s.Remove(0, 3).Split(",")
    15. ListBox1.Items.Clear()
    16. ListBox1.Items.AddRange(userlist)
    17. ElseIf s.StartsWith("/kick " & TextBox2.Text) Then
    18. stream.Close()
    19. streamw.Close()
    20. streamr.Close()
    21. client.Close()
    22. Button1.Show()
    23. Button3.Hide()
    24. TextBox2.ReadOnly = False
    25. TextBox1.ReadOnly = False
    26. RichTextBox1.Text = "DU WURDEST GEKICKT!"
    27. MsgBox("DU WURDEST GEKICKT", MsgBoxStyle.Exclamation)
    28. Else
    29. Form1.RichTextBox1.Text = RichTextBox1.Text & s & vbCrLf
    30. RichTextBox1.Text = RichTextBox1.Text & s & vbCrLf
    31. End If
    32. End Sub
    34. Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
    35. Form1.RichTextBox1.Visible = True
    36. Button1.Hide()
    37. Label3.Text = "."
    38. Button3.Show()
    39. TextBox2.ReadOnly = True
    40. TextBox1.ReadOnly = True
    41. Try
    42. client.Connect(TextBox1.Text, 8000)
    44. If client.Connected Then
    45. stream = client.GetStream
    46. streamw = New StreamWriter(stream)
    47. streamr = New StreamReader(stream)
    49. streamw.WriteLine(TextBox2.Text)
    50. streamw.Flush()
    52. t.Start()
    53. Else
    54. MessageBox.Show("Verbindung zum Server nicht möglich / wurde getrennt!")
    55. End If
    56. Catch ex As Exception
    57. MessageBox.Show("Verbindung zum Server nicht möglich / wurde getrennt!")
    58. End Try
    60. End Sub
    62. Private Sub Listen()
    63. While client.Connected
    64. Try
    65. Me.Invoke(New DAddItem(AddressOf AddItem), streamr.ReadLine)
    66. Catch
    67. MessageBox.Show("Verbindung zum Server nicht möglich / wurde getrennt!")
    68. End Try
    69. End While
    70. End Sub
    72. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    73. For Each itm As String In ListBox1.Items
    74. If TextBox3.Text = "/kick " & itm Then
    75. MsgBox("Du besitzt keine Admin-Rechte! Probier dies bitte nicht nochmal!", MsgBoxStyle.Information)
    76. streamw.Close()
    77. streamr.Close()
    78. stream.Close()
    79. Me.Close()
    80. Form1.Show()
    82. Else
    83. streamw.WriteLine(TextBox3.Text)
    84. streamw.Flush()
    85. TextBox3.Clear()
    86. End If
    87. Next
    88. End Sub
    90. Private Sub Form3_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    91. If Label3.Text = "." Then
    93. Form1.RichTextBox1.Visible = False
    94. stream.Close()
    95. streamw.Close()
    96. streamr.Close()
    97. TextBox2.ReadOnly = False
    98. TextBox1.ReadOnly = False
    99. Form1.Show()
    100. Else
    101. Form1.RichTextBox1.Visible = False
    102. Form1.Show()
    103. End If
    104. End Sub
    106. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    107. If Label3.Text = "." Then
    108. stream.Close()
    109. streamw.Close()
    110. streamr.Close()
    111. Button1.Show()
    112. Button3.Hide()
    113. TextBox2.ReadOnly = False
    114. TextBox1.ReadOnly = False
    115. Else
    116. End If
    117. End Sub
    119. Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
    120. Process.Start("http://multitips.de/index.php?page=Thread&postID=306#post306")
    121. End Sub
    122. End Class


    Es ist der TCP/IP-Multichat-code, den ich in meinem Browser einbauen will...

    mfg

    gfcwfzkm schrieb:

    Open Strikt on? Hab kein plan was das ist...

    Das wusst' ich schon.

    Zum Problem wird hier vermutlich der Thread. Lustig ist auch, dass man genau sieht, welcher Code von dir ist und welcher vermutlich nicht (MessageBox und MsgBox). In Zeile 15 und 16 wird die ListBox vom Thread verändert. Die Synchronisation mit Button2_Click kann damit nicht funktionieren, da ein ständiges Löschen und Hinzufügen stattfindet. Entweder du wartest, bis das Löschen und Hinzufügen geschehen ist oder du schaltest eine Boolean-Abfrage zwischen, die jedes mal überprüft wird. Naja, wobei ich eher sagen würde, dass du den Code teilweise in die Tonne treten kannst. Mach das Hinzufügen und Ändern der Items der ListBox über die entfernten bzw. hinzugefügten Teilnehmer und nicht mit vollständiger Löschung und wieder vollständiger Hinzufügung.

    Ach ja: Für VB-Code sind die vb-Tags da, nicht der code-Tag!

    Gruß
    ~blaze~

    Du startest mittendrin (Zeile 52) einen Thread (deklariert in Zeile 8), der in Zeile 65 die Additem-Methode aufruft, und damit deine Items-Collection verändert. Dies führt zu der Fehlermeldung (...Enumeration...), die du oben gepostet hast.

    Das wirst du schon selbst rausfinden müssen.

    Hier gibts Hilfestellung zu Problemen, keine kompletten Sourcecodes.
    Schau dir am besten mal die Grundlagen an. ;)

    hmm... :S

    Edit://

    Ha, es geht leichter. Mit ne try-box :P

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „gfcwfzkm“ ()

Facebook
Telefonspende