Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

453 - Buscar en un Treeview

Formulario de ejemplo que recorre en forma recursiva todos los nodos en un treeview , para busar un dato

Formulario

Formulario para buscar

El ejemplo usa una simple rutina en la que se le debe indicar los siguientes parámetros

El control treeview a usar
El texto a buscar
Si diferencia de mayúsculas y minúsculas para el texto del nodo

Sub Buscar(Tv As TreeView, _ texto As String, _ sMayMin As Boolean) Dim Nodo As Node Dim i As Integer Dim bEncontrado As Boolean ' recorre todos los nodos With Tv For i = 1 To .Nodes.Count ' Diferencia de mayúsculas /Minúsculas If sMayMin Then If .Nodes(i).Text = texto Then bEncontrado = True End If End If ' No Diferencia de mayúsculas /Minúsculas If sMayMin = False Then If Trim(LCase(.Nodes(i).Text)) = Trim(LCase(texto)) Then bEncontrado = True End If End If ' si se encontró If bEncontrado Then ' referencia al nodo actual Set Nodo = .Nodes(i) ' Expanded / para expandir el nodo encontrado Do Until Nodo.Parent Is Nothing Nodo.Parent.Expanded = True Set Nodo = Nodo.Parent Loop ' selecciona el item encontrado .Nodes.Item(i).Selected = True ' Le pone el Foco al treeview .SetFocus Exit Sub End If Next End With MsgBox "Dato no encontrado", vbExclamation End Sub

Descargar

En este otro enlace , se encuentra el mismo formulario para buscar elemenos en un treeview , pero a este le agregué la opción para que una ves encontrado el dato, siga recorriendo los nodos en busca de otras coincidencias hasta llegar al final del árbol , ya que el form anterior, solo buscaba una sola ves. Luego una ves que llega al final comienza a recorrer los nodos desde el primero

También tiene un checkBox para indicar si se busca por la frase completa o solo la cadena parcial

Descargar

Recursos vb6 - Enlaces relacionados

Buscar items en un ListView

Recursos Visual basic.NET - relacionados

Buscar nodos en vb.NET

Buscar en Recursos vb