none
treeview em vb 2010 RRS feed

  • Pergunta

  • Como faço uma pesquisa em uma treeview em vb 2010 Por exemplo eu digito um nome em um
    textbox, e ao clicar em um botão, iria varrer a treeview para ver ser encontra
    o nome do arquivo digitado no textbox.

    Alguém poderia me ajudar?

    quarta-feira, 29 de agosto de 2012 10:49

Respostas

  • Olá CPais

    Veja se o código abaixo lhe ajuda.

    Private Sub btnLocalizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLocalizar.Click
            Dim text As String = String.Empty
            text = txtNome.Text
            Dim b As Boolean = True
            If text <> String.Empty Then
                Try
                    Dim tn As TreeNode() = TreeView1.Nodes.Find(text, b)
                    For i = 0 To tn.Length - 1
                        TreeView1.SelectedNode = tn(i)
                        TreeView1.SelectedNode.BackColor = Color.Blue
                    Next
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try
            Else
                MessageBox.Show("Favor inserir um nome para pesquisar.")
            End If
    End Sub

    Att.,

    Jeimes Ribeiro

    "Caso a resposta seja útil, marque como resposta."

    • Marcado como Resposta CPaisINFORNOS quarta-feira, 29 de agosto de 2012 14:02
    quarta-feira, 29 de agosto de 2012 11:51

Todas as Respostas

  • Olá CPais

    Veja se o código abaixo lhe ajuda.

    Private Sub btnLocalizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLocalizar.Click
            Dim text As String = String.Empty
            text = txtNome.Text
            Dim b As Boolean = True
            If text <> String.Empty Then
                Try
                    Dim tn As TreeNode() = TreeView1.Nodes.Find(text, b)
                    For i = 0 To tn.Length - 1
                        TreeView1.SelectedNode = tn(i)
                        TreeView1.SelectedNode.BackColor = Color.Blue
                    Next
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try
            Else
                MessageBox.Show("Favor inserir um nome para pesquisar.")
            End If
    End Sub

    Att.,

    Jeimes Ribeiro

    "Caso a resposta seja útil, marque como resposta."

    • Marcado como Resposta CPaisINFORNOS quarta-feira, 29 de agosto de 2012 14:02
    quarta-feira, 29 de agosto de 2012 11:51
  • Não funciona

    o

    tn.Length é sempre igual a zero

    quarta-feira, 29 de agosto de 2012 19:52
  • Olá CPaisINFORNOS Discordo de você quando diz que não funciona. Uso parte desse cógigo em uma aplicação e após ver sua mensagem eu fiz questão de copiar o exemplo acima para testar e aqui funcionou direitinho. Provavelmente você adaptou a sua necessidade e algo deve ter passado desapercebido. Att., Jeimes Ribeiro
    quinta-feira, 30 de agosto de 2012 12:39