Descobrir se uma caixa de listagem tem itens duplicados irá ajudar você a saber como executar o código apropriado para removê-los. Muitas vezes, os programadores cometem o erro de preencher uma caixa de listagem com dados duplicados do banco de dados . É melhor eliminar duplicatas quando você consulta os dados. Em VB, você pode usar a propriedade Items do controle ListBox para obter uma lista de itens atualmente armazenados na caixa de listagem. Depois de conseguir a referência que direciona para a lista, você pode percorrer os itens para encontrar duplicatas. Coisas que você precisa
Microsoft Visual Studio
Show Mais instruções
1

Abra o Microsoft Visual Studio , clique em " New Project" no painel esquerdo da tela do computador , e expandir " Visual Basic" abaixo " modelos instalados ". Clique em " Windows" e clique duas vezes no centro da janela de diálogo para criar um novo projeto "Windows Forms Application " .
2

duplo clique em " ListBox " para adicionar um novo controle de caixa de lista para sua forma. Clique duas vezes em "Button" para adicionar um novo botão ao seu formulário.
3

Clique duas vezes no formulário para criar um evento de carregamento de formulário e adicione o seguinte código para adicionar alguns itens, incluindo duplicatas para o seu ListBox
4

Volte para "Forma" modo de design e clique duas vezes em "Button1 " para criar um evento click para este botão. Adicione o seguinte código para exibir todos os itens duplicados encontrados através do " Janela imediata " e exibir uma mensagem para o usuário :

Me.ListBox1.Sorted = True

Me.ListBox1.Refresh ()

Dim index As Integer Dim

dupFound As Boolean Dim

itemcount As Integer = Me.ListBox1.Items.Count

Se itemcount > 1 Then

Dim LastItem As String = Me.ListBox1.Items ( itemcount - 1)

Para index = itemcount - 2 a 0 Passo -1

Se Me.ListBox1.Items (index) = LastItem Então

dupFound = = Me.ListBox1.Items (índice )

End If

Próxima

End If

Se dupFound Então

MessageBox.Show ( " As duplicatas foram encontrados na ListBox. " )

Else

MessageBox.Show ( "Não duplicados encontrados. " )

End If
5

Pressione " F5" para executar o seu programa. Clique em " Button1 " para limpar as duplicatas e exibir uma mensagem indicando se duplicatas foram ou não foram encontrados.