Vamos criar uma animação no VB.Net.
Monte o form como na imagem abaixo, ou escolha as imagens que preferir:
Adicione também ao projeto um objeto timer e mude as propriedades enabled = true e interval = 50.
Nas imagens 2,3,4 na sequencia mude a propriedade visible=false, deixando apenas a primeira como visible=true.
Mude também a propriedade name das imagens para pic1,pic2,pic3,pic4 seguindo a sequencia e vamos ao código no objeto timer:
Pic1.Visible = False
Pic2.Visible = True
Pic3.Visible = False
Pic4.Visible = False
ElseIf Pic2.Visible = True Then
Pic1.Visible = False
Pic2.Visible = False
Pic3.Visible = True
Pic4.Visible = False
ElseIf Pic3.Visible = True Then
Pic1.Visible = False
Pic2.Visible = False
Pic3.Visible = False
Pic4.Visible = True
ElseIf Pic4.Visible = True Then
Pic1.Visible = True
Pic2.Visible = False
Pic3.Visible = False
Pic4.Visible = False
End If
Para aumentar ou diminuir a velocidade mude a propriedade interval do timer.
Nenhum comentário:
Postar um comentário