add ico in msflexgrid

[sal21]

I just have a msflexgrid filled.

now, when i click on a cell, for example on: ABBAZIA, i need to insert before ABBAZIA an icon (c:\icon\flip.ico)
if i click on a other cell, for example: BERGOGNA, i need to add before BERGOGNA an icon (c:\icon\flip.ico), and delete the last icon added to ABBAZIA ecc ...

i hope you understand me.

note:
only for the value in comun 8

[HansV]

I cannot test this, so there may be a better way. Create a blank icon in the same folder named Blank.ico

Code: Select all

Private Sub MSFlexGrid1_Click()
    Static OldRow As Long
    Dim NewRow As Long
    With Me.MSFlexGrid1
        If .Col = 8 And .Row <> OldRow Then
            NewRow = .Row
            .Row = OldRow
            .CellPicture = LoadPicture("c:\icon\blank.ico")
            .Row = NewRow
            .CellPicture = LoadPicture("c:\icon\flip.ico")
            OldRow = NewRow
        End If
    End With
End Sub

[sal21]

I cannot test this, so there may be a better way. Create a blank icon in the same folder named Blank.ico

Code: Select all

Private Sub MSFlexGrid1_Click()
    Static OldRow As Long
    Dim NewRow As Long
    With Me.MSFlexGrid1
        If .Col = 8 And .Row <> OldRow Then
            NewRow = .Row
            .Row = OldRow
            .CellPicture = LoadPicture("c:\icon\blank.ico")
            .Row = NewRow
            .CellPicture = LoadPicture("c:\icon\flip.ico")
            OldRow = NewRow
        End If
    End With
End Sub

.CellPicture = higlight for error!
invalid use of property....

[HansV]

I hope that someone who knows VB6 can help you.

[sal21]

I hope that someone who knows VB6 can help you.

Set .CellPicture = LoadPicture("c:\icon\flip.ico")

resolved, my self

[SpeakEasy]

<edit: ah, looks like our posts crossed)


You need Set

I'd slightly modify Han's code to:

Code: Select all

Private Sub MSFlexGrid1_Click()
    Static OldRow As Long
    Dim NewRow As Long
    With Me.MSFlexGrid1
        If .Col = 8 And .Row <> OldRow Then
            NewRow = .Row
            .Row = OldRow
            Set .CellPicture = Nothing ' Don't really need LoadPicture("c:\icon\blank.ico")
            .Row = NewRow
            Set .CellPicture = LoadPicture("c:\icon\flip.ico")
            OldRow = NewRow
        End If
    End With
End Sub

But bear in mind that in the msflexgrid control neither the icon or text in the cell know anything about each other, so you'll need to figure out a way to position the text appropriately when the icon is inserted. The simple alignment settings available for the pricture and/or the text alone may not be sufficient. Personally, I'd probably introduce an extra column just to display the icon.

[sal21]

<edit: ah, looks like our posts crossed)


You need Set

I'd slightly modify Han's code to:

Code: Select all

Private Sub MSFlexGrid1_Click()
    Static OldRow As Long
    Dim NewRow As Long
    With Me.MSFlexGrid1
        If .Col = 8 And .Row <> OldRow Then
            NewRow = .Row
            .Row = OldRow
            Set .CellPicture = Nothing ' Don't really need LoadPicture("c:\icon\blank.ico")
            .Row = NewRow
            Set .CellPicture = LoadPicture("c:\icon\flip.ico")
            OldRow = NewRow
        End If
    End With
End Sub

But bear in mind that in the msflexgrid control neither the icon or text in the cell know anything about each other, so you'll need to figure out a way to position the text appropriately when the icon is inserted. The simple alignment settings available for the pricture and/or the text alone may not be sufficient. Personally, I'd probably introduce an extra column just to display the icon.

GOOD idea to add new column!