Usuário com melhor resposta
Eliminar um item da listBox e guardar um dos dados do item

Pergunta
-
Respostas
-
Dim _excluidos As New List(Of String) Private Sub ListBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ListBox1.KeyDown 'Se a tecla digitada for a Delete If (e.KeyCode = Keys.Delete) Then Try 'Joga o valor selecionado dentro de um arraylist _excluidos.Add(UCase(ListBox1.SelectedItem.ToString)) 'remove o da listbox ListBox1.Items.Remove(ListBox1.SelectedItem) 'exibe uma mensagem MsgBox("Item transferido para o ArrayList") Catch ex As Exception MsgBox("erro: " & Err.Description) End Try End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 'valor de busca Dim _busca As String = InputBox("Digite o valor: ") 'busca dentro do arraylist If (_excluidos.Contains(UCase(_busca))) Then 'caso encontrado o valor exibir MsgBox("Encontrado " & _busca) Else 'senao erro. MsgBox("Nao foi encontrado " & _busca) End If End Sub
Microsoft Technology Associate (MTA)
- Marcado como Resposta Ricardo RussoModerator terça-feira, 15 de janeiro de 2013 13:18
Todas as Respostas
-
-
-
Dim _excluidos As New List(Of String) Private Sub ListBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ListBox1.KeyDown 'Se a tecla digitada for a Delete If (e.KeyCode = Keys.Delete) Then Try 'Joga o valor selecionado dentro de um arraylist _excluidos.Add(UCase(ListBox1.SelectedItem.ToString)) 'remove o da listbox ListBox1.Items.Remove(ListBox1.SelectedItem) 'exibe uma mensagem MsgBox("Item transferido para o ArrayList") Catch ex As Exception MsgBox("erro: " & Err.Description) End Try End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 'valor de busca Dim _busca As String = InputBox("Digite o valor: ") 'busca dentro do arraylist If (_excluidos.Contains(UCase(_busca))) Then 'caso encontrado o valor exibir MsgBox("Encontrado " & _busca) Else 'senao erro. MsgBox("Nao foi encontrado " & _busca) End If End Sub
Microsoft Technology Associate (MTA)
- Marcado como Resposta Ricardo RussoModerator terça-feira, 15 de janeiro de 2013 13:18