Jak tworzyć animacje w programie Visual Basic 6.0

Krok 1

Przejdź do "Start", a następnie "Wszystkie programy". Kliknij "Visual Basic 6.0". Następnie w "Plik", "Nowy" i wybierz "Aplikacja Windows" w oknie dialogowym Nowy projekt. Kliknij "Kontrola obrazu" i umieść ją w formularzu. Kliknij projekt prawym przyciskiem myszy, wybierz "Właściwości", a następnie przejdź do zakładki "Zasoby". W Menedżerze zasobów dodaj dwa obrazy psów. Konieczne jest, aby dwa obrazy znajdowały się w tym samym katalogu, w którym znajduje się projekt. Na obu obrazach pies jest zarysowany albo w lewo, albo w prawo.

Krok 2

Kliknij dwukrotnie tło formularza, aby otworzyć moduł obsługi zdarzeń Form_Load. Przypisz obraz psa, który jest zaznaczony po lewej stronie, do kontroli obrazu. Pies może przejść przez formularz od lewej do prawej lub w przeciwnym kierunku. Tak więc, dla psa istnieją cztery stany: na lewo lub na prawo i na lewo lub na prawo. Wprowadź następujący kod wyliczeniowy, aby zdefiniować cztery stany psów: Enum DogState FacingLeftWalkingLeft = 1 FacingLeftWalkingRight = 2 FacingRightWalkingRight = 3 FacingRightWalkingLeft = 4 End Enum

Krok 3

Dodaj zegar, aby zmienić ruch psa, klikając ikonę "Zegar" na ogólnym pasku bocznym. Ustaw timer, aby aktywował znak co 100 milisekund. Ustaw początkowy stan jako FacingLeftWalkingLeft i szybkość 10 pikseli na krok, używając następującego kodu: state = DogState.FacingLeftWalkingLeft speed = 10 DogImg.Image = My.Resources.Dog

Krok 4

Przesuń kontrolkę obrazu w lewo ze stałą prędkością i zmień obraz. Sprawdź położenie kontrolki obrazu, gdy przesuwa się w lewo lub w prawo. Upewnij się, że obraz nie opuszcza formularza. Odwróć obrazy, gdy dojdziesz do lewej lub prawej strony. Można to osiągnąć za pomocą następującej klauzuli Case i If-Else:

Wybierz stan sprawy Przypadek DogState.FacingLeftLeftLegs

DogImg.Left = DogImg.Left - speed DogImg.Image = My.Resources.Dog2 Jeśli DogImg.Left> 5 Następnie stan = DogState.FacingLeftRightLegs Else state = DogState.FacingRightLeftLegs End If