FoxPro/Visual FoxPro - Poner una imagen antes de cargar

 
Vista:

Poner una imagen antes de cargar

Publicado por Sebastian M. Barrionuevo (73 intervenciones) el 25/06/2007 20:19:51
Alguien sabe como poner en fox una foto o imagen( como en word o excel) como que inicia la cargacion del programa...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Poner una imagen antes de cargar

Publicado por Plinio (7841 intervenciones) el 25/06/2007 20:37:52
Se llama Splash Screen. Un par de ejemplos
http://www.portalfox.com/index.php?name=News&file=article&sid=1125&mode=nested&order=0&thold=0

http://support.microsoft.com/default.aspx?scid=kb;ES;190350
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:Poner una imagen antes de cargar

Publicado por Ernesto Hernandez (4623 intervenciones) el 26/06/2007 17:00:53
LOCAL loPresenta
loPresenta = NEWOBJECT("FormPresenta")
loPresenta.SHOW()
** Presentation screen
FOR ln = 1 TO 30&& Legal Value = 30
INKEY(.1)
ENDFOR
RELEASE loPresenta
loPresenta = NULL
**********************
* Formulario Presenta
**********************
DEFINE CLASS FormPresenta AS FORM
ALWAYSONTOP = .T.
AUTOCENTER = .T.
WIDTH = 700 &&468
HEIGHT = 500 &&319
NAME = "Presenta"
SHOWWINDOW = 2
DESKTOP = .T.
TITLEBAR = 0
BORDERSTYLE = 1
MOUSEPOINTER = 11
ADD OBJECT imgLogo AS IMAGE
PICTURE = "BITMAPS\SPLASH2.BMP"
PICTURE = "Logo Empresa\logo.jpg"
TOP = 0
LEFT = 0
ADD OBJECT Inicilizando as LABEL
caption="Wait ..... "
*************
PROCEDURE INIT
SET CURSOR OFF
THIS.SETALL("MOUSEPOINTER", THIS.MOUSEPOINTER)
ENDPROC
*****************
PROCEDURE DESTROY
SET CURSOR ON
ENDPROC
ENDDEFINE

Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar