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 controles de enlace de datos.
Pruebe el siguiente fragmento de. code. Si desea "vincularlo" con sus datos ", escriba la estructura de su tabla.
Private?Sub?Command1_Click()
Dim?my_text?As?String.
mi_texto?=?Texto1 .Texto
Para?i?=?1?A?TreeView1.Nodes.Count
Si?mi_texto?=?TreeView1 .Nodes(i).Texto?Entonces
TreeView1.Nodes(i).Selected?=?True
TreeView1.SetFocus
Fin?Si p>
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