COMO CARGAR UN MENU DESDE UNA TABLA

Echa un vistazo en este mismo foro, a un mensaje de asunto "nombre de un
menu" del 27 de junio de 2005. Ahí dejé un ejemplo que posiblemente te pueda
servir.

Juan Carlos Badiola
MVP - C#

No logro ver ese mensaje en el foro, puedes reenviar el mensaje. Gracias.


"Tristan" escribió en el mensaje
news:

Echa un vistazo en este mismo foro, a un mensaje de asunto "nombre de un
menu" del 27 de junio de 2005. Ahí dejé un ejemplo que posiblemente te
pueda servir.

Juan Carlos Badiola
MVP - C#

Esto sería un código completo para crear un menú desde una tabla. La tabla
tiene el formato que utilizaba el que me pidió en su dia el ejemplo. Las
primeras lineas solo sirven para crear una tabla de ejemplo, que tú obtendrás
con un dataadapter desde la BD:

Dim tabla As New DataTable
tabla.Columns.Add("MenuId")
tabla.Columns.Add("Descripción­")
tabla.Rows.Add(New Object() {"MNU0", "Archivo"})
tabla.Rows.Add(New Object() {"MNU00", "Abrir"})
tabla.Rows.Add(New Object() {"MNU000", "Abrir documento"})
tabla.Rows.Add(New Object() {"MNU001", "Abrir otro"})
tabla.Rows.Add(New Object() {"MNU01", "Guardar"})
tabla.Rows.Add(New Object() {"MNU1", "Edición"})
tabla.Rows.Add(New Object() {"MNU11", "Copiar"})


Dim menu As New MainMenu
Dim item As MenuItem
Dim padre As Menu
Dim id, idPadre As String
Dim items As New Hashtable
items.Add("MNU", menu)
For Each fila As DataRow In tabla.Rows
id = fila("MenuId").ToString()
idPadre = id.Substring(0, id.Length - 1)
padre = DirectCast(items(idPadre), Menu)
item = New MenuItem(fila("Descripción"))
padre.MenuItems.Add(item)
items.Add(id, item)
Next
Me.Menu = menu


Si los items no están ordenados, bastaría con que hagas:

tabla.DefaultView.Sort = "MenuId"


Juan Carlos Badiola
MVP - C#