Código:
Esto me cargaria un menu. Me pone un error de que Menu no tiene la propiedad Items.Add....No se si se declaró bien el contro MenuPublic Sub ConstruyeMenu(ByVal menu As Menu, ByVal Usuario As Integer) Dim dtMenuItems As New DataTable Dim MyConn1 As New SqlConnection("packet size=4096;user id=admin;data source=DIR2;PWD=admi_sig99;persist security info=False;initial catalog=Contabilidad") Dim daMenu As New SqlDataAdapter("dbo.ObtenerOpcionesMenu", MyConn1) daMenu.SelectCommand.CommandType = CommandType.StoredProcedure daMenu.SelectCommand.Parameters.Add("@usuario", SqlDbType.Int) daMenu.SelectCommand.Parameters("@usuario").Value = Usuario 'llenamos el datatable daMenu.Fill(dtMenuItems) 'recorremos el datatable para agregar los elementos de que estaran en la cabecera del menu. For Each drMenuItem As Data.DataRow In dtMenuItems.Rows 'esta condicion indica q son elementos padre. If drMenuItem("MenuId").Equals(drMenuItem("PadreId")) Then Dim mnuMenuItem As New MenuItem mnuMenuItem.Value = drMenuItem("MenuId").ToString mnuMenuItem.Text = drMenuItem("Descripcion").ToString mnuMenuItem.ImageUrl = drMenuItem("Icono").ToString mnuMenuItem.NavigateUrl = drMenuItem("Url").ToString 'agregamos el Item al menu menu.Items.Add(mnuMenuItem) 'hacemos un llamado al metodo recursivo encargado de generar el arbol del menu. AddMenuItem(mnuMenuItem, dtMenuItems) End If Next End Sub
Ya he hecho esto en un web form, pero se me ocurre que puede ser una clase y mandar llamar el metodo para llenar el Menu...
o bien, ¿se puede declarar el control Menu en una clase????
Gracias