Buscar en el Blog

martes, 6 de diciembre de 2011

VB.NET Recorrer menus

Saludos a todos ustedes estimados lectores, en esta ocacion quiero compartir este fragmento de codigo que encontre en internet, con el cual podemos recorrer los menus de una ventana y de esa manera poder manipular sus propiedades.
¿Para que puede ser util esto?, bueno puede ser util para dar los respectivos privilegios o restricciones a un usuario.



El codigo en si es el que sigue


 Public Sub RecorrerNivelesAltos(byval opcion as Boolean)
        For Each M As ToolStripMenuItem In me.menuStrip1.Items

            m.Enabled=opcion
            Me.RecorrerSubMenuNivelesAltos(M,opcion)
        Next
    End Sub

    Public Sub RecorrerSubMenuNivelesAltos(ByVal M As ToolStripMenuItem,byval opcion as Boolean)
        For Each SubMenu As ToolStripMenuItem In M.DropDownItems
          
           submenu.Enabled=opcion
            Me.RecorrerSubMenuNivelesAltos(SubMenu,opcion)
        Next
    End Sub

En el procedimiento RecorrerSubMenuNivelesAltos, hacemos uso de la recursividad.

No hay comentarios:

Publicar un comentario