Cum se fac animații în Visual Basic 6.0
Pasul 1
Accesați "Start", apoi "Toate programele". Faceți clic pe "Visual Basic 6.0". Apoi, în "Fișier", "Nou" și selectați "Windows Application" în fereastra de dialog New Project. Faceți clic pe "Control imagine" și plasați-l pe formular. Faceți clic dreapta pe proiect, selectați "Proprietăți", apoi introduceți fila "Resurse". În Managerul de resurse, adăugați două imagini de câini. Este necesar ca cele două imagini să fie în același director în care este proiectul. În ambele imagini, câinele este prezentat fie spre stânga, fie spre dreapta.
Pasul 2
Faceți dublu clic pe fundalul formularului pentru a deschide procedura de gestionare a evenimentului Form_Load. Atribuiți imaginea câinelui care este descris în partea stângă la controlul imaginii. Câinele poate trece prin formă de la stânga la dreapta sau în direcția opusă. Astfel, există patru stări pentru câine: la stânga sau la dreapta și pentru a merge la stânga sau la dreapta. Introduceți următorul cod de enumerare pentru a defini cele patru stări de câine: Enum DogState FacingLeftWalkingLeft = 1 FacingLeftWalkingRight = 2 FacingRightWalkingRight = 3 FacingRightWalkingLeft = 4 End Enum
Pasul 3
Adăugați un cronometru pentru a schimba mișcarea câinelui făcând clic pe pictograma "Ceas" din bara laterală generală. Setați cronometrul pentru a activa o marcare la fiecare 100 de milisecunde. Setați starea inițială ca FacingLeftWalkingLeft și viteza de 10 pixeli pe pas folosind următorul cod: state = DogState.FacingLeftWalkingLeft speed = 10 DogImg.Image = My.Resources.Dog
Pasul 4
Deplasați controlul imaginii spre stânga cu viteză fixă și schimbați imaginea. Verificați locația controlului imaginii când se mișcă spre stânga sau spre dreapta. Asigurați-vă că imaginea nu părăsește formularul. Răsturnați imaginile atunci când ajungeți la capetele stânga sau dreapta. Aceasta se poate realiza prin următoarea clauză Cauză și Dacă:
Selectați Cazul cazului Case DogState.FacingLeftLeftLegs
DogImg.Left = DogImg.Left - viteză DogImg.Image = My.Resources.Dog2 Dacă DogImg.Left> 5 Atunci stat = DogState.FacingLeftRightLegs Alt domeniu = DogState.FacingRightLeftLegs Sfârșit Dacă
