FoxPro/Visual FoxPro - Tiempo en espera

 
Vista:

Tiempo en espera

Publicado por Iñaki (47 intervenciones) el 11/05/2007 10:16:10
Hola a todos!
Lanzo los formularios con un “shellexecute” y para poder coger seguidamente el “handle” de la ventana, tengo que poner un “wait window”:

Wait WINDOW "Procesando....." timeout 1

Mi pregunta es sí puedo, en vez de usar el “wait window”, usar alguna otra funcione que se ejecute justo después de abrirse la ventana del “shellexecute”?
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
sin imagen de perfil

RE:Tiempo en espera

Publicado por Hector R. De los Santos (270 intervenciones) el 11/05/2007 14:01:22
Una ventana que se abra justo despues de abrirse la ventana del "Shellexecute"??
Mmm..no seria antes??..Digo para mostrar el mensaje de que se esta cargando la aplicacion??
Bueno...podrias usar otro form con un timer para que te dure un tiempo y luego se cierre..con una barra de progreso..en ese caso no tendrias que usar el shellexecute , no creo que tendrias que caputarar el handle de ese form.
Tambien pudes usar un prg para que muestre el letro..Cargando.
Este ejemplo esta en la LWP(creo)

CLEAR
SET TALK OFF
SET SAFETY OFF
SET CENTURY OFF

DEFINE WINDOWS X FROM 0,0 TO 20,120 SYSTEM IN DESKTOP COLOR w;
CLOSE title "[Beta:]> Efectos con texto"
MOVE WIND X CENTER
ACTI WIND X
*------Datos
texto = "CARGANDO..."
tiempo = 0.0001
tamañoi = 8
tamañof = 30
espacio = 10
TipoLetra = "tahoma"
l = 8
c = 120/2-len(texto)+5
*----------
*for i=1 to len(texto)
@l,c say texto font TipoLetra,Tamañoi
*endfor
for i=1 to len(texto) step tiempo
@l,c say subs(texto,1,i) font TipoLetra,Tamañoi color r
endfor
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