Article:4089

Applies To:

VB5

VB6

Author:

Steve McMahon

BugTrak

Bugs: 8 / 16

Issues: 8 / 11

Questions: 0 / 0

Updated:8 February 2004

20 Jun 2003

Bug fixes and minor enhancements to the control:

The Selected property of a ListItem always returned false, meaning it was impossible to determine which items were selected in a multi-select ListView. Corrected. Same problem with the ItemCut property.

Icon property of ListItem set the icon of the next item along in the control. Fixed.

Position property added to the ColumnHeader object to allow the order of the column headers to be read and set programmatically.

Insert before parameter to the Add method of the ListItems collection was ignored. Corrected.

Setting a column alignment to right caused the column to be centred, and vice-versa. Fixed.

Mouse Up events were only generated for double-clicks. Now corrected.

A KeyDown event was generated when a KeyUp should have been. Fixed

Option to place the background image at a specified location rather than tile it added.

NoColumnHeaders property added to allow column headers to be hidden in Detail view.

Added a call to LoadLibrary on Shell32.DLL to prevent crashes when using a manifest.

Thanks to Ben Andersen, Ian Goodwin, Vasanth Raj, Greg Thomson, Frank Peters for the bug reports and code.

Update History >

Making VB Apply XP Visual Styles at Design and Debug Time

Adding XP Visual Styles to Your Visual Basic Application

Ole Guid and interface definitions (OleGuids.Tlb)

Subclassing Without The Crashes

vbAccelerator ImageList Control and Class v2.0

IShellFolder Extended Type Library Version 1.2 (ISHF_Ex.Tlb)

ListItem Icon Property Sets Incorrect Icon

Summary

Id:	4089.3
Type:	Bug
Current Status:	Resolved

Detail

23 Apr 2003	Open	FTFakes
Always when I try to change a icon of a listitem then the icon of the next item is changed instead. lvListView.ListItems(a).IconIndex = newicon behaves like: lvListView.ListItems(a + 1).IconIndex = newicon I took a look at the source of your control and changed: Friend Property Get fItemIconIndex(ByVal lIndex As Long) As Long pGetStyle lIndex , LVIF_IMAGE fItemIconIndex = m_tLV.iImageEnd PropertyFriend Property Let fItemIconIndex(ByVal lIndex As Long, ByVal lIconIndex As Long) pGetStyle lIndex , LVIF_IMAGE m_tLV.iImage = lIconIndex pSetIStyle lIndex , LVIF_IMAGEEnd Property to: Friend Property Get fItemIconIndex(ByVal lIndex As Long) As Long pGetStyle lIndex - 1, LVIF_IMAGE fItemIconIndex = m_tLV.iImageEnd PropertyFriend Property Let fItemIconIndex(ByVal lIndex As Long, ByVal lIconIndex As Long) pGetStyle lIndex - 1, LVIF_IMAGE m_tLV.iImage = lIconIndex pSetIStyle lIndex - 1, LVIF_IMAGEEnd Property Now it is working fine :-)
20 Jun 2003	Resolved	Steve McMahon
Fixed as suggested.