Listbox - Elemente auslesen

Tüv-Killer

Grünschnabel
Hallo,

ich möchte per Schleife alle Elemente des Listbox-Steuerelementes auslesen.
Wenn es die einzelnen Elemente anspreche ist es mir möglich, aber per Schleife mit einer Variable nicht.

Vielleicht wisst ihr ja, was ich machen kann, damit ich die gesamten Elemente auslesen kann.

QuellCODE:

Funktioniert nicht :

For K = 0 To AnzahlMaengel Step 1
XMLKD = XML.CreateElement("Mangel")
XMLKD.InnerText = Me.lst_Mangel.Items.Item(K).ToString
XML.DocumentElement.AppendChild(XMLKD)
Next K

So klappt es:

XMLKD = XML.CreateElement("Mangel")
XMLKD.InnerText = Me.lst_Mangel.Items.Item(0).ToString
XML.DocumentElement.AppendChild(XMLKD)

XMLKD = XML.CreateElement("Mangel")
XMLKD.InnerText = Me.lst_Mangel.Items.Item(1).ToString
XML.DocumentElement.AppendChild(XMLKD)

XMLKD = XML.CreateElement("Mangel")
XMLKD.InnerText = Me.lst_Mangel.Items.Item(2).ToString
XML.DocumentElement.AppendChild(XMLKD)

Danke schon mal im Voraus,

André
 
Lösung !

AnzahlMaengel = Me.lst_Mangel.Items.Count() - 1

For K = 0 To AnzahlMaengel Step 1
XMLKD = XML.CreateElement("Mangel")
XMLKD.InnerText = Me.lst_Mangel.Items.Item(K).ToString
XML.DocumentElement.AppendChild(XMLKD)
Next K
 
Zurück