Ayuda con menus

[fredy666]

Buenos dias, he creado un sistema de menus, ocultos, el cual muestra una serie de menus u otros dependiendo del usuario.
Esa "eleccion" de menus la hago asi

Código:

While myReader.Read
   menu = myReader("fldnombre")
   Select Case Trim(menu) 
     Case "tstGestion" 'Menu para la Gestion de los usuarios y sus permisos                        
       frmInicial.tstGestion.Visible = True
     Case "tstListinTelefonico"
       frmInicial.tstListinTelefonico.Visible = True
   End Select
 End While

Lo que quisiera es realizar ese case en una sola linea, al estilo de

Código:

frminicial.myreader("fldnombre").visible=true

.el problema es que no se como resolverlo.

Muchas gracias

[xknown]

No se puede hacer, ya que .NET no soporta (por el momento) ese tipo de cosas (como lo hacen php, perl, python, ruby, etc), necesariamente tienes que hacer las comparaciones, talvez podrías reducir código con la _función_ IIf

Saludos

[gualicho]

En realidad sí se puede hacer con algún truquillo, como agregando un indizador al formulario cosa que cuando le hags por ejemplo frminicial("campo") te devuelva el objeto menu directamente, entonces si que podrías hacer eso.

Espero que me entiendas, sino mirá Indizadores en MSDN.

[xknown]

Iniciado por gualicho

En realidad sí se puede hacer con algún truquillo, como agregando un indizador al formulario cosa que cuando le hags por ejemplo frminicial("campo") te devuelva el objeto menu directamente, entonces si que podrías hacer eso.

Espero que me entiendas, sino mirá Indizadores en MSDN.

Buen punto!, no había pensado en eso

Saludos

[fredy666]

Y como podria hacer lo del indexador ese?? no lo habia oido nunca xD

[fredy666]

Todo lo que encuentro es para C#, no hay nada para Visual Basic ????

Gracias

[fredy666]

Ya he encontrado algo en MSDN del indizador. El problema es que no me sirve del todo, o eso creo.

Como podria hacer con modulos o clases, la gestión de los permisos de ejecución del menú de la palicación??????

Ahora mismo tengo asi:

Código:

With mMenu.MenuItems.Add("mnuFichero")
                        .Text = Trim(menu)
                        With .MenuItems.Add(Trim(menu), New EventHandler(AddressOf frmInicial.CerrarToolStripMenuItem_Click))
                            .Text = Trim(menu)
                        End With
                    End With

Pero no me sirve, ya que me muestra los menus uno al lado de otro, y solo se tendria que mostrar dos menus con 2 opciones cada uno.

Muchas gracias de antemano.