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.
¿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
Nota: solo los miembros de este blog pueden publicar comentarios.