Tem como num listbox eu colocar mais de uma coluna?

se sim .. poderiam me ajudar ?

ou preciso usar o MsFlexGrid ???

 

valew...

 

Bom, eu faço uma gambi...

 

primeiro mudo a fonte para courier ou courier new

ai faço assim

 

Private Sub Form_Load()
    x = "ABC"
    y = "ACDEF"
    z = "@@@@ABC"
    R = "ABCCCDD"
    List1.AddItem R & Space(10 - Len(R)) & " - " & x
    List1.AddItem y & Space(10 - Len(y)) & " - " & z
End Sub

T+

Rinaldo

Por quê você não experimenta usar uma ListView?

eh mesmo ... era o listview q eu tava procurando mas tinha esquecido ...

qq eu tenhu q habilitar mesmo ?

 

valew Rinaldo .. to testando sua gambi .. hehehehhe ..;)

 

pode dar um exemplo do listview pra mim ???

Ai cara, vou ficar te devendo, quase não uso, mas se achar um exemplo bom te mando.

 

T+

Rinaldo

Ae vai um exemplo simples de uma listview. Apesar de eu sugerir para novatos o MsFlexGrid por ser mais fácil de se usar.

Para usar o exemplo abaixo adicione um listview em um form qualquer e coloque lstArquivos como nome. Depois coloque a propriedade View como "3 - Report" e na página de propriedades (Custom...) adicione 5 colunas e coloque o código abaixo no evento load do form.

 

'Aqui definimos os cabeçalhos e tamanhos de cada coluna.

With lstArquivos.ColumnHeaders
     .Item(1).Text = "Módulo"
     .Item(2).Text = "Arquivo"
     .Item(3).Text = "Versão"
     .Item(4).Text = "Atualizado"
     .Item(5).Text = "Periódico"
     .Item(6).Text = "Comentário"
     .Item(1).Width = 1305.071
     .Item(2).Width = 1830.071
     .Item(3).Width = 764.7874
     .Item(4).Width = 945.0709
     .Item(5).Width = 884.9764
     .Item(6).Width = 3465.071
End With

'depois disso é preciso adicionar os ítems e sub-itens um a um. O VB entende como 'ítem o que estiver na coluna 0 (no caso "Faturamento") e os subítems serão 'colocados nas colunas subsequentes.

 

Dim lItem As ListItem

Set lItem = lstArquivos.ListItems.Add(, , "Faturamento")
lItem.ListSubItems.Add , , "Faturamento.exe"
lItem.ListSubItems.Add , , "3.5.1"
lItem.ListSubItems.Add , , "Sim"

lItem.ListSubItems.Add , , "Atualização para o sistema do faturamento"

 

Era isso então.