Tenho uma ListView onde vou adicionando os nomes dos produtos, quantidades vendidas e nome dos vendedores assim que os produtos vão sendo vendidos.
Eventualmente pode acontecer erros de digitação e poderá ser necessário deletar aquele item. Para tanto criei um botão com o seguinte código:
Private Sub CommandButton4_Click()
Dim i As Integer
i = ListView1.SelectedItem.Index
If ListView1.ListItems.Item(i).Selected = False Then
MsgBox "Selecione o produto a ser excluido"
Exit Sub
End If
ListView1.ListItems.Remove ListView1.ListItems(i).Index
End Sub
O problema é que algumas vezes sem ao menos selecionar um item e clicando no botão é removido o primeiro item da ListView. Percebi que a instrução abaixo passa o número do index mesmo sem o item estar selecionado.
i = ListView1.SelectedItem.Index
Há alguma forma de verificar realmente se há algum item selecionado e se não houver emitir uma MsgBox???
Obrigado pessoal!!!
Postado : 11/04/2015 6:19 am