<< Clique para Mostrar o Sumário >>
RemoveItem |
RemoveItem(pvargIndex)
Remove itens da Lista. Este método possui o parâmetro pvargIndex, que especifica a linha que é excluída, iniciando em 0 (zero), ou seja, o primeiro elemento é 0 (zero), o segundo é 1 (um) e assim por diante. O script a seguir contém um exemplo de uso deste método.
Sub CommandButton2_Click()
List1.SetFocus
' Verifica se a lista contém dados selecionados
If List1.ListCount >= 1 Then
' Se não há nenhuma seleção,
' seleciona o último dado da lista.
If List1.ListIndex = -1 Then
List1.ListIndex = List1.ListCount – 1
End If
List1.RemoveItem(List1.ListIndex)
End If
End Sub