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