Oculta la Ventana de VFP
FoxPro/Visual FoxPro
51.180 visualizaciones desde el 4 de Marzo del 2002
Este pequeño programa se puede utilizar como el programa Inicio de la Aplicacion EXE o APP.
Oculta la Ventana de VFP. Permite que el Programa quede residente en Memoria. (Visual FoxPro)
Oculta la Ventana de VFP. Permite que el Programa quede residente en Memoria. (Visual FoxPro)
Comentarios sobre la versión: Versión 1 (18)
Alguien podría ayudarme a resolver el siguiente problema?.
Tengo una aplicación que pretendo correr en Red pero cuando lo hago las tablas me aparecen como solo lectura y genera este mensaje de error " No se puede actualizar el elemento cursor". Cualquier ayuda me la envian a [email protected]
Mil gracias
_Screen.Visible = .F. && Ocultar la ventana principal del VFox
Do Form <Formulario en nivel superior: ShowWindow=2>
Read Events
Pasos Previos:
---------------------
Dentro del evento destroy del formulario de nivel superior, el cual actua como la ventana principal del proyecto, debes codificar "Clear Event".
Al crear el menú con el generador de menú del Vfox, debes seleccionar la opción del menú del VFox: Ver -> Opciones generales, y luego debes marcar la opción "Formulario de nivel superior", esto hace que tu menú se ancle a la ventana de nivel superior, luego generas el menu (Oprción: Menú -> Generar)
Por último en el evento Init del formulario de nivel superior debes codificar: Do <Nombre de tu menú>.mpr with thisform
Pruebalo, ojala te guste de esta manera.
Pd: Cuando intentas salir de un proyecto de Vfox sale "No se puede salir desde el Visual FoxPro", pero de esta manera no ocurrira ya que el formulario de nivel superior es la ventana principal de tu aplicación.
Application.Visible = .F.
_Screen.Visible = .F.
HIDE WINDOWS SCREEN
Al generar el *.exe y ejecutarlo; se cierra inmediatamente; lo único que me sirvio fue colocar la siguiente instruccion en el programa inicio:
_SCREEN.CONTROLBOX=.F.
sin embargo aunque el menú de la ventana windows aparece deshabilitado; no se ve bien; quiero ocultarlo pero que mi aplicación corra y no que se cierre como lo indique anteriormente; agradezco cualquier ayuda.
2.- y ahi mismo windowstype es 0 sin modo.
3.- en Destroy colocar Clear event
4.- en el programa que ejecutará la forma (el PRG) colocar
_screen.visible = off
do form "tu forma"
read event
_screen.visible = on
y listo.
2. En el procedimiento Init del formulario escribe
Application.Visible = .F.
3. En el procedimiento destroy del formulario escribe
Application.Visible = .T.
Y listo esto es en vfp 9 sp1
CLEAR ALL
* Variables Publicas
PUBLIC musuario;
* Definicion de Ventana para los Reportes
DEFINE WINDOW w_Output ;
FROM 0,0 TO 25,70 ;
TITLE 'Muestras' ;
CLOSE FLOAT GROW ZOOM SYSTEM
* Ambiente
SET SYSMENU TO
SET ECHO OFF
SET TALK OFF
SET CENTURY ON
SET CLOCK STATUS
SET DATE BRIT
SET DELETE ON
SET PATH TO mapeo
SET EXCLUSIVE OFF
SET SAFETY OFF
SET REFRESH TO 5
SET REPROCESS TO AUTOMATIC
SET MULTILOCK ON
SET LOCK OFF
SET STATUS OFF
SET STATUS BAR OFF
* Fondo de la Pantalla principal
_SCREEN.Picture = ".\imagenes\principal.bmp"
_SCREEN.WINDOWSTATE = 2
_SCREEN.CLOSABLE = .F.
_SCREEN.CAPTION = ".:: SISTEMA DE PERSONAL ::."
_Screen.Visible = .F.
* Base de Datos
OPEN DATA .\dbaserh1 SHARED
* Llamada al Menu
DO FORM transpa
READ EVENT
CLEAR ALL
SET SYSMENU TO DEFAULT