Como fazer animações no Visual Basic 6.0

Passo 1

Vá para "Iniciar" e depois "Todos os Programas". Clique em "Visual Basic 6.0". Em seguida, em "Arquivo", "Novo" e selecione "Windows Application" na janela de diálogo Novo Projeto. Clique em "Controle de imagem" e coloque-o no formulário. Clique com o botão direito do mouse no projeto, selecione "Propriedades" e, em seguida, insira a guia "Recursos". No Gerenciador de recursos, adicione duas imagens de cachorros. É necessário que as duas imagens estejam no mesmo diretório no qual o projeto está. Nas duas imagens, o cão é delineado para a esquerda ou para a direita.

Passo 2

Clique duas vezes no plano de fundo do formulário para abrir o manipulador de eventos Form_Load. Atribuir a imagem do cão que está delineado à esquerda para o controle de imagem. O cão pode percorrer a forma da esquerda para a direita ou na direção oposta. Assim, existem quatro estados para o cão: para a esquerda ou para a direita e andar para a esquerda ou para a direita. Digite o seguinte código de enumeração para definir os quatro estados de cão: Enum DogState FacingLeftWalkingLeft = 1 FacingLeftWalkingRight = 2 FacingRightWalkingRight = 3 FacingRightWalkingLeft = 4 End Enum

Passo 3

Adicione um temporizador para alterar o movimento do cachorro, clicando no ícone "Relógio" na barra lateral geral. Defina o temporizador para ativar uma marca a cada 100 milissegundos. Defina o estado inicial como FacingLeftWalkingLeft e a velocidade de 10 pixels por etapa usando o seguinte código: state = DogState.FacingLeftWalkingLeft speed = 10 DogImg.Image = My.Resources.Dog

Passo 4

Mova o controle de imagem para a esquerda com velocidade fixa e altere a imagem. Verifique a localização do controle de imagem quando ele se move para a esquerda ou para a direita. Certifique-se de que a imagem não saia do formulário. Inverta as imagens quando chegar nas extremidades esquerda ou direita. Isto pode ser conseguido através da seguinte cláusula Case e If-Else:

Selecione o estado do caso Caso DogState.FacingLeftLeftLegs

DogImg.Left = DogImg.Left - speed DogImg.Image = My.Resources.Dog2 Se DogImg.Left> 5 Então state = DogState.FacingLeftRightLegs Outro estado = DogState.FacingRightLeftLegs End If