Usuário com melhor resposta
treeview em vb 2010

Pergunta
-
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
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
-
-
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