Page 1 of 1
MENSAJE EN ESPERA
Posted: Thu Apr 05, 2018 8:40 pm
by jbrita
Hola Amigos , una cosulta
si se meten a esta pagina:
https://www.pasajebus.com/
y ponen ORIGEN:SALAMANCA DESTINO:SANTIAGO Y LUEGO PRESIONAN BUSCAR
SALE UN ICONO EN FORMA DE BUS MOVIENDOSE .
como se podra hacer eso cuando una hace una query y al esperar se pueda hacer algo parecido
saludps
Re: MENSAJE EN ESPERA
Posted: Thu Apr 05, 2018 8:45 pm
by Lailton
Re: MENSAJE EN ESPERA
Posted: Thu Apr 05, 2018 9:01 pm
by jbrita
Laiton gracias por responder, resulta que la imagen corre, resulta que esta buscando la informacion a mostrar
saludos
Re: MENSAJE EN ESPERA
Posted: Wed Apr 11, 2018 2:05 am
by wmormar
Jose,
Puedes utilizar un timer y lanzar una funcion que haga el despliegue de la imagen
Saludos
Re: MENSAJE EN ESPERA
Posted: Thu Apr 12, 2018 1:03 am
by FranciscoA
Re: MENSAJE EN ESPERA
Posted: Fri Apr 13, 2018 10:51 pm
by jbrita
Tengo esto: pero el gif se ejecuta solo una vez
#include "fivewin.ch"
#include "gif.ch"
function main()
local oWnd
local oMenu
menu oMenu
menuitem "Prueba" action prueba()
endmenu
define window oWnd menu oMenu
activate window oWnd
return nil
function prueba()
local oDlg,oAnimate
local oGif
local n := 0
local oSay
local nEnd := 100000
define dialog oDlg title "prueba" size 700,100 STYLE nOr( WS_POPUP, WS_VISIBLE)
@ 100, 10 SAY oSay PROMPT "TEXTO" OF oDlg pixel
activate dialog oDlg centered on init crearGif( oDlg ) valid ( n := nEnd, .t. )
do while n < nEnd
n++
oSay:SetText( str(n) )
if n%10==0
sysrefresh()
end
end
? "listo"
oDlg:End()
*/
return nil
function crearGif( oDlg )
*------------------------
local ogif
@ 1, 1 GIF oGif FILE "c:\ribon\gifs\cejer.gif" OF oDlg SIZE 700,100 ADJUST
return .t.
saludos
