Programación VB: Ingrese un valor en Texe1, y si hay este valor en TreeView, 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 entendió que el control. Los datos en el nodo TreeView se están ejecutando. Una vez cargados, se consideran iguales que el control de la tabla.

En segundo lugar, el autor no explicó claramente la estructura de su tabla de datos y nadie puede dar la información. código para agregar datos a TreeView, porque agregar datos a TreeView Los datos se dividen en estructuras. Algunos datos están subordinados entre sí y no se pueden cargar arbitrariamente como el control de enlace de datos.

Pruebe la siguiente pieza. de código. Si desea "vincularlo con sus datos" ", escriba la estructura de su tabla.

Private?Sub?Command1_Click()

Dim?my_text?As? String

my_text?=?Text1 .Text

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

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

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

TreeView1.SetFocus

Fin?Si

Siguiente

Fin?Sub

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

Dim?nodX?As?Node' declara la variable Nodo.

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

'¿El siguiente nodo es el nodo?1?( ¿"Nodo raíz")?'s nodos secundarios.

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

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

Set?nodX?=?TreeView1.Nodes.Add("A",?tvwChild,?"A1",?"Un nodo secundario 1")

Set?nodX? =?TreeView1.Nodes.Add("A",?tvwChild,?"A2",?"Un nodo secundario 2")

Set?nodX?=?TreeView1.Nodes.Add("A" ,?tvwChild,?"A3",?"Un nodo secundario 3")

Set?nodX?=?TreeView1.Nodes.Add("A",?tvwChild,?"A4",?" Un nodo secundario 4")

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

Set?nodX?=?TreeView1.Nodes.Add("R",?tvwChild,?"B",?"Node B") 'El siguiente nodo es el nodo ?8?("Nodo B ")?'s nodos secundarios

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. Nodos .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?Sub