Listview

[ramon]

São tres duvidas

1)Como colocar linhas divisorias na horizontal de um listview?

Tipo nos tres primeiros indice coloco uma linha... 5 linhas abaixo coloco outra linha e assim vai...

2)Qual o metodo para adicionar os itens e subitens numa listview usando o For next?

3)Quando eu clicar no item como colocar o item em um textbox e o subitem em outro?

[Garcia]

Então...

1)

A propriedade gridlines só aceita true ou false, ou seja, ou você tem linhas ou não. Isso que você quer fazer (gridlines somente para algumas opções), não rola com esse controle.

2)

Ajuste a propriedade view para lvwReport

Adicione as colunas

Adicione os itens

Ex.:

Dim i As Integer

Dim j As Integer

Dim k As Integer

With ListView1

.View = lvwReport

For k = 1 To 5

.ColumnHeaders.Add k, "key" & k, "Coluna " & k

Next k

For i = 1 To 10

.ListItems.Add i, "lkey" & i, "Item " & i

For j = 1 To 4

.ListItems(i).SubItems(j) = "Subitem " & j

Next j

Next i

End With

3)

Na propriedade click da listview coloque o código

With ListView1

Text1.Text = .SelectedItem.Text

Text2.Text = .SelectedItem.SubItems(1)

End With

Beleza ? Funcionou ?

Abraço