Hi Phil
On 3/2/06, Phil M <[EMAIL PROTECTED]> wrote: > > 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? Yes ... 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 Neat and thanks :-) -- Keith Hutchison http://balance-infosystems.com http://realopen.org _______________________________________________ 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>
