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:  Criando uma Animação no VB
Postada em 14/8/2000 por Webmaster      Clique aqui para enviar email para o autor  webmaster@vbweb.com.br
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 > ImageList1.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