Visual Basic 6.0'da animasyonlar nasıl yapılır

1. Adım

"Başlat" a, ardından "Tüm Programlar" a gidin. "Visual Basic 6.0" 'ı tıklatın. Ardından "Dosya", "Yeni" ve Yeni Proje iletişim penceresinde "Windows Uygulaması" nı seçin. "Görüntü kontrolü" üzerine tıklayın ve forma yerleştirin. Projeyi sağ tıklayın, "Özellikler" i seçin ve ardından "Kaynaklar" sekmesini girin. Kaynak Yöneticisi'nde iki köpek resmi ekleyin. İki görüntünün, projenin bulunduğu dizinde olması gerekir. Her iki resimde de, köpek ya sola ya da sağa doğru çizilir.

2. Adım

Form_Load olay işleyicisini açmak için formun arka planını çift tıklatın. Solda özetlenen köpeğin görüntüsünü görüntü kontrolüne atayın. Köpek formdan soldan sağa veya ters yönde yürüyebilir. Böylece, köpek için dört durum vardır: sola veya sağa, sola veya sağa doğru yürüyün. Dört köpek durumunu tanımlamak için aşağıdaki numaralandırma kodunu girin: Enum DogState FacingLeftWalkingLeft = 1 FacingLeftWalkingRight = 2 FacingRightWalkingRight = 3 FacingRightWalkingLeft = 4 End Enum

3. adım

Genel kenar çubuğundaki "Saat" simgesine tıklayarak köpeğin hareketini değiştirmek için bir zamanlayıcı ekleyin. Her 100 milisaniyede bir işareti etkinleştirmek için zamanlayıcıyı ayarlayın. Aşağıdaki kodu kullanarak başlangıç ​​durumunu FacingLeftWalkingLeft ve adım başına 10 piksel olarak ayarlayın: state = DogState.FacingLeftWalkingLeft speed = 10 DogImg.Image = My.Resources.Dog

4. Adım

Görüntü kontrolünü sabit hız ile sola hareket ettirin ve görüntüyü değiştirin. Görüntü kontrolünün konumunu sola veya sağa hareket ettiğinde kontrol edin. Resmin formu terk etmediğinden emin olun. Sol veya sağ uçlara ulaştığınızda görüntüleri çevirin. Bu, aşağıdaki Vaka ve If-Else cümlesi ile sağlanabilir:

Durum durumunu göster Case DogState.FacingLeftLeftLegs

DogImg.Left = DogImg.Left - speed DogImg.Image = My.Resources.Dog2 DogImg.Left> 5 durumunda ise State = DogState.FacingLeftRightLegs Else state = DogState.FacingRightLeftLegs End If