Always with listview

[sal21]

this is a part of code to fill a listview with icon:

Code: Select all

ICO=2
...
Set itmX = Me.ListView1.ListItems.Add(, , Format$(strDBRows(0, X), "#0000"), ICO)
itmX.SmallIcon = ICO
...

now i need wit a commandbutton to select the actuall row selected and change the the ICO=1
and instead to use the recordset i need to change the item with myvar=8500

possible?

[HansV]

Try

Code: Select all

    With Me.ListView1.SelectedItem
        .Text = Format(MyVar, "0000")
        .Icon = 1
        .SmallIcon = 1
    End With

[sal21]

Try

Code: Select all

    With Me.ListView1.SelectedItem
        .Text = Format(MyVar, "0000")
        .Icon = 1
        .SmallIcon = 1
    End With

work perfect!

i need to update also the column 11 of listview with the row = ListView1.SelectedItem and with the value=1

[HansV]

Something like

Code: Select all

    With Me.ListView1.SelectedItem
        .Text = Format(MyVar, "0000")
        .Icon = 1
        .SmallIcon = 1
        .SubItems(10) = 1
    End With

[sal21]

Something like

Code: Select all

    With Me.ListView1.SelectedItem
        .Text = Format(MyVar, "0000")
        .Icon = 1
        .SmallIcon = 1
        .SubItems(10) = 1
    End With

nO WORDS!