Dieses Beispiel habe ich mir aus einem VBA-Handbuch zusammengestellt, doch leider funktioniert es nicht.
Es soll eine Art Tabelle entstehen.
Es wird bei der Ausführung  - Util.ToString - bemängelt.
Hat einer eine Lösung für mein Problem?

Ferner die Frage, kann man die Zeilen (jede zweite) mit einer anderen BackColor belegen?

Vielen Dank im voraus.

Gruß

Dirk

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

In deinem Code verwendest du Util.RealToString. Dieses Objekt gibt es nicht. Es gibt z.B. Thisdrawing.Utility.RealToString.

Du kannst aber auch die VB Funktion Format verwenden.

Code:

---

Private Sub UserForm_Initialize()
Dim LV As ListItem
Dim SI As ListSubItem
Dim color As Variant
Dim i As Integer
ListView2.ListItems.Clear
ListView2.ColumnHeaders.Clear
ListView2.View = lvwReport
ListView2.FullRowSelect = True
ListView2.GridLines = True
ListView2.HoverSelection = True
'ListView2.BackColor = Me.BackColor
ListView2.BorderStyle = ccNone
ListView2.Appearance = ccFlat
ListView2.FlatScrollBar = True
ListView2.TextBackground = lvwOpaque

'On Local Error Resume Next
'Set ListView2.Icons = ImageList1
'Set ListView2.SmallIcons = ImageList1

With ListView2.ColumnHeaders
    .Add , Text:="Spalte1", Width:="40"
    .Add , Text:="Spalte2", Width:="40"
    .Add , Text:="Spalte3", Width:="40"
End With

For i = 1 To 10
    Set LV = ListView2.ListItems.Add(, , "Zeile" & i)
    If i Mod 2 = 0 Then
      color = RGB(50, 50, 250)
    Else
      color = RGB(250, 50, 50)
    End If
   
    LV.ForeColor = color
    With LV.ListSubItems
        Set SI = .Add(, , Format(50))
        SI.ForeColor = color
        Set SI = .Add(, , Format(100))
        SI.ForeColor = color
    End With
Next i

End Sub

---

Im Objektkatalog kannst du nachschauen ob es eine Eigenschaft Backcolor für ein Listitem gibt. Du wirst nur die Eigenschaft ForeColor finden.
Stelli

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

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