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

373 - Agregar nodos en Treeview

Ejemplo para agregar nodos relacionados en un control Treeview

El siguiente ejemplo muestra las distintas posibles formas de agregar nodos en un control treeview, usando los diferentes tipos de relaciones posibles ( Un Nodo principal, anterior, siguiente, último, nodo hijo etc.. )

La relación se indica en el segundo parámetro ( RelationShip ) usando los valores de constantes que son los siguientes:

tvwFirst : Añade el nodo al principio
tvwLast : Añade el nodo al final
tvwNext : Lo añade al siguiente nodo indicado
tvwPrevious : Lo añade al lugar anterior al nodo indicado
tvwChild : Nuevo nodo Hijo o secundario del nodo indicado

Controles para el Formulario

Añadir 6 CommandButton
y un treeview como muestra el siguiente gráfico :

vista del formulario con los controles para el ejemplo

Nota: en este caso, para indicar la relación del nodo que se va a agregar ( primer parámetro del control Treeview ) , se toma en cuenta el nodo seleccionado, es decir se le pasa el índice ( propiedad "Index" ) del mismo:

TreeView1.SelectedItem.Index

Para comprobar si hay un nodo seleccionado , se comprueba con la siguiente línea :

    If Not TreeView1.SelectedItem Is Nothing Then
        ' ... código para añadir el nuevo nodo
    End If

Código fuente en el formulario

Option Explicit ''''''''''''''''''''''''''''''''''''''' 'Agrega un nodo Hijo ( tvwChild ) ''''''''''''''''''''''''''''''''''''''' Private Sub Command5_Click() Dim oNodex As Node Dim skey As String If Not TreeView1.SelectedItem Is Nothing Then skey = GetNextKey() Set oNodex = TreeView1.Nodes.Add(TreeView1.SelectedItem.Index, _ tvwChild, skey, "Child " & skey) oNodex.EnsureVisible Else MsgBox "Se debe seleccionar previamente un nodo " & _ "para poder agregar un Node Child. Si no hay nodos" & _ "agregar uno con el botón Last", vbInformation End If End Sub '''''''''''''''''''''''''''''''''''''''''''''''' 'Añade un nuevo nodo al principio ( tvwFirst ) '''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Command1_Click() Dim skey As String If Not TreeView1.SelectedItem Is Nothing Then ' Recupera una clave única para este nodo que se agregará skey = GetNextKey() TreeView1.Nodes.Add TreeView1.SelectedItem.Index, _ tvwFirst, skey, "First " & skey Else MsgBox "Se debe Seleccionar previamente un nodo", vbInformation End If End Sub '''''''''''''''''''''''''''''''''''''''''' ' Agrega un Nuevo nodo al final del nodo actual ( con tvwLast ) _ ' Nota: si no hay un node seleccionado, entonces lo agrega como Root '''''''''''''''''''''''''''''''''''''''''' Private Sub Command2_Click() Dim skey As String skey = GetNextKey() On Error GoTo Error_Sub TreeView1.Nodes.Add TreeView1.SelectedItem.Index, _ tvwLast, skey, "Last " & skey Exit Sub ' cuando no hay uno seleccionado lo agrega como root Error_Sub: TreeView1.Nodes.Add , tvwLast, skey, "Last " & skey Exit Sub End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' función que que genera una única clave para los nodos a agregar '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Function GetNextKey() As String Dim sNewKey As String Dim iHold As Integer Dim i As Integer On Error GoTo Error_Sub iHold = Val(TreeView1.Nodes(1).Key) For i = 1 To TreeView1.Nodes.Count If Val(TreeView1.Nodes(i).Key) > iHold Then iHold = Val(TreeView1.Nodes(i).Key) End If Next iHold = iHold + 1 sNewKey = CStr(iHold) & "_" GetNextKey = sNewKey Exit Function Error_Sub: GetNextKey = "1_" Exit Function End Function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Agrega un nuevo nodo al siguiente nodo seleccionado ( con tvwNext ) ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Command3_Click() Dim skey As String If Not TreeView1.SelectedItem Is Nothing Then skey = GetNextKey() ' clave para este nodo TreeView1.Nodes.Add TreeView1.SelectedItem.Index, _ tvwNext, skey, "Next " & skey Else MsgBox "Se debe seleccionar un nodo previamente", vbCritical End If End Sub ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'agrega un Nuevo nodo anterior al seleccionado ( con tvwPrevious ) ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Command4_Click() Dim skey As String If Not TreeView1.SelectedItem Is Nothing Then skey = GetNextKey() ' Devuelve una nueva clave TreeView1.Nodes.Add TreeView1.SelectedItem.Index, _ tvwPrevious, skey, "Previous " & skey Else MsgBox "Se debe seleccionar un nodo previamente", vbCritical End If End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''' ' Elimina el nodo seleccionado con el método Remove '''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Command6_Click() If Not TreeView1.SelectedItem Is Nothing Then TreeView1.Nodes.Remove TreeView1.SelectedItem.Index Else MsgBox "No hay un nodo seleccionado para poder eliminarlo", vbCritical End If End Sub Private Sub Form_Load() TreeView1.LineStyle = tvwRootLines Command1.Caption = " tvwFirst " Command2.Caption = " tvwLast " Command3.Caption = " tvwNext " Command4.Caption = " tvwPrevious " Command5.Caption = " tvwChild " Command6.Caption = " Eliminar seleccionado " ' agrega uno y lo selecciona Command2_Click TreeView1.Nodes(1).Selected = True End Sub

Recursos Visual basic.NET - Enlaces relacionados

Buscar nodos en VB.NET

Buscar en Recursos vb