Loading halaman Tutorial Visual Basic, Delphi, PHP - Calon Programer : 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

Tagg :

7 Reply :

  1. wuih....muatef gan...jadi pengen nich belajar vb

    BalasHapus
  2. thank gan atas ketersedianna tuk belajar bersama

    BalasHapus
  3. mau tanya, klo msuk'n fto k program gmna y... ???

    BalasHapus
  4. @Anonim Silahkan kunjungi
    http://www.indrawan21.com/2012/06/menyimpan-foto-ke-database-di-visual.html

    BalasHapus
  5. Cara membuat kupu kupunya terbang ke semua sisi gimana??

    BalasHapus

Jika ada pertanyaan atau request,Komentar pada tab blogger akan lebih memudahkan saya untuk membalasnya karena lebih mudah melakukan pengecekan komentar.