Seth Willits > It's out of the question to make an AddRow method that accepts a > variable number of arguments or an array? It's like 10 lines of code! > Actually, not "like," it is. > > Here let me help you out. This one's on the house, since I know it's > pretty difficult to do: > > > Sub AddRow(Extends List as Listbox, ParamArray Cells as String) > dim i as integer > List.AddRow "" > for i = UBound(Cells) DownTo 0 > List.Cell(List.LastIndex, i) = Cells(i) > next > End Sub > > > Sub AddRow(Extends List as Listbox, Cells() as String) > dim i as integer > List.AddRow "" > for i = UBound(Cells) DownTo 0 > List.Cell(List.LastIndex, i) = Cells(i) > next > End Sub >
Or you can do it in 4 rows (2 for each extend), if you're not using tabs on the cell values: List.AddRow "" List.Cell(List.LastIndex, -1) = Join(Cells, Chr(9)) Carlos _______________________________________________ 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>
