| Pregunta: | 36581 - ELIMINAR LA PANTALLA DE FONDO DE FOXPRO AL CREAR EJECUTABLE |
| Autor: | John Fuchu |
| Cada vez que creo un ejecutable, siempre se crea por defecto una pantalla de visual foxpro como fondo cuando ejecuto el programa quisiera saber si es posible crear el ejecutable sin que apareciera esa pantalla por defecto de visual foxpro. | |
| Respuesta: | MANUEL A. DE LA CRUZ |
| HOLA JOHN CREO QUE SI UTILIZA ESTA RUTINA TE SERVIRA:
**:************************************************************ **: Programa principal del Sistema de Control de Produccion **:************************************************************ PROCEDURE INICIO1 *************************************** CLEA ALL RELEASE ALL CLOSE DATA ALL CLOSE DATABASES && Cierra la tablas abietas. SET DELETED ON SET SYSMENU TO && Apaga el menú por defecto. SET TALK OFF SET SAFETY OFF SET CENTURY ON && Formato de fecha con año 4 digitos SET CENTURY TO 19 ROLLOVER 48 && 60 SET STATUS BAR OFF SET ECHO OFF SET MESSAGE TO *************************************** PUBLIC _ok_ STORE .F. TO _ok_ *************************************** SET EXCLU OFF MODIFY WINDOW SCREEN TITLE space(5)+'Sistema para rastreabilidad de productos V1.0' MODIFY WINDOW SCREEN ZOOM && NOZOOM MODIFY WINDOW SCREEN MINIMIZE MODIFY WINDOW SCREEN NOCLOSE WITH _SCREEN .ICON = "\SISTEMA\net13.ico" .MAXBUTTON = .T. .Picture = "FondoS.bmp" ENDWITH CLOSE ALL ******************************************* PUBLIC SALIR SALIR=0 * IF SALIR=1 QUIT ELSE RELEASE SALIR ENDIF ******************************************* = SETEO1() DO FORM PASSID24 ********************************************************************* DO CASE CASE _ok_=.T. QUIT OTHERWISE MODIFY WINDOW SCREEN TITLE +space(5)+'Sistema para rastreabilidad de productos V1.0'+ ' - [Usuario: ' + PROPER(NOMCLA) +']' ON ERROR DO ERROR_PP WITH ERROR(), MESSAGE(), MESSAGE(1), PROGRAM(), LINENO() DO MENU_SERTA.MPR READ EVENTS ENDCASE ********************************************************************* FUNCTION SETEO1 set talk off set bell off SET EXACT ON set intensity on set safety off SET STATUS BAR OFF SET HEADING OFF SET DATE TO BRITISH SET EXACT ON SET STATUS OFF SET CENTURY ON SET CENTURY TO 19 ROLLOVER 48 && 60 SET MESSAGE TO SET DELE ON SET EXCLUSIVE OFF **---------- fin programa ----------* | |
| Respuesta: | Cacho |
| J.F.:
Podes agregar al archivo config.fpw la linea : SCREEN=OFF Esto deberia hacer desaparecer la pantalla inicial En el programa la podes activar con la linea : _SCREEN.Visible=.T. Suerte! | |
| Respuesta: | vICTOR ALEXANDER ANDRADE PARRA |
| Hola ,
Si de lo que hablas es de la pantalla de fondo blanco que aparece en Visual Fox al ejecutar una aplicación, es el entorno de VFP que siempre se carga ,para eliminarla colocas al comienzo del programa de arranque la siguiente instruccion : _SCREEN.VISIBLE = .F. | |
| Respuesta: | ed ed |
| Solo debes agregar en el evento INIT del formulario lo siguiente:
Application.visible = .f. | |