huhu liebe Gemeinde,
ich habe folgendes Szenario:
In Form1 ist folgender Code gebunden:
Sobald die Zeile mit starter.add entfernt wird, funktioniert es. Mit starter.add wird die Schleife nach dem ersten Auslesen zur Listbox abgebrochen. Es erscheint keine Exception, der Code nach dieser Schleife wird gar nicht mehr ausgeführt. D.h.
Die Messagebox erscheint bsp. gar nicht.
Woran kann das Problem liegen?
ich habe folgendes Szenario:
In Form1 ist folgender Code gebunden:
VB.NET-Quellcode
- Dim starter As List(Of String)
- If (IO.File.Exists(maindirectory + "MyXML.xml")) Then
- Dim reader As New XmlTextReader(maindirectory + "MyXML.xml")
- While reader.Read()
- Select Case reader.NodeType
- Case XmlNodeType.Element
- If reader.Name.Contains("Liste") Then
- ListBox1.Items.Add(reader.Name.Replace("Liste-", ""))
- End If
- Exit Select
- Case XmlNodeType.Text
- starter.Add(reader.Value.ToString)
- Exit Select
- End Select
- End While
- End If
Sobald die Zeile mit starter.add entfernt wird, funktioniert es. Mit starter.add wird die Schleife nach dem ersten Auslesen zur Listbox abgebrochen. Es erscheint keine Exception, der Code nach dieser Schleife wird gar nicht mehr ausgeführt. D.h.
VB.NET-Quellcode
- Dim starter As List(Of String)
- If (IO.File.Exists(maindirectory + "MyXML.xml")) Then
- Dim reader As New XmlTextReader(maindirectory + "MyXML.xml")
- While reader.Read()
- Select Case reader.NodeType
- Case XmlNodeType.Element
- If reader.Name.Contains("Liste") Then
- ListBox1.Items.Add(reader.Name.Replace("Liste-", ""))
- End If
- Exit Select
- Case XmlNodeType.Text
- starter.Add(reader.Value.ToString)
- Exit Select
- End Select
- End While
- End If
- msgbox("TEST")
Die Messagebox erscheint bsp. gar nicht.
Woran kann das Problem liegen?