Ejemplo Nodos
COMO HACER TU PROPIO MENU DESPLEGABLE FACIL Y RAPIDO.
PRIMERO CREAMOS EL FORMULARIO , PARA ESO DEBEMOS AGREGAR LOS SIGUIENTES COMPONENTES :
COMPONENTE TREEVIEW
IMAGELIST
DESPUES MIRAMOS EL CODIGO Y VEMOS QUE ESTE CODIGO SOLO SIRVE PARA UN COMPONENTE CARGADO CON ICONOS PERSONALIZADOS, LA FORMA FACIL Y RAPIDA ES IR CREANDOLO CON EL VISUAL STUDIO UNO POR UNO PERO TE QUEDARIA COMO ESTA EN LA FOTO DE LA DERECHA POR LO TANTO SI QUERES UN PROGRAMA MEJOR CON ICONOS SERA MEJOR QUE TE PONGAS LAS PILAS PARA HACERLO.
Esta Variable Nodopadre y Nodohijo es para identificar al Arbol de menu del Treeview y no andar poniendo treeview a cada rato y para diferenciar del desplegable con el otro.
Dim nodopadre As TreeNode, nodohijo As TreeNode
La variable Arbol en "Arbol.ExpandAll" hace referencia al treeview porque le cambie de nombre a este componente aca podrian ponerlo treeview1.expandall y lito pero yo preferi ponerle nombre asi no se confunden con el codigo y demas.en la primera linea despues del Add("" . . .) esas dos comillas hacen que agregue el nodo para que cargue uno nuevo. Despues "CLIENTES" seria el nombre del menu que deseamos que obtenga, luego "12,12" son los iconos del imagelist que cargamos previamente. El primer 12 es el el numero de imagen que tiene el imagelist el primer 12 y es para elegir el icono y el segundo seria para cuando se expande el Nodo y cambie de icono si queres el mismo pone los dos numeros iguales sino cambialos por el que mas te guste/i]
nodopadre = Arbol.Nodes.Add("", "Clientes", 12, 12)
ACA UN EJEMPLO DE COMO MIRAR
LUEGO VEMOS QUE DEBAJO EL PRIMERO NODO CREADO TENEMOS UNO QUE DICE NODOHIJO ESTO ES PARA QUE AGREGUE UN NODO DENTRO DEL NODO QUE CREAMOS EN ESTE CASO CLIENTES Y MAESTRO DE EMPLEADOS,ETC.
luego de que hayas agregado los nodos y los subnodos tendrias que poner para cuando se seleccione dicho nodo abra un formulario o un programa,etc . por ejemplo
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim nodopadre As TreeNode, nodohijo As TreeNode
nodopadre = Arbol.Nodes.Add("", "Clientes", 12, 12)
nodohijo = nodopadre.Nodes.Add("", "Maestro de empleados", 5, 5)
nodohijo = nodopadre.Nodes.Add("", "Listado de Clientes", 21, 21)
nodopadre = Arbol.Nodes.Add("", "Articulos", 12, 12)
nodohijo = nodopadre.Nodes.Add("", "Maestro de empleados", 19, 19)
nodohijo = nodopadre.Nodes.Add("", "Lista de Precios", 21, 21)
nodopadre = Arbol.Nodes.Add("", "Ventas", 12, 12)
nodohijo = nodopadre.Nodes.Add("", "Facturas", 26, 26)
nodohijo = nodopadre.Nodes.Add("", "Cobranzas", 28, 28)
nodohijo = nodopadre.Nodes.Add("", "Anular Facturas", 7, 7)
nodopadre = Arbol.Nodes.Add("", "Listado", 12, 12)
nodohijo = nodopadre.Nodes.Add("", "Cuenta corriente", 22, 22)
nodohijo = nodopadre.Nodes.Add("", "Facturacion", 23, 23)
nodohijo = nodopadre.Nodes.Add("", "Cobranzas", 24, 24)
Arbol.ExpandAll()
End Sub
Private Sub Arbol_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles Arbol.AfterSelect
Select Case e.Node.FullPath
Case "Clientes/Maestro de Clientes"
Case "Clientes/Listado de Clientes"
Case "Articulos/Maestro de empleados"
End Select
End Sub
End Class
Y ESO ES TODO AMIGOS