Foros del Web » Programación para mayores de 30 ;) » .NET »

Sistema de menus

Estas en el tema de Sistema de menus en el foro de .NET en Foros del Web. Buenas, os cuento mi caso, creo que es un poco lioso, pero a ver si alguna mente inspirada me lo puede resolver, mis neuronas no ...
  #1 (permalink)  
Antiguo 08/02/2005, 20:17
 
Fecha de Ingreso: septiembre-2004
Mensajes: 24
Antigüedad: 20 años, 5 meses
Puntos: 0
Sistema de menus

Buenas,
os cuento mi caso, creo que es un poco lioso, pero a ver si alguna mente inspirada me lo puede resolver, mis neuronas no dan para màs.

La idea en terminos generales és:
Un datalist1 que muestra un menu, con otro datalist2 dentro que muestra el submenu y con un linkbutton dentro del datalist2 para mostrar los items.

De momento, el datalist1 muestra el menu, y cuando selecciono un item, el datalist2 me carga los submenus. La dificultad estaba en generar el datalist2 dinamicamente, pero ya lo solucione. Ahora me falta poder controlar los eventos de los linkbuttons. (bueno, en realidad, por la regla de los controles contenedores serian eventos del datalist2, pero lo digo asi para que entiendan el caso...)
El codigo que he generado hasta ahora es:

Código:
 
...
AddHandler dl1.ItemCommand, AddressOf Abrir_Menu
AddHandler dl1.ItemDataBound, AddressOf Menu_ItemLlamado
AddHandler dl1.ItemCreated, AddressOf Menu_ItemCreado
...
PrivateSub Abrir_Menu(ByVal sender AsObject, ByVal e As System.Web.UI.WebControls.DataListCommandEventArgs) Handles dlSeries.ItemCommand
dl1.DataSource = dv1
dl1.SelectedIndex = e.CommandArgument - 1
dl1.DataBind()
dl1.RepeatLayout = RepeatLayout.Table
EndSub

PrivateSub Menu_ItemLlamado(ByVal sender AsObject, ByVal e As System.Web.UI.WebControls.DataListItemEventArgs)
If e.Item.ItemIndex <> -1 Then
Dim dl2 As DataList
dl2 = CType(e.Item.FindControl("dl2"), DataList)
IfNot dl2 IsNothingThen
dv2.RowFilter = "f_codi_serie =" & e.Item.ItemIndex + 1
dl2.DataSource = dv2
dl2.DataBind()
dl2.RepeatLayout = RepeatLayout.Table
EndIf
EndIf
EndSub

PrivateSub Menu_ItemCreado(ByVal sender AsObject, ByVal e As System.Web.UI.WebControls.DataListItemEventArgs)
If e.Item.ItemIndex <> -1 Then
Dim dl2 As DataList
dl2 = CType(e.Item.FindControl("dl2"), DataList)
IfNot dl2 IsNothingThen
AddHandler dl2.ItemCommand, AddressOf Abrir_Contenido
EndIf
EndIf
EndSub
 
PrivateSub Abrir_Contenido(ByVal source AsObject, ByVal e As System.Web.UI.WebControls.DataListCommandEventArgs)
Variable = "texto que quiero cargar"
EndSub
 
Saludos a todos!! y a ver si alguien me puede ayudar pq ya me estoy volviendo majara!!
;)
__________________
van rage
"If you don't, don't"

Última edición por marccerdan; 09/02/2005 a las 10:21
  #2 (permalink)  
Antiguo 09/02/2005, 19:16
 
Fecha de Ingreso: septiembre-2004
Mensajes: 24
Antigüedad: 20 años, 5 meses
Puntos: 0
Hooolaaa....
Nadie me puede ayudar? que hago mal???
__________________
van rage
"If you don't, don't"
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 16:13.