Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Deshabilitar Y Habilitar Sub-menus.
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Deshabilitar Y Habilitar Sub-menus. 
 
Explico el problema:

En FMain.form solamente tengo un menu en la parte superior el que creamos con menu editor, bueno, cuando le doy clikc, me abre otro formulario y lo deshabilito mientras esté trabajando el formulario que se abrió

PUBLIC SUB opcionmenu_click()
   opcionmenu.enabled = FALSE  'Dehabilito el menu
   nuevoformulario.show             'abro el nuevo formulario
END
Esto funciona bien, se abre el nuevoformulario y la opcion del menu en Fmain.form se deshabilita, lo que no lo hacer es cuando cierre nuevoformulario se vuelva habilitar el opción de menu.

Alguien me puede orientar
 



 
cmunpal - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Deshabilitar Y Habilitar Sub-menus. 
 
Quizá te sea más simple abrir el formulario en modo modal (nuevoformulario.showmodal) y no tendrás que modificar nada en el menú principal.

Suerte
 



 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Deshabilitar Y Habilitar Sub-menus. 
 
puedes crear funciones en la que deshabilites y habilites ciertas partes del menu y por ejemplo cuando das clic en opción llamas a la función deshabilitar y cuando cierres el formulario llama a la opción habilitar

ejemplo...
PUBLIC SUB zkonKtDB()
  Menu3.Visible = FALSE
  Menu4.Visible = TRUE
  Menu5.Visible = TRUE
  Menu6.Visible = TRUE
  Menu7.Visible = FALSE
  Menu9.Visible = FALSE
  registroapp
  Menu23.Visible = TRUE
END
PUBLIC SUB zdskonKtDB()    'recuerda deben ser publicas las funciones para poder llamarlas desde otra clase
  Menu3.Visible = TRUE
  Menu4.Visible = FALSE
  Menu5.Visible = FALSE
  Menu7.Visible = FALSE
  Menu9.Visible = FALSE
  Menu23.Visible = FALSE
END

esas son mis funciones y ya cuando realizo el método que va a cambiar o llamar la funcion
lo llamo de la siguiente manera
PUBLIC SUB siAcepto()
  FMain.$textbolabel = "Conectado a MySQL."
  FMain.ztxtoetIk
  TextBox1.ReadOnly = TRUE
  TextBox2.ReadOnly = TRUE
  PictureBox1.Visible = TRUE
  Label3.Visible = TRUE
  Timer2.Enabled = TRUE
  Timer3.Enabled = TRUE
  ME.Caption = "Conectado"
  FMain.zkonKtDB          'este es la linea que llama a la funcion  1-Fmain:Nombre de la clase en donde se encuentra la funcion . 2-zkonKtDB:la Funcion
  FMain.$konXakti = 1
END


espero te sirva en lo personal ami me a funcionado y me sirve para mi sistema.
 



 
RodSanRey - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario



  

 

cron