Listview einträge untereinander darstellen

Question

Hallo Zusammen,

ich habe folgendes Problem.  Ich habe ein Listview in das ich Einträge hinzufüge:

Dim zahl As Integer = 1
        Do While Not zahl > 1000
            Dim Maßnahmennummer As String = Format(zahl, "000")
            Form4.ListBox2.Items.Add(Maßnahmennummer)
            zahl = zahl + 1
        Loop

        For Each dateiPfad As String In IO.Directory.GetFiles(pfad + "projekte\" + Form1.Label9.Text + "\maßnahmen\")
            Dim dateiNameOhneEndung As String = IO.Path.GetFileNameWithoutExtension(dateiPfad)
            Dim sreader As StreamReader = New IO.StreamReader(dateiPfad, System.Text.Encoding.Default)

            Dim planungoffen As String = 0
            Dim abgeschlossen As String = 0
            Dim bezeichnung As String

            Do While Not sreader.EndOfStream
                Dim zeileauslesen As String = sreader.ReadLine
                Dim sreadersplit() As String

                sreadersplit = zeileauslesen.Split(";")

                If sreadersplit(0) = "alias" Then
                    bezeichnung = sreadersplit(1)
                    Continue Do
                End If

                If sreadersplit(0) = "picture" Or sreadersplit(0) = "picture2" Or sreadersplit(0) = "picture3" Or _
                    sreadersplit(0) = "picture4" Or sreadersplit(0) = "picture5" Or sreadersplit(0) = "abgeschlossen" Or _
                    sreadersplit(0) = "Bemerkung" Then
                    Continue Do
                End If

                If sreadersplit(2) = "0" Then
                    planungoffen = 1
                Else
                    planungoffen = 0
                End If

                If sreadersplit(2) = sreadersplit(3) Then
                    abgeschlossen = 1
                Else
                    abgeschlossen = 0
                End If

            Loop

            Dim eintrag As String = dateiNameOhneEndung + " - " + bezeichnung
            If planungoffen = 1 Then
                Form4.ListView1.Items.Add(eintrag).BackColor = Color.Red
            Else
                If abgeschlossen = 1 Then
                    Form4.ListView1.Items.Add(eintrag).BackColor = Color.LightGreen
                End If
            End If
            If planungoffen = 0 And abgeschlossen = 0 Then
                Form4.ListView1.Items.Add(eintrag).BackColor = Color.White
            End If

            For i = 0 To Form4.ListBox2.Items.Count - 1
                If Form4.ListBox2.Items(i) = dateiNameOhneEndung Then
                    Form4.ListBox2.Items.RemoveAt(i)
                    Exit For
                End If
            Next i
            sreader.Close()
        Next

Die Voreinstellungen im Listview sind :

Borderstyle = FixedSingle

View = Details

Aligment = Left

Multiselect = False

Jetzt ist es so, dass die Größe des Listview gleich bleibt. Ist Ja Richtig so. Es wird begonnen, die Einträge von oben Links nach unten Links zu schreiben, wenn die Liste am unteren Rand des Listview angekommen ist, dann wird eine neue "Spalte" rechts daneben begonnen.

Ich hätte es aber gern so, das es nur eine Liste von oben nach unten ist. Nicht, dass ich von links nach rechts scrollen muss.

Answer 1

Ich bin jetzt noch mal alles durchgegangen.

Wenn ich jetzt die Liste fülle, dann kann ich nach unten scrollen aber der Inhalt wird nicht angezeigt.

Answer 2

Du musst ein Listviewitem definieren, welches den ersten Wert hat und die weiteren Werte sind dann jeweils Subitems. Dann das Listviewitem der Listview hinzufügen. Vorher sollte die Listview vielleicht auch ein paar Spalten zugewiesen bekommen.

Answer 3

Hallo Sisco86,

Hat Dir die Antwort von Eiko geholfen?

Gruss,

Ionut

---

Ionut Duma, MICROSOFT   Bitte haben Sie Verständnis dafür, dass im Rahmen dieses Forums, welches auf dem Community-Prinzip„Entwickler helfen Entwickler“ beruht, kein technischer Support geleistet werden kann oder sonst welche garantierten Maßnahmen seitens Microsoft zugesichert werden können.