Activar y desactivar opciones de un menu en visual basic 6.0
Cerrado
Gabriela2092
Mensajes enviados
1
Fecha de inscripción
sábado 23 marzo 2013
Estatus
Miembro
Última intervención
10 mayo 2013
-
23 mar 2013 à 17:45
pablojorgesanguinetti1 Mensajes enviados 265 Fecha de inscripción viernes 22 febrero 2013 Estatus Contribuidor Última intervención sábado 28 noviembre 2020 - 25 mar 2013 à 16:16
pablojorgesanguinetti1 Mensajes enviados 265 Fecha de inscripción viernes 22 febrero 2013 Estatus Contribuidor Última intervención sábado 28 noviembre 2020 - 25 mar 2013 à 16:16
Consulta también:
- Vb6 menu
- Menú de chrome configuración avanzada - Guide
- Menu opera - Guide
- Menu desplegable excel - Guide
- Vb6 round - Guide
- Menu recovery ps3 - Guide
3 respuestas
gracias jorge por contestar, pero no me deja usar la propiedad enabled me salta el error no se encontro el metodo o miembro de dato
pablojorgesanguinetti1
Mensajes enviados
265
Fecha de inscripción
viernes 22 febrero 2013
Estatus
Contribuidor
Última intervención
sábado 28 noviembre 2020
1.446
25 mar 2013 à 16:16
25 mar 2013 à 16:16
Ahora no tenga acceso a VB pero en cuanto pueda te pongo un ejemplo mas concreto...
pablojorgesanguinetti1
Mensajes enviados
265
Fecha de inscripción
viernes 22 febrero 2013
Estatus
Contribuidor
Última intervención
sábado 28 noviembre 2020
1.446
24 mar 2013 à 20:34
24 mar 2013 à 20:34
Hola, llamemos a tu menu mnuPrincipal con tres opciones:
mnuPrincipal(0) => "Turnos"
mnuPrincipal(1) => "Pagos"
mnuPrincipal(2) => "Paciente nuevo"
Entoces, cuando el sistema inicia, cheques quien esta logueado, ejemplo:
If userName="PEPE" Then
'USUARIO ES PEPE
mnuPrincipal(0).Enabled = True
mnuPrincipal(1).Enabled = True
mnuPrincipal(2).Enabled = True
Else
'OTROS USUARIOS (COMO MARTA)
mnuPrincipal(0).Enabled = True
mnuPrincipal(1).Enabled = True
mnuPrincipal(2).Enabled = False
End If
mnuPrincipal(0) => "Turnos"
mnuPrincipal(1) => "Pagos"
mnuPrincipal(2) => "Paciente nuevo"
Entoces, cuando el sistema inicia, cheques quien esta logueado, ejemplo:
If userName="PEPE" Then
'USUARIO ES PEPE
mnuPrincipal(0).Enabled = True
mnuPrincipal(1).Enabled = True
mnuPrincipal(2).Enabled = True
Else
'OTROS USUARIOS (COMO MARTA)
mnuPrincipal(0).Enabled = True
mnuPrincipal(1).Enabled = True
mnuPrincipal(2).Enabled = False
End If