List

[Densyy]

Gostaria de saber como é possivel adicionar Colunas a uma Listbox

Dividir uma listbox em umas 3 Colunas

Não faço ideia

Se alguém poder ajudar ficarei muito grato

[kuroi]

Com ListBox não dá, veja: http://scriptbrasil.com.br/forum/index.php...st&p=586672

[lobismano]

beleza.

acho que isso pode ajudar..

Dim diadasemana As Variant

ReDim diadasemana(1, 1)

ListBox1.ColumnCount = 2

diadasemana(0, 0) = "Seg"

diadasemana(0, 1) = "Ter"

diadasemana(1, 0) = "Qua"

diadasemana(1, 1) = "Qui"

ListBox1.List() = diadasemana

at.

[Densyy]

Vlw ai pessoal

Lobismano deu certo esse ai vlw mesmo

Mas gostaria de poder escolher o tamanho de cada coluna

Sera que é possivel?

Achei um metodo perfeito usando o List View

Edited January 11, 2012 by Densyy

[Densyy]

Aqui vai a solução pra quem estiver com esse problema

Option Explicit
Private Declare Function SendMessageArray Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const LB_SETTABSTOPS = &H192

Private Sub Command1_Click()
Dim i As Integer
ReDim lbtab(3) As Long 'for 3 tabs redim LBTab(1 to 3)as long

lbtab(1) = 180
lbtab(2) = 250
lbtab(3) = 300

' Set tab stops, params are Hwnd of list box, number of tabs in array, tab settings array
SendMessageArray List1.hwnd, LB_SETTABSTOPS, 3, lbtab(1)
' Populate listbox with some test data - use vbtab to separate columns
List1.AddItem "Nome" & vbTab & "Valor" & vbTab & "Quantidade" & vbTab & "Descrição"
List1.AddItem "1" & vbTab & "2" & vbTab & "3" & vbTab & "4"
List1.AddItem "1" & vbTab & "2" & vbTab & "3" & vbTab & "4"
'you can have loops here
End Sub

Edited January 11, 2012 by Densyy