adicionar itens a ListView em tempo de execução
-
22-07-2019 - |
Pergunta
Quando eu adicionar novos valores para um listview usando:
Set lstView = ListView(0).ListItems.Add(, , txtName)
lstView.ListSubItems.Add , , txtValue
lstView.Refresh
O único problema é que isso só exibe uma nova linha em branco na listview, alguma idéia de como atualizá-lo corretamente?
Normalmente eu estou usando um conjunto de registros tão simplesmente limpar, então repovoar os dados, mas eu preciso que o usuário seja capaz de adicionar entradas ao listview. Eu, então, percorrer a listview adicionando os valores tot ele DB apenas uma vez que o usuário tenha terminado altera a listview.
Agradecemos antecipadamente por qualquer ajuda.
Solução
Assumindo a propriedade .ver do seu ListView é definido como "Report", o seguinte irá adicionar um par de linhas ao controle e definir o texto sub item.
Dim li As ListItem
With ListView1
.ColumnHeaders.Add , , "One"
.ColumnHeaders.Add , , "Two"
.ColumnHeaders.Add , , "Three"
Set li = .ListItems.Add(, , "Row1Item1")
li.SubItems(1) = "Row1Item2"
li.SubItems(2) = "Row1Item3"
Set li = .ListItems.Add(, , "Row2Item1")
li.SubItems(1) = "Row2Item2"
li.SubItems(2) = "Row2Item3"
End With
Licenciado em: CC-BY-SA com atribuição
Não afiliado a StackOverflow