In a message regarding Re: More listbox fun... dated Sun, 14 May 2006
17:21:34 -0600, Norman Palardy said that ...
>SentBytes.addrow ""
>SentBytes.cell(SentBytes.lastindex,-1)="Test1"+chr(9)+"Test2"+chr(9)
>+"Test3"
If you're going to do a lot of this sort of thing, it may be more
convenient to add a method in a module like:
Sub AddRowData(Extends lb As Listbox, ParamArray parms As Variant)
Dim col As Integer
Dim maxCol As Integer
Dim row As Integer
maxCol = UBound(parms)
lb.AddRow parms(0)
row = lb.LastIndex
For col = 1 To maxCol
lb.Cell(row,col) = parms(col).StringValue
Next col
End Sub
You can then add a row like this:
SentBytes.AddRowData("Test1",222,"Test3")
--
Steve Garman
Using REALbasic 2006r2 Professional on Windows XP Pro
_______________________________________________
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>
