PUBLIC SUB Form_Close()
SELECT CASE Message.Warning("¿Seguro que desea cerrar?" & "\n" & "Podría perder el trabajo realizado hasta el momento",
"Si, deseo cerrar", "No, deseo cerrar")
CASE (1)
FMain.Visible = TRUE
ME.Close
END SELECT
END
PUBLIC SUB btn_SalirNuevo_Click()
SELECT CASE Message.Warning("¿Seguro que desea cerrar?" & "\n" & "Podría perder el trabajo realizado hasta el momento",
"Si, deseo cerrar", "No, deseo cerrar")
CASE (1)
FMain.Visible = TRUE
ME.Close
END SELECT
END
SELECT CASE Message.Warning("¿Seguro que desea cerrar?" & "\n" & "Podría perder el trabajo realizado hasta el momento",
"Si, deseo cerrar", "No, deseo cerrar")
CASE (1)
FMain.Visible = TRUE
ME.Close
END SELECT
END
PUBLIC SUB btn_SalirNuevo_Click()
SELECT CASE Message.Warning("¿Seguro que desea cerrar?" & "\n" & "Podría perder el trabajo realizado hasta el momento",
"Si, deseo cerrar", "No, deseo cerrar")
CASE (1)
FMain.Visible = TRUE
ME.Close
END SELECT
END
En teoria deberia de ocurrir lo mismo, tanto en un caso como en otro, pero no es asi.
Si cierro el formulario mediante el evento Form_Close, sale el Message.Warning y al cliquear en "Si, deseo cerrar", se cierra el formulario y se ve el otro formulario (FMain).
En cambio, si cierro mediante el btn_SalirNuevo_Click, me sale el Message.Warning, y al darle a que si quiero cerrar, parpadea y se mantiene el Mesage.Warning en pantalla, hasta que clikeo de nuevo en que si que quiero cerrar y ya sale correctamente.
Esto es debido a gambas o a que mi codigo esta mal escrito....pero si estuviese mal escrito, no funcionaria con el evento Form_Close no?
Salud y graciaas!!!