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
Laiton gracias por responder, resulta que la imagen corre, resulta que esta buscando la informacion a mostrar
saludos
Jose,
Puedes utilizar un timer y lanzar una funcion que haga el despliegue de la imagen
Saludos
Tengo esto: pero el gif se ejecuta solo una vez
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