Ummmm.. really should have read your email before sending mine in
hey... I just copied and pasted the solution out of my Extends Library.
Mine uses variant parameters though... ha!
Cheers,
Tom
On 28/11/2006, at 10:37 AM, Tom Benson wrote:
Um Seth,
Make yourself an extends method that extends the listbox and does
this for you, or I can send you one.
Sub AddLine Extends list as Listbox, ParamArray cells as variant
dim v as variant
dim currColumn as integer
list.addrow ""
for each v in cells
list.cell(list.lastindex,currColumn) = v.stringValue
currColumn = currColumn + 1
if currColumn = list.ColumnCount then exit
next
End Sub
Now you can say
ListBox.AddLine (1,2,3,4,5,6,7,8)
ListBox.AddLine ("one",2,3,4,"five",6,7,"eight")
or pass any value that can be translated into a string value into
the AddLine arguement.
Cheers,
Tom
_______________________________________________
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>
