quarta-feira, 6 de março de 2013

Animação no VB.NET!

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:

If Pic1.Visible = True Then
            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