Pessoal,
A imagem anterior tem erro.  DESCULPA!!!
Por favor substitua picUNIVERSAL por picFigura. Assim fica correta

Tente este codigo

Contents
Picture: picFigura
  Message Actions
   On SAM_Create
      Call SalTimerSet(picFigura,1,8000)
      Set nNumImagem=1
   On SAM_Timer
      If nNumImagem=1
         Call SalPicSetFile(picFigura,'imagem1.bmp')
         Set nNumImagem=2
      Else If nNumImagem=2
         Call SalPicSetFile(picFigura,'imagem2.bmp')
         Set nNumImagem=3
      Else If nNumImagem=3
         Call SalPicSetFile(picFigura,'imagem1.bmp')
         Set nNumImagem=1
   On SAM_Destroy
         Call SalTimerKill(picFigura,1)
************
Window Variables
  Number:nNumImagem

***********************
A imagem1.bmp aparece duas veses somente para demorar um pouco mais com 
relacao a segunda. Vc pode alternar quantas imagens quiser, 
acrescentanto,Else If nNumImagem=4 e assim por diante.

Espero ter ajudado

Francisco Frank



>From: "Ubirajara de S. Mattos" <[EMAIL PROTECTED]>
>Reply-To: [EMAIL PROTECTED]
>To: [EMAIL PROTECTED]
>Subject: [sqlwin] SAM_Timer
>Date: Sat, 20 Jan 2001 10:16:52 -0200
>
>Ol� Lista!
>
>Algu�m sabe me dizer como � que consigo alternar a exibi��o de duas
>pictures, usando o SAM_Timer
>
>Eu consigo fazer a primeira sumir e exibir a segunda, mas para por a�...
>gostaria que ficasse como se fosse um loop.
>
>Algu�m pode me ajudar?
>
>Obrigado a todos.
>
>Ubirajara Mattos.
>
>PS - Meus agradecimentos ao Lairton e ao Eder Luis Jorge, pois a fun��o
>"Long" funcionou cfe. o indicado. Obrigado!

_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.

==============================================
Lista de Centura SQLWindows
Administrador : [EMAIL PROTECTED]
[ http://www.centuraexplorer.com ]
Para sair desta lista mande mensagem para:
[EMAIL PROTECTED] sem nada no Subject e
com o comando a seguir no corpo da msg:
"unsubscribe sqlwin" (sem as aspas)
==============================================

Responder a