Deletar Linha do Listview [ RESOLVIDO]

[LEANDRO ALVES]

Ola Caros colegas do Forum,

Estou criando um aplicativo em vba que conforme a decisao do usuario necessita excluir uma linha do listview, porem nao sei como fazer.

Estou usando esta rotina no evento click do ComandButton :

With Me.listview
.SelectedItem.Text = Empty
.SelectedItem.ListSubItems.Clear
End With

so que este comando apenas limpa o texto. A linha fica em branco e continua ocupando espaço no listview.
Minha intençao é que toda a linha por completo seja removida.

Obrigado pela atenção de todos

[Mauro Coutinho]

Leandro, para tal, temos que utilizar "REMOVE" :

Código: Selecionar todos

Private Sub CommandButton1_Click()
Dim sItem As Long

    With ListView1
        sItem = .SelectedItem.Index
        .ListItems.Remove (sItem)
    End With
End Sub

Veja tambem no Forum DICAS, alguns conceitos sobre ListView , baixe os exemplos e veja que em algumas rotinas temos esta opção entre outras, como Mover Para Cima e Para Baixo:

LISTVIEW NO EXCEL - ALGUNS CONCEITOS
viewtopic.php?f=17&t=571

[]s

[LEANDRO ALVES]

Caro amigo Mauro Coutinho sua resposta foi extremamente exata. Era isto que mesmo que eu esta precisando.
Muito obrigado pela dica.

Um abraço



"Mauro, achei otimos os seus exemplos no topico "LISTVIEW NO EXCEL - ALGUNS CONCEITOS", vou estudá´-los e incrementar ainda mais o modelo que estou desenvolvendo. Meus Parabens pelo trabalho."