---

Hallo zusammen,

ich habe in einem Listview mehrere Spalten. In Spalte 2 und 3 möchte ich den Status anhand eines Images anzeigen.
Wie bekomme ich dieses in ein Subitem ?

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

Hallo Wilfried,

welches VB benutzt du?

In VB 2008/2005 kann man in einem ListViewSubItem keine Images anzeigen, dies geht nur mit der Image(Index oder Key) des ListViewItem selbst.

Für deine Aufgabe kannst du das DataGridView nutzen. Dort kann man jeder Spalte einstellen.

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

www.MySldWorks.de - SolidWorks API Snippets

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

---

Hallo Daniel,

erst mal danke für die Info. Ich verwende hierfür vb2005.
Ich werde es später mal mit dem DataGridView versuchen. Erst kann man das Proggi ja schon mal einsetzen, auch wenn die Information als Text kommt. Auf die Schnelle kann ich es nicht ändern, da hier eine Menge Events und Contextmenüs an den Items hängen.

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

ListView.jpg

Hallo Wilfried,

folgender Beispielcode erzeugt das Listview in der Abbildung:

Code:

---

Private Sub UserForm_Activate()
    Dim lngIndex As Long
    Dim objListItem As ListItem
    With ListView1
        .View = lvwReport
        .FullRowSelect = True
        .SmallIcons = ImageList1
        .ColumnHeaderIcons = ImageList1
        .Gridlines = True
        .LabelEdit = lvwManual
        .ColumnHeaders.Add Text:="Spalte 1", _
            Width:=100, Alignment:=lvwColumnLeft, Icon:=1
        .ColumnHeaders.Add Text:="Spalte 2", _
            Width:=100, Alignment:=lvwColumnCenter, Icon:=2
        .ColumnHeaders.Add Text:="Spalte 3", _
            Width:=100, Alignment:=lvwColumnRight, Icon:=3
        For lngIndex = 1 To 10
            Set objListItem = .ListItems.Add(Key:="Key " & CStr(lngIndex), _
                Text:="Text " & CStr(lngIndex), SmallIcon:=4)
            With objListItem
                .ForeColor = vbGreen
                .SubItems(1) = CStr(Date)
                .ListSubItems(1).ForeColor = vbRed
                .ListSubItems(1).ReportIcon = 5
                .SubItems(2) = CStr(Time)
                .ListSubItems(2).ForeColor = vbBlue
                .ListSubItems(2).ReportIcon = 6
            End With
        Next
    End With
End Sub

---

Ist zwar in VBA geschrieben, da ich nur VB6.0 und VB.net habe, sollte sich aber relativ einfach umsetzen lassen. Das Icon in den Spalten wird über die ReportIcon-Eigenschaft erzeugt.

------------------
Gruß
Nepumuk 

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

---

Hallo Nepumuk,

danke für den Hinweis. Ich arbeite bei dem Proggi mit VB.NET 2005.
Da gibt es leider keine Eigentschaft "Reporticon" bei ListViewSubItem.
Das Programm füllt ein Listview mit allen *.Layer Dateien aus einem Verzeichnis.
Die Layer Dateien sind XML Dateien. Die fragliche Funktion durchsucht diese nach dem Vorkommen von bestimmten Nodes und zeigt das Ergebnis an. Schöner wären halt Icons. Da das Proggi auch als Plugin zu einem Autodesk Programm mit .NET 2005 läuft habe ich es auch mit 2005 gemacht.
Werde das in Kürze mal mit der 2008er Version probieren.

Code:

---

    Sub LayerFileInfo()
        Dim LayerDoc As New Xml.XmlDocument
        Dim Nodes As Xml.XmlNodeList
        Dim LVItem As ListViewItem

        For Each LVItem In ListView.Items
            If LVItem.ImageIndex = 1 Then

                LayerDoc.Load(LVItem.Tag)
                Nodes = LayerDoc.GetElementsByTagName("DrawingName")
                If Nodes.Count > 0 Then
                    LVItem.SubItems(1).Text = "YES"
                Else
                    LVItem.SubItems(1).Text = "no"
                End If

                Nodes = LayerDoc.GetElementsByTagName("Filter")
                If Nodes.Count > 0 Then
                    LVItem.SubItems(2).Text = "YES"
                    LVItem.SubItems(2).ForeColor = Drawing.Color.DarkRed
                Else
                    LVItem.SubItems(2).Text = "no"
                    LVItem.SubItems(2).ForeColor = Drawing.Color.DarkGreen
                End If

            End If
        Next
        LayerDoc = Nothing
    End Sub

---

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

Hallo Wilfried,

mit diesen abgespeckten Versionen kenn ich mich nicht aus. Wenn schon .net dann gleich das Original, damit lassen sich Icons in Spalten einfügen.

Ich kann das sowieso nicht nachvollziehen, warum Microsoft davon Abstand genommen hat und diese Billigversionen verbreitet. Ich hab für VB.net 124€ bezahlt, am Preis kanns meiner Meinung nach also nicht liegen.

------------------
Gruß
Nepumuk 

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

---

dmeditor.pdf

Hallo Nepumuk,
 

Zitat:

---

Original erstellt von Nepumuk:
Hallo Wilfried,

mit diesen abgespeckten Versionen kenn ich mich nicht aus. Wenn schon .net dann gleich das Original, damit lassen sich Icons in Spalten einfügen.

Ich kann das sowieso nicht nachvollziehen, warum Microsoft davon Abstand genommen hat und diese Billigversionen verbreitet. Ich hab für VB.net 124€ bezahlt, am Preis kanns meiner Meinung nach also nicht liegen.

---

Ich denke es ist keine "abgespeckte Version". Es ist Visual Studio "Professianal Editon" 2005.
Und damit geht das mit den Icons wohl nicht.

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht. 
www.ib-stelberg.de

[Diese Nachricht wurde von Stelli1 am 19. Jul. 2009 editiert.]

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