Tag Property for ListBox Items - This is a Comment

[Dennis]

I have been needing a tag property for some of my list box items and I've
seen this question in this news group before where one solution was to define
a usercontrol inheiriting from the list box. I've found a Poor-Boy way of
getting a sort of tag property which probably most already know but thought
I'd share it anyway for new users:

You can define a class for your list box items and override the "ToString"
method. the listbox will show the text retruned from the "ToString" method:

Assume you have a control "MyListBox"

MyListBox.Items .Add(New MyListBoxItem(" First Item", myTag1)
MyListBox.Items .Add(New MyListBoxItem(" Second Item", myTag2)

.............

Friend Class MyListBoxItem
Friend v_Text as string
Friend v_Tag as object 'or whatever you want
Friend Sub New (myText, myTag)
v_Text = myText
v_Tag = myTag
End Sub
Friend ReadOnly Property Tag () as Object
Get
Return v_Tag
End Get
End Property
Friend ReadOnly Property Text as string
Get
Return v_Text
End Get
End Property
Friend Overrides Function ToSTring() as String
return Text
End Function
End Class

--
Dennis in Houston