none
Eliminar um item da listBox e guardar um dos dados do item RRS feed

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)

    segunda-feira, 15 de outubro de 2012 18:03

Todas as Respostas

  • Guardar aonde?
    terça-feira, 9 de outubro de 2012 16:21
  • O objectivo era eliminar o item selecionado de um Array,queria guarda-lo numa variavel e procura-lo.

    Obrigado


    • Editado CarlosBcl sábado, 13 de outubro de 2012 18:41
    sábado, 13 de outubro de 2012 18:36
  •    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)

    segunda-feira, 15 de outubro de 2012 18:03