ListView

[SeaVipe]

Hi Paul,
I've had an Error Code 6 in my code that was hard to track down.

Some time ago you posted this to enable the top row of a ListView to be highlighted:

Code Select Expand


Function ListView_SetTopIndex( byval hLV as hwnd, byval index As Long ) As Long
    Dim rc AS RECT
   
    SendMessage( hLV, LVM_GETITEMRECT, 0, cast(LPARAM, @rc) )

    Dim As Long gle = GetLastError()
    If gle > 0 Then ? gle ' gle = 0  

    SendMessage( hLV, LVM_SCROLL, 0, (index - GetScrollPos(hLV, SB_VERT)) * (rc.Bottom - rc.Top))
   
    gle = GetLastError()
    If gle > 0 Then ? gle ' Prints 6.
    Print GetLastError() ' Clears error code.
   
Function = 0
End Function

This identical Function used in another app, and called exactly the same way, does not throw an error.
Odd that only one of several projects with the same code and calling method, returns an error.