On Mar 1, 2006, at 1:52 PM, Keith Hutchison wrote:
Is there a way of adding a variant to a row within a listbox, (without
creating the ability yourself)
I assume by the last part of your question, you mean without creating
a subclass?
You could write a pair of methods using Extends called RowTag().
Then since all of the Columns always exist, you could pick one of the
hidden columns to hold the variant data. For example:
Function RowTag(Extends lb As ListBox, row As Integer) As Variant
// 64 is the first invisible column in a listbox
If (row >= 0) And (row < lb.ListCount) Then Return lb.CellTag(row,
64)
End Function
Sub RowTag(Extends lb As ListBox, row As Integer, Assigns v As Variant)
// 64 is the first invisible column in a listbox
If (row >= 0) And (row < lb.ListCount) Then lb.CellTag(row, 64) = v
End Sub
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
