Habilitar/Deshabilitar elementos de un menu por medio de una BD

Omar:
Cada formulario expone una coleccion de controles llamada Controls. Podes
recorrer esa coleccion y cuando encuentres un elemento cuya propiedad Name
esté en tu tabla de permisos, podes habilitarlo. Te mando un pequeño ejemplo
que recorre la coleccion de controles y si encuentra uno llamado
"DataGrid1", lo deshabilita.

Dim Ctrl As Control
For Each Ctrl In Me.Controls

If Ctrl.Name = "DataGrid1" Then

Ctrl.Enabled = False

End If

Next

Espero que te sirva

Saludos

Diego

Eso lo estoy usando mucho ultimamente
¿no hay una forma mas facil, que tener que recorrer todos los controles?
y no digamos si encima, esos controles tienen otros, como por ejemplo los
Paneles, hay que recurrir a la recursividad "¿redundancia?", me nudo rollo.

chory

Que tal Diego, se me presento un problema con el código que me pusiste como
ejemplo.

Resulta que la forma principal tengo los siguientes componentes MainMenu,
StatusBar, ButtonBar y resulta que cuando empiezo a recorrer los controles
con el código que me mandaste solo detecta el StatusBar y el ButtonBar el
MainMenu NO y es el que necesito, me puedes decir a que se debe esto y/o
como solucionarlo.

Por favor ayudenme.

Muchas gracias.

"Diego Cofré" escribió en el mensaje
news:

Omar:
Cada formulario expone una coleccion de controles llamada Controls. Podes
recorrer esa coleccion y cuando encuentres un elemento cuya propiedad Name
esté en tu tabla de permisos, podes habilitarlo. Te mando un pequeño
ejemplo que recorre la coleccion de controles y si encuentra uno llamado
"DataGrid1", lo deshabilita.

Dim Ctrl As Control
For Each Ctrl In Me.Controls

If Ctrl.Name = "DataGrid1" Then

Ctrl.Enabled = False

End If

Next

Espero que te sirva

Saludos

Diego

Por supuesto que las hay. De todas formas, no lo entiendo, a ti ya te he
contestado esa pregunta :-(

Para empezar puedes poner referencias a los controles que te interesan en un
array, o cualquier otro tipo de colección. Ya te expliqué como hacerlo en tu
pregunta anterior.

Pero en concreto para los elementos de un menú, no tienes que crear ninguna
colección.

For Each item As MenuItem In MainMenu1.MenuItems
For Each subItem As MenuItem In item.MenuItems
MsgBox(item.Text & "-" & subItem.Text)
Next
Next

Obviamente, lo más flexible es utilizar recursividad, puesto que un menú no
tiene por que tener solo dos niveles.

La solución de recorrer todos los controles, es lo última que yo emplearía.
No tiene demasiado sentido.

Juan Carlos Badiola
MVP - C#

Que tal, esto es lo que necesito pero mi menu tiene varios niveles, me
puedes decir por favor como le puedo hacer para leer todos los niveles de mi
menu.

De hecho lo que necesito es lo siguente:
Tengo una tabla con los nombres de los items (nombre_item) del menu y lo que
quiero hacer es leer la tabla
y habilitar los elementos
nombre_item.Enabled=True

Espero y me puedas ayudar, te lo agradecería muchísimo.

Saludos.

"Tristan" escribió en el mensaje
news:OOZ%

Por supuesto que las hay. De todas formas, no lo entiendo, a ti ya te he
contestado esa pregunta :-(

Para empezar puedes poner referencias a los controles que te interesan en
un array, o cualquier otro tipo de colección. Ya te expliqué como hacerlo
en tu pregunta anterior.

Pero en concreto para los elementos de un menú, no tienes que crear
ninguna colección.

For Each item As MenuItem In MainMenu1.MenuItems
For Each subItem As MenuItem In item.MenuItems
MsgBox(item.Text & "-" & subItem.Text)
Next
Next

Obviamente, lo más flexible es utilizar recursividad, puesto que un menú
no tiene por que tener solo dos niveles.

La solución de recorrer todos los controles, es lo última que yo
emplearía. No tiene demasiado sentido.

Juan Carlos Badiola
MVP - C#