ListBox abarbeiten?

[Baumstumpf]

for i=0 to listbox1.items.count - 1
messagebox.show(listbox1.items.item(i))
next


oder:

for each item in listbox1.items
messagebox.show(item)
next

/e: Klammern vergessen

[exception]

Dim exit1 as Integer = 0

Do

For each Item in Listbox1.Items
Msgbox(item)
Next

If exit1 = 1 Then
Exit Do
End if

Loop

oder:

Dim x as Boolean = True
While x = True

For each Item in Listbox1.Items
Msgbox(item)
Next

End While


Wenn du die Exit1 Variable auf 1 setzt hört er auf.
Im anderen Beispiel x auf False.

[Rawr.]

for i=0 to listbox1.items.count - 1
messagebox.show(listbox1.items.item(i))
next


oder:

for each item in listbox1.items
messagebox.show(item)
next

/e: Klammern vergessen

Mit dem Code, sendet er ja alles aufeinmal x)

Dim exit1 as Integer = 0

Do

For each Item in Listbox1.Items
Msgbox(item)
Next

If exit1 = 1 Then
Exit Do
End if

Loop


Wenn du die Exit Variable auf 1 setzt hört er auf.

Waren 3 Fehler da.
Hab sie korregiert.
Nun lautet der Code

    Do

            For Each Item In ListBox1.Items
                MsgBox(Item)
            Next

            If Exxit = 1 Then
                Exit Do
            End If

        Loop

Funktioniert aber nicht. Da macht er nichts.
Ich Meld mich mal per PN bei dir x)

[ewfijwef]

Ich verstehe dein Problem zwar nicht ganz.
Aber ich habe jetzt diesen Code für dich:

     Dim items As String = String.Empty

        For i As Integer = 0 To ListBox1.Items.Count - 1
            items &= ListBox1.Items(i).ToString & vbCrLf
        Next

        items = items.Trim

        MessageBox.Show(items)

In der For-Schleife wird der Text jedes Items einem String zugewiesen. In der Zeile "items = items.Trim" werden unnötige Leerzeichen entfernt, und somit auch die letzte Leerzeile. Danach wird eine MessageBox mit dem String angezeigt.

Wenn ich also in einer ListBox die items "A,B,C,D,E" habe, wird eine MessageBox mit diesem Inhalt geöffnet:
A
B
C
D
E

[Diebspiel]

@ ewfijwef:

Das Zusammenfügen geht mit der String.Join Methode deutlich einfacher und performanter.

[ewfijwef]

Danke für den Tipp Diebspiel.
Könntest du mir bitte ein Beispiel geben wie man dieses Problem mit String.Join löst? Ich habe in Google geschaut...ich habe als Trennzeichen VbCrLf genommen, aber das Problem kam dann, weil ListBox.Items() ja kein String-Array ist? Oder ist mein Denkansatz komplett falsch?

Mfg

[Diebspiel]

Hallo ewfijwef,

Da hast du recht, die ListBox bietet kein direktes Stringarray an. Wir können aber die Elemente in ein von uns erstelles Array kopieren.

Dim itemArray(ListBox1.Items.Count - 1) As String ' Array erstellen mit der Anzahl der Elementen

        ListBox1.Items.CopyTo(itemArray, 0) ' Elemente in das Array kopieren

        MessageBox.Show(String.Join(", ", itemArray)) ' Elemente schön ausgeben mit Join

Grüße

[Rawr.]

Hallo ewfijwef,

Da hast du recht, die ListBox bietet kein direktes Stringarray an. Wir können aber die Elemente in ein von uns erstelles Array kopieren.

Dim itemArray(ListBox1.Items.Count - 1) As String ' Array erstellen mit der Anzahl der Elementen

        ListBox1.Items.CopyTo(itemArray, 0) ' Elemente in das Array kopieren

        MessageBox.Show(String.Join(", ", itemArray)) ' Elemente schön ausgeben mit Join

Grüße

Ist das auch eine Lösung für mein Problem? :x
Oder nur ein Beispiel für ihn ^^

Weil mein Problem besteht immer noch :/

[Diebspiel]

Weil mein Problem besteht immer noch :/

Das war für ihn.

Und deine letzte Frage hat keiner verstanden. Was genau möchtest du machen? Gib auch ein praktisches Beispiel an.

[Rawr.]

Ich habe eine Listbox mit Items und möchte die nacheinandere per My.Computer.Keyboard.Sendkeys absenden. In einer Endlos schleife.
Immer und immre wieder von Oben nach unten

Kann mir bei der Erklärung wer helfen? x)