MENSAJE EN ESPERA

[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

[Lailton]

Mira aca:
http://fivetechsoft.com/wiki/doku.php?i ... ion_msgrun

Talvez algo asi

[jbrita]

Laiton gracias por responder, resulta que la imagen corre, resulta que esta buscando la informacion a mostrar

saludos

[wmormar]

Jose,

Puedes utilizar un timer y lanzar una funcion que haga el despliegue de la imagen

Saludos

[FranciscoA]

Hola jbrita, mirá si esto te sirve.

viewtopic.php?f=6&t=27967&start=0&hilit=relojarena

Saludos.

[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