Comparado aos programas estruturados, o Visual Basic adiciona a função de "método" dos objetos. Dominar totalmente esse “método” diferente das propriedades dos objetos é extremamente importante para o desenvolvimento de aplicações de visualização. Abaixo, tome o método move do VB4.0 como exemplo para ilustrar a aplicação deste método em animação.
Neste exemplo, queremos usar o método move para completar o processo de voo de uma borboleta. Através da interrupção do cronômetro, em determinados intervalos (0,2 segundos neste exemplo), a posição da borboleta é movida na tela, e o formato da borboleta é alterado (asas abertas e asas retraídas), de modo que o efeito temporário de visão é usada para ver a cena do voo da borboleta ganhar vida. O movimento da posição da borboleta é realizado pelo método move. O formato usado pelo método move é o seguinte:
Object.moveleft, topo
Entre eles, left é a coordenada horizontal do limite esquerdo do objeto (eixo x) e top é a coordenada vertical do limite superior do objeto (eixo Y). Neste exemplo, a caixa do objeto (imagebox). é nomeado principal.
A imagem das asas da borboleta abertas e dobradas é fornecida pelo arquivo bitmap bfly1.bmpbfly2.bmp, e outros arquivos bitmap voadores podem ser produzidos conforme necessário para tornar o efeito mais realista.
Neste exemplo, a estrutura do formulário e as propriedades de cada objeto são definidas da seguinte forma:
Configurações de propriedade do objeto
Design de animação de voo de borboleta com legenda de formulário
nome do quadro da imagemprincipal
imagembfly1
imagemframenameopenwings
imagembfly1
imagemframenameclosewings
imagembfly2
nome da caixa de comandocomando1
legendaE&sair
timernametimer1
intervalo200
O programa relevante é relativamente simples, o código é o seguinte:
Programa de interrupção do temporizador:
PRivateSubTimer-Temporizador()
StaticPickBmpAsInteger
Main.MoveMain.Left 20,Main.Top-5
IfPickBmpThen
Main.Picture=OpenWings.Picture'Exibe a imagem da borboleta aberta.
Outro
Main.Picture=Fechar asas.Picture'Exibe a imagem da borboleta fechada.
FimSe
PickBmp=NotPickBmp'Togglethevalue.
Fim Sub
Botão de saída (sair) do programa:
PrivateSubCommand1-Click()
Descarregar-me
Fim
Fim Sub
Dessa forma, usando o método move do VB e outras propriedades do objeto, você pode obter um design de animação mais complexo. ->