ListView1.SelectedItem.SmallImage = ???

[Wokawidget]

I have the following:

Private Sub cmdLargeFish_Click()
Dim lvwItem   As ListItem   
   Set lvwItem = ListView1.SelectedItem
   If Not lvwItem Is Nothing Then
      lvwItem.SmallImage = "LARGE_FISH"
      Set lvwItem = Nothing
   End If
End Sub
 
Private Sub cmdIllFish_Click()
Dim lvwItem   As ListItem   
   Set lvwItem = ListView1.SelectedItem
   If Not lvwItem Is Nothing Then
      lvwItem.SmallImage = vbNullString/0 'What the heck do you put here to REMOVE/CLEAR the image??? :(
      Set lvwItem = Nothing
   End If
End Sub

How can I remove the image from the selected item???

Woka

[axion_sa]

Try 0?

[Pc_Madness]

SmallImage = SmallIcon

And try Null?

[Wokawidget]

Arrr....got it, the listview doesn't REPAINT, so I thought 0 didn't work
Tries a .refresh, but even that doesn't repaint the screen...any ideas???

Woka

[Pc_Madness]

Originally posted by Pc_Madness
SmallImage = SmallIcon

And try Null?

Am I off the track?

[Wokawidget]

Yea, small Icon D'Oh

Err...setting it to 0 does the trick, this removes the icon, BUT the listview doesn't repaint it'self
If you drag a random application of the window, then move it, the icon disappears when the listview repaints...How can I force this...without subclassing...
Actually I could just sent the REPAINT message to the listview...Hmmm, that's an idea...

Off to check...

Woka

[Blobby]

Other than that....the API SetWindowPos will repaint the screen

[axion_sa]

Or...

Const RDW_INVALIDATE = &H1
 
Declare Function RedrawWindow Lib "user32" Alias "RedrawWindow" (ByVal hwnd As Long, lprcUpdate As RECT, ByVal hrgnUpdate As Long, ByVal fuRedraw As Long) As Long
 
' And to repaint...
RedrawWindow [i]Object[/i].hwnd, ByVal 0&, ByVal 0&, RDW_INVALIDATE

[Blobby]

smartarse Ax

[axion_sa]

Originally posted by Blobby
smartarse Ax

One tries one's best

[Wokawidget]

Why not send the correct windows message for the listview though?

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
 
Private Const LVM_FIRST = &H1000
Private Const LVM_REDRAWITEMS = (LVM_FIRST + 21)
 
'Some function
SendMessage lvwData.hwnd, LVM_REDRAWITEMS, ByVal 0&, ByVal 0&

Does the trick perfectly by redrawing the listitems

Cheers for the help people...

Woka

[onerrorgoto]

Hello Woka
I have the same problem as you.
I also want to remove the smallIcon from my listview.

When I found your code I jumped high with joy, but landed hard

with this code, it only redraws the first item in the listview, on the other items the smallicon doesnt dissapear.

Form with listview and imagelist.

Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
 
Private Const LVM_FIRST = &H1000
Private Const LVM_REDRAWITEMS = (LVM_FIRST + 21)
 
Private Sub Form_Load()
   ' Create an object variable for the ColumnHeader object.
   Dim clmX As ColumnHeader
   Dim intx As Integer
   ' Add ColumnHeaders.
   Set clmX = ListView1.ColumnHeaders.Add(, , "test")
    ListView1.BorderStyle = ccFixedSingle ' Set BorderStyle property.
   ListView1.View = lvwReport ' Set View property to Report.
   
   ListView1.SmallIcons = ImageList1
 
   ' Create a variable to add ListItem objects.
   Dim itmX As ListItem
 
   For intx = 0 To 10
      Set itmX = ListView1.ListItems.Add(, , CStr(intx))
      itmX.SmallIcon = 1   ' Set an icon from ImageList.
   Next intx
End Sub
 
 
 
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    If Item.SmallIcon <> "on" Then
        Item.SmallIcon = "on"
    Else
'Remove the smallicon
        Item.SmallIcon = Empty
'        Item.SmallIcon = "off"
    End If
'repaint the listview
SendMessage ListView1.hwnd, LVM_REDRAWITEMS, ByVal 0&, ByVal 0&
 
End Sub

I cant find the const that will repaint the whole listview. Do you have any idea?

[Wokawidget]

My code works fine...

[onerrorgoto]

Hello Woka
Thanks for the fast reply.

It funny that my code doesnt work (actually not ) when yours do.

In my code in the previous post, only the first item in the listview toggles the smallicon when I click on it. the other 9 items doesnt change at all

In the imagelist I have two images, with key= "on" & "off". It works fine to toggle between the two images but when I want to toggel between "on" and no icon, only the first item works.

Any ideas?