• Domingo 22 de Diciembre de 2024, 07:42

Autor Tema:  Ayuda Con Treeview  (Leído 1210 veces)

firme

  • Miembro activo
  • **
  • Mensajes: 40
    • Ver Perfil
Ayuda Con Treeview
« en: Jueves 26 de Abril de 2007, 01:45 »
0
e aprendido ah poner en tree view un nodo padre y un nodo hijo(nodo segundario) y como hagop para poner en el nodo hijo otro nodo(nodo tercero) y asi constantemente nodo cuarto, nodo quinto,  como hago :( ayudenme plzzz  :huh:
si no me entienden aqui les dejo el codigo:
Set nodo = arbol1.Nodes.Add(, , "Raiz", "CLIENTES")
Set nodo = arbol1.Nodes.Add("Raiz", tvwChild, "clave1", "Amigos1")
'--\\aqui quiero poner otro nodo pero q al darle clik al nodo amigo1 me salga otra 'rrama  y al hacerlce clik al rrama me salga otra rrama\\--
Set nodo = arbol1.Nodes.Add("Raiz", tvwChild, "clave2", "Amigos2")
Set nodo = arbol1.Nodes.Add("Raiz", tvwChild, "clave3", "Amigos3")
Set nodo = arbol1.Nodes.Add("Raiz", tvwChild, "clave4", "Amigos4")


Set nodo = arbol1.Nodes.Add(, , "Raiz2", "FACTURAS")
Set nodo = arbol1.Nodes.Add("Raiz2", tvwChild, "clave5", "Amigos5")
Set nodo = arbol1.Nodes.Add("Raiz2", tvwChild, "clave6", "Amigos6")

Set nodo = arbol1.Nodes.Add(, , "Raiz3", "PEDIDOS")
Set nodo = arbol1.Nodes.Add("Raiz3", tvwChild, "clave7", "Amigos7")

Epa

  • Miembro MUY activo
  • ***
  • Mensajes: 242
  • Nacionalidad: ar
    • Ver Perfil
Re: Ayuda Con Treeview
« Respuesta #1 en: Jueves 26 de Abril de 2007, 09:21 »
0
Buenas.

Aqui te dejo un pequeño ejemplito.

Código: Text
  1.  
  2.   Set nodo = TreeView1.Nodes.Add(, , "Raiz", "NodoRaiz")
  3.     Set nodo = TreeView1.Nodes.Add("Raiz", tvwChild, "NodoA", "NodoA")
  4.       Set nodo = TreeView1.Nodes.Add("NodoA", tvwChild, "NodoAA", "NodoAA")
  5.         Set nodo = TreeView1.Nodes.Add("NodoAA", tvwChild, "NodoAAA", "NodoAAA")
  6.         Set nodo = TreeView1.Nodes.Add("NodoAA", tvwChild, "NodoAAB", "NodoAAB")
  7.       Set nodo = TreeView1.Nodes.Add("NodoA", tvwChild, "NodoAB", "NodoAB")
  8.         Set nodo = TreeView1.Nodes.Add("NodoAB", tvwChild, "NodoABA", "NodoABA")
  9.     Set nodo = TreeView1.Nodes.Add("Raiz", tvwChild, "NodoB", "NodoB")
  10.  
  11.  

Espero se entienda

Saludos
The sweet smell of a great sorrow lies over the land.