Como remover combo-box duplicadas

Escrito por jaime avelar | Traduzido por milene hermenegildo
  • Compartilhar
  • Tweetar
  • Compartilhar
  • Pin
  • E-mail
Como remover combo-box duplicadas
Use uma combo-box no Visual Basic.NET. (background with binary data image by Pedro Nogueira from Fotolia.com)

Um controle combo-box é uma combinação de uma caixa de texto e uma caixa de lista. Ele permite que o usuário selecione os valores da lista suspensa ou digite um novo valor. Muitas vezes, os programadores esbarram na necessidade de remover valores duplicados de um controle combo-box. Saber como removê-los rapidamente pode economizar tempo. O Microsoft Visual Basic.NET (VB.NET) é uma linguagem de programação de computador usada para criar aplicativos do Windows que podem usar combo-box.

Nível de dificuldade:
Moderadamente fácil

Outras pessoas estão lendo

O que você precisa?

  • Microsoft Visual Basic Express

Lista completaMinimizar

Instruções

  1. 1

    Inicie o Microsoft Visual Basic Express, clique em "New Project ..." no painel esquerdo da tela e selecione "Windows Forms Application". Clique em "OK".

  2. 2

    Dê um duplo clique em "Button1" para abrir o módulo "Form1.vb". Digite o bloco a seguir acima de "End Class" para carregar itens para a combo-box durante o carregamento do formulário:

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Me.ComboBox1.Items.Add("Linha1") Me.ComboBox1.Items.Add("Linha1") Me.ComboBox1.Items.Add("Linha1") Me.ComboBox1.Items.Add("Linha2") Me.ComboBox1.Items.Add("Linha3") Me.ComboBox1.Items.Add("Linha3") Me.ComboBox1.Items.Add("Linha4") Me.ComboBox1.Items.Add("Linha4") Me.ComboBox1.Items.Add("Linha5")

    End Sub

  3. 3

    Digite o seguinte em "Button1_Click" para remover duplicatas quando o usuário clica em "Button1":

    Dim iCnt As Integer Dim jCnt As Integer

    For iCnt = 0 To Me.ComboBox1.Items.Count - 2 For jCnt = Me.ComboBox1.Items.Count - 1 To iCnt + 1 Step -1 If Me.ComboBox1.Items(iCnt).ToString = Me.ComboBox1.Items(jCnt).ToString Then Me.ComboBox1.Items.RemoveAt(jCnt) End If Next Next

  4. 4

    Pressione "F5" para executar o programa. Clique no controle combo-box para exibir os itens duplicados. Clique em "Button1" para remover os itens duplicados.

Não perca

Filtro:
  • Geral
  • Artigos
  • Slides
  • Vídeos
Mostrar:
  • Mais relevantes
  • Mais lidos
  • Mais recentes

Nenhum artigo disponível

Nenhum slide disponível

Nenhum vídeo disponível