En este grupo En todos

Foro de Microsoft.Net



Como crear un treeview o menu en una aplicacion web asp.net

Escrito por Luis
el 02/05/2007

Tengo un proyecto de Visual Basic y he estado consultando bastante sobre este tema.   También he probado diferentes códigos y  no me ha funcionado hasta el momento el árbol treeview o menú.   les agradecería si alguien tiene este conocimiento me pudiera ayudar.

Escrito por Felipe
el 07/07/2009

Te paso esta funcion que uso yo para armar el menu usando un procedimiento sql. Tené en cuenta que lo arma a partir del nodo "catalogo". En este caso la raiz ya esta predefinida en la pagina.

Espero que te sirva

Private
Sub ArmaMenu()

Using connection As New SqlConnection(Clave. SqlConnectionString(ConfigurationManager.AppSettings.Get( "Hosting" ). ToString()))

Dim iCatalogo As Integer

For Each tnNodo As TreeNode In tvMenu. Nodes

If tnNodo. Value = "catalogo" Then iCatalogo = tvMenu.Nodes.IndexOf(tnNodo)

Next

Dim command As New SqlCommand( "TiposCatalogoConsul "" & Session( "cuenta" ) & """ , connection)

Connection. Open()

Dim reader As

SqlDataReader = command. ExecuteReader()

If reader. Read() Then

Dim sFamilia As String = reader( "Familia" )

While sFamilia <> ""

Dim tnMenu As TreeNode = New TreeNode(reader( "FamiliaNombre" ). ToString. ToUpper(), reader( "Familia" ))

TnMenu. Value = reader(

"Familia" )

Do

Dim sUrl As String = "Catalogo. Aspx? Familia=" & reader( "Familia" )

SUrl +=

"&tipo=" & reader( "Tipo" )

SUrl +=

"&tipoD=" & reader( "Descripcion" ). ToString. ToUpper()

SUrl +=

"&familiaD=" & reader( "FamiliaNombre" ). ToString. ToUpper()

Dim tnChild As TreeNode = New TreeNode(reader( "Descripcion" ). ToString. ToLower(), reader( "Tipo" ))

TnChild. NavigateUrl = sUrl

"tnChild. Target = "mainFrame"

TnChild. ToolTip =

"Sub-Rubro: " & reader( "Descripcion" ). ToString. ToLower()

tnMenu.ChildNodes.Add(tnChild)

If reader. Read() Then

SFamilia = reader(

"Familia" )

Else

SFamilia =

""

End If

Loop While sFamilia = tnMenu. Value()

TvMenu. Nodes(iCatalogo). ChildNodes. Add(tnMenu)

End While

End If

Reader. Close()

End Using

End Sub