ListBox добавление в несколко столбцов

[vasiliy]

Народ подскажите как в listbox добавлять насколько значений
Я пробовал так

Код: Выделить всё

        While Not rs.EOF
            lbDogovor.AddItem rs.Fields(0), 0
            lbDogovor.AddItem rs.Fields(1), 1
            rs.MoveNext
        Wend

но значения идут в одном столбце один под другим

[alibek]

ListBox это список, а не грид. Используй грид или листвью.

[vasiliy]

не нашел

Код: Выделить всё

        nomstr = 0
        While Not rs.EOF
            lbDogovor.AddItem
            lbDogovor.ColumnCount = 2
            lbDogovor.Column(0, nomstr) = rs.Fields(0)
            lbDogovor.Column(1, nomstr) = rs.Fields(1)
            nomstr = nomstr + 1
            rs.MoveNext
        Wend

Всем спасибо за внимание

[pshik]

Народ подскажите как в listbox добавлять насколько значений
Я пробовал так

Код: Выделить всё

        While Not rs.EOF
            lbDogovor.AddItem rs.Fields(0), 0
            lbDogovor.AddItem rs.Fields(1), 1
            rs.MoveNext
        Wend

но значения идут в одном столбце один под другим

-----------

Sub Form_Load()
Dim lngRet as Long
Dim aTabs(2) as Long

aTabs(0)=48
aTabs(1)=116
aTabs(2)=186

lngRet=SendMessage(lstStates.hwnd,LB_SETTABSTOPS,3,aTabs(0))

Call StateLoad
End Sub

Sub StateLoad()

With lstStates
.AddItem "CA" & vbTAB & "California"
.
.
.
End With
End Sub

[fishh]

В этом примере в один Listbox добавляются значения в три колонки.

ListBox1.ColumnCount = 3
ListBox1.ColumnWidths = "200; 30; 30"

With Workbooks("04-05.xls").Sheets(list)
For i = 1 To 20
ListBox1.AddItem .Cells(10 + i, 4)
ListBox1.list(ListBox1.ListCount - 1, 1) = .Cells(10 + i, 5)
ListBox1.list(ListBox1.ListCount - 1, 2) = .Cells(10 + i, 16)
Next i
End With
[/i][/list]