Cara Membuat animasi vb Bag.3

Drag dan drop jendela aplikasi umum di mana Anda dapat drag dan drop objek seperti file ke folder atau ke dalam recycle bin. Kemampuan ini dapat dengan mudah diprogram dalam visual basic. Pada contoh berikut, saya membuat simulasi menyeret benda-benda ke dalam recycle bin, kemudian turun api dan membakar mereka pergi.

Dalam program ini, saya meletakkan 6 gambar pada form, salah satu dari mereka adalah recycle bin, yang lain adalah recycle bin terbakar, satu lagi adalah api, dan tiga lebih gambar. Selain itu, mengatur dragmode milik semua gambar (termasuk api) yang akan diseret ke 1 (Otomatis) sehingga menyeret yang diaktifkan, dan mengatur properti terlihat dari recycle bin pembakaran untuk palsu saat start-up. Selain itu, label tag api seperti api di windows nya properti. Jika Anda ingin memiliki efek menyeret lebih baik, Anda perlu memuat sebuah ikon yang sesuai di bawah sifat dragIcon bagi mereka gambar yang akan diseret, sebaiknya ikon harus sama sebagai gambar sehingga ketika Anda tarik gambar, itu seperti Anda menyeret gambar bersama.

Prosedur acara penting dalam program ini adalah sebagai berikut:

1. Private Sub Image4_DragDrop(Source As Control, X As Single, Y As Single)  
2.   
3. Source.Visible = False  
4. If Source.Tag = "Fire" Then  
5. Image4.Picture = Image5.Picture  
6. End If  
7.   
8. End Sub  

Sumber mengacu pada gambar yang akan diseret. Menggunakan kode Source.Visible = False berarti akan hilang setelah diseret ke recycle bin (Image4). Jika sumber ialah neraka, maka recycle bin akan berubah menjadi recycle bin terbakar, yang dicapai dengan menggunakan kode Image4. gambar = Image5.Picture, di mana gambar 5 adalah recycle bin terbakar.

Animasi untuk gerakan lengkap

Sejauh ini contoh-contoh dari animasi yang ditampilkan dalam pelajaran 23 hanya melibatkan pergerakan gambar statis. Dalam pelajaran itu, Anda akan dapat membuat animasi yang benar mana menyelesaikan tindakan dalam siklus yang lengkap, misalnya, kupu-kupu mengepakkan sayapnya. Pada contoh berikut, saya menggunakan bingkai foto delapan kupu-kupu yang menampilkan kupu-kupu mengepakkan sayap pada tahapan yang berbeda.



Anda benar-benar dapat menyalin gambar di atas dan menggunakannya dalam program anda. Anda harus menempatkan semua gambar di atas tumpang tindih satu sama lain, membuat image1 terlihat saat semua gambar lainnya tak terlihat saat start-up. Selanjutnya, memasukkan tombol perintah dan label sebagai Animasikan. Klik pada tombol perintah dan kunci dalam laporan yang membuat gambar muncul dan menghilang berturut-turut dengan menggunakan sifat image.visible = = true dan image.visible palsu. Jika saya menggunakan ..... Kemudian dan elseif untuk mengontrol aliran program. Ketika Anda menjalankan program, Anda harus bisa mendapatkan animasi berikut.

1. Private Sub Command1_Click()  
2.   
3. If Image1.Visible = True Then  
4. Image1.Visible = False  
5.  Image2.Visible = True  
6. ElseIf Image2.Visible = True Then  
7. Image2.Visible = False  
8. Image3.Visible = True  
9. ElseIf Image3.Visible = True Then  
10. Image3.Visible = False  
11. Image4.Visible = True  
12. ElseIf Image4.Visible = True Then  
13. Image4.Visible = False  
14. Image5.Visible = True  
15. ElseIf Image5.Visible = True Then  
16. Image5.Visible = False  
17. Image6.Visible = True  
18. ElseIf Image6.Visible = True Then  
19. Image6.Visible = False  
20. Image7.Visible = True  
21. ElseIf Image7.Visible = True Then  
22. Image7.Visible = False  
23. Image8.Visible = True  
24. ElseIf Image8.Visible = True Then  
25. Image8.Visible = False  
26. Image1.Visible = True  
27. End If  
28.   
29. End Sub  

Jika Anda ingin menciptakan efek kupu-kupu mengepakkan sayap dan terbang pada saat yang sama, maka Anda bisa menggunakan sifat Kiri dan Top dari sebuah objek, seperti yang digunakan dalam contoh pelajaran 23. Berikut adalah contoh dari sebuah subrutin di mana kupu-kupu mengepakkan sayap akan dan bergerak ke atas pada waktu yang sama. Anda juga dapat menulis subrutin kupu-kupu yang bergerak ke kiri, ke kanan dan ke bawah.

1. Sub move_up( )  
2.   
3. If Image1.Visible = True Then  
4. Image1.Visible = False  
5. Image2.Visible = True  
6. Image2.Top = Image2.Top - 100  
7.   
8. ElseIf Image2.Visible = True Then  
9. Image2.Visible = False  
10. Image3.Visible = True  
11. Image3.Top = Image3.Top - 100  
12.   
13. ElseIf Image3.Visible = True Then  
14. Image3.Visible = False  
15. Image4.Visible = True  
16. Image4.Top = Image4.Top - 100  
17. ElseIf Image4.Visible = True Then  
18. Image4.Visible = False  
19. Image5.Visible = True  
20. Image5.Top = Image5.Top - 100  
21. ElseIf Image5.Visible = True Then  
22. Image5.Visible = False  
23. Image6.Visible = True  
24. Image6.Top = Image6.Top - 100  
25.   
26. ElseIf Image6.Visible = True Then  
27. Image6.Visible = False  
28. Image7.Visible = True  
29. Image7.Top = Image7.Top - 100  
30.   
31. ElseIf Image7.Visible = True Then  
32. Image7.Visible = False  
33. Image8.Visible = True  
34. Image8.Top = Image8.Top - 100  
35. ElseIf Image8.Visible = True Then  
36. Image8.Visible = False  
37. Image1.Visible = True  
38. Image1.Top = Image1.Top - 100  
39. End If  
40.   
41. End Sub  

---

Klik Like/share jika anda menyukai tulisan Share

    Syarat Tukar Link/Banner      Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.      Terdaftar      Terdapat meta tag search engine pada template.      Terindeks      Halaman blog muncul pada hasil pencarian Google...