|
|
|
|
|
|
|
|
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
|
|
|
|
|
