Programación VB: Ingrese un valor en Texe1, y si TreeView tiene este valor, ¡déjelo resaltado!

Déjame decirte algunas palabras

En primer lugar, el control TreeView no se puede vincular a la base de datos porque no tiene una propiedad DataSource. El autor no entiende que el control. los datos en el nodo TreeView se cargan en tiempo de ejecución. Es lo mismo que un control de formulario.

En segundo lugar, el propietario no aclaró la estructura de su tabla de datos y nadie pudo proporcionar el código para agregar datos a TreeView, porque los datos agregados a TreeView están estructurados y existen dependencias entre algunos de ellos. la relación y, por lo tanto, no se puede cargar arbitrariamente como un control vinculado a datos.

Puede probar el código siguiente. Si desea "vincularlo" a sus datos, escriba la estructura de su tabla.

¿Privado?Sub?Command1_Click()

Dim?my_text?As?String

my_text?=?Text1.Text

Para ?i?=?1?To?TreeView1.Nodes.Count

Si?my_text?=?TreeView1.Nodes(i).Texto?Entonces

TreeView1.Nodes(i) .Selected?=?True

TreeView1.SetFocus

Fin?Si

Siguiente

Fin?Sub

Privado?Sub?Form_Load() 'Agregar objeto Nodo.

Dim?nodX?As?Node 'Declarar variable de Nodo.

Set?nodX?=?TreeView1.Nodes.Add(,?,? "R",? "Root Node")

'El siguiente nodo es el nodo 1("Root Node")

' ¿El nodo hijo del nodo ")?.

Set?nodX?=?TreeView1.Nodes.Add("R",?tvwChild,? "A",? "A node")

¿Cuál es el siguiente nodo? 2?("Un nodo")?'s nodo hijo.

Set?nodX?Nodes.Add("A",?tvwChild,?"A3","A child node 3")

Set?nodX?=?TreeView1. Nodes.Add("A",?tvwChild,?"A4",?"A child node 4")

'¿El siguiente nodo es hijo del nodo ?1?("nodo raíz")? nodo.

Set?nodX?=?TreeView1.Nodes.Add("R",?tvwChild,?"B",?"B node")'El siguiente nodo es el nodo hijo del nodo?8? '

Set?nodX?=?TreeView1.Nodes.Add("B",?tvwChild,?""B1",?"B nodo secundario 1")

Set? nodX ?=?TreeView1.Nodes.Add("B", ?TvwChild, ?" B2", ?" B nodo secundario 2")

Set?nodX?=?TreeView1.Nodes.Add(" B ",?tvwChild,?" B3",?" B nodo secundario 3")

Set?nodX?=?TreeView1.Nodes.Add("B",?tvwChild,? "B4", ? "B nodo secundario 4")

For?i?=?1?To?TreeView1.Nodes.Count

TreeView1.Nodes(i).EnsureVisible

Siguiente

Fin?Sub

Privado?Sub ?TreeView1_NodeClick(ByVal?Node?As?MSComctlLib.Node) Text2.Text?=?Node.Text

¿Fin?