USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Imagem/Som/Multimídia)

Título da Dica:  Animação com Ícones
Postada em 3/6/2004 por ATS            
Crie um novo projeto, coloque no Form uma ImageList, um PictureBox (ou ImageBox, pois esta não recebe foco), um Timer (com Interval = 100, pelo menos) e coloque as figuras da animação na ImageList.

Então, coloque o seguinte código no Form:

Dim iAnim As Integer
Private Sub Form_Load()
  iAnim = 1
  Call Timer1_Timer
End Sub
Private Sub Timer1_Timer()
  *Img1 é a ImageBox e ImgLst1 é a ImageList.
  Set Img1.Picture = ImgLst1.ListImages(iAnim).Picture
  iAnim = iAnim + 1
  If iAnim > ImgLst1.ListImages.Count Then
    iAnim = 1
  End If
End Sub
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página