---

Hallo Zusammen,

das schöne Steuerelement ListView.
Ich habe bei dem Listview1 4 Columns in VB.Net 2003 definiert.
In diesem ListView1 liste ich Dateien von einem bestimmten Ordner auf.
Die 2.Columns ist mit colCadSystem definiert.
Wie kann ich sagen, das er in die zweite Spalte von dem ListView1 einen festen Text mit "Catia V5" einträgt?

Danke für Eure Bemühungen.

------------------
Schöne Grüße
Feyza : )

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Feyza,

ich kann leider nur für VB 2005 sprechen, hoffe aber das es in 2003 ähnlich ist.
In 2005 funktioniert das durch die Methode ListViewItem.SubItems.Add.

Hier ein Beispiel, in welchen eine ListView mit Hilfe eines String-Arrays und den Spaltentrenner ";" befüllt wird:

Code:

---

        Dim sTextLinie As String
        Dim sTextStuecke() As String
        Dim iZaehler As Integer = -1
        Dim sZaehler As String
        Dim oListViewItem As ListViewItem = Nothing
        Dim oColumn As Windows.Forms.ColumnHeader
        If IsArray(sTextArray) Then
            'Spalten anlegen
            oColumn = Me.lsvInhalt.Columns.Add("Nr:")
            oColumn = Me.lsvInhalt.Columns.Add("Spalte 2")
            oColumn = Me.lsvInhalt.Columns.Add("Spalte 3")
            For i As Integer = 0 To sTextArray.GetUpperBound(0)
                sTextLinie = sTextArray(i)
                If sTextLinie <> "" Then
                    sTextStuecke = sTextLinie.Split(CChar(";"))
                    For ii As Integer = 0 To sTextStuecke.GetUpperBound(0)
                        If ii = 0 Then
                            iZaehler = iZaehler + 1
                            sZaehler = CStr(iZaehler)
                            'Erste Spalte
                            oListViewItem = Me.lsvInhalt.Items.Add(sZaehler)
                        Else
                            'Weitere Spalten
                            oListViewItem.SubItems.Add( _
                                sTextStuecke(ii))
                        End If
                    Next
                End If
            Next
        End If

---

Mehr Informationen (leider auch alles VB 2005) gibt es hier und hier.

------------------
Mfg Daniel

 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Daniel,

habe das jetzt so gelöst:

            For i = 0 To arrAllFilesCV5.Length - 1
                Dim q() As String = {arrAllFilesCV5(i), "cv5", "123", "11.22.11"}
                itmx = New ListViewItem(q)
                ListView1.Items.Add(itmx)

dieser Code war einfacher ; ))

Danke Dir nochmals : ))

------------------
Schöne Grüße
Feyza : )

[Diese Nachricht wurde von Feyza am 14. Mai. 2008 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP