A linguagem de programação Visual Basic da Microsoft tem uma caixa de ferramentas robustas para a criação de aplicativos de formulários do Windows em pouco tempo e com relativa facilidade. O controle ListBox é uma daquelas ferramentas, usá-lo para dar a seus usuários uma série de opções para escolher. É mesmo possível para permitir ao usuário adicionar ou excluir o conteúdo de uma caixa de listagem, e para fazer isso , você tem que ser capaz de pesquisar a ListBox a tomar medidas sobre o item apropriado. Instruções
1

Clique em " Iniciar", " Todos os Programas " e selecione o Microsoft Visual Studio ou o aplicativo Visual Basic Express, dependendo do que você tem instalado.
2

Clique no link " New Project" na página Studio Inicie o Visual , selecione " Windows Forms Application " e clique em "OK". Isso abre um novo formulário em branco na janela de design .
3

Clique na aba " Ferramentas " à esquerda da tela para expandi-lo. Dê um duplo clique no controle " ListBox " . Dê um duplo clique no controle "Button" e dê um duplo clique no controle " TextBox " . Isso adiciona um de cada um para o seu formulário. Clique na janela do projeto para recolher a caixa de ferramentas.
4

Clique na caixa de listagem no formulário. Desça até a "Itens " propriedade nas janelas Propriedades para o canto inferior esquerdo da sua tela. Clique na caixa de reticências para abrir uma janela para a entrada de itens. Entre vários itens na lista, pressionar "Enter " depois de cada item para colocá-los em linhas separadas.
5

Dê um duplo clique no botão para abrir a janela de código VB . O cursor aparece entre as linhas que se parecem com isto:

Private Sub Button1_Click (sender System.Object , ByVal e As System.EventArgs ) Handles

Button1.Click

End Sub

Coloque o seguinte código entre as linhas acima para pesquisar a lista de uma segunda via do que o usuário digita no campo de texto :

'em

" comentário - este código procura na caixa de listagem de uma segunda via do que o usuário com chave

' na caixa de texto

'em

Dim ListItemCounter As Integer

Se TextBox1.Text > Nada Então

Do Until ListItemCounter = ListBox1.Items.Count ()

Se TextBox1.Text.ToUpper = ( ListBox1.Items ( ListItemCounter ) ) . ToUpper () Então

MessageBox.Show (" Duplicar item encontrado" )

Retornar

Else

ListItemCounter + = 1

End If

loop

MessageBox.Show (" o item que você entrou não está na lista" )

End If

este código procura pelos itens na caixa de listagem para o item que foi inserido no TextBox. Nota do método " ToUpper " acrescentado de modo que a comparação elimina caso como um problema potencial . Se o item for encontrado, uma mensagem apropriada é emitida , se o item não for encontrado, uma mensagem de " não encontrado" é emitido
6

Clique no botão " Debug " item de menu na parte superior do arquivo. tela e clique no link "Iniciar depuração " . Isso abre o aplicativo no modo de teste. Digite um item que está na lista para o TextBox e clique no botão . Você deverá ver a mensagem " item duplicado " . Digite um item na caixa de texto que não está na lista e clique no botão . Agora você deverá ver a mensagem " item não encontrado" .