Dibandingkan dengan program terstruktur, Visual Basic menambahkan fungsi "metode" pada objek. Menguasai sepenuhnya "metode" yang berbeda dari properti objek ini sangat penting untuk pengembangan aplikasi visualisasi. Di bawah ini, ambil metode pemindahan VB4.0 sebagai contoh untuk mengilustrasikan penerapan metode ini dalam animasi.
Dalam contoh ini, kami ingin menggunakan metode pindah untuk menyelesaikan proses terbang kupu-kupu. Melalui interupsi pengatur waktu, pada interval tertentu (0,2 detik dalam contoh ini), posisi kupu-kupu dipindahkan di layar, dan bentuk kupu-kupu diubah (sayap melebar dan sayap ditarik), sehingga efek sementara penglihatan digunakan untuk melihat kupu-kupu menjadi hidup. Pergerakan posisi kupu-kupu diwujudkan dengan metode move. Format yang digunakan metode move adalah sebagai berikut:
Objek.bergerak ke kiri, atas
Diantaranya, kiri adalah koordinat horizontal batas kiri benda (sumbu x), dan atas adalah koordinat vertikal batas atas benda (sumbu Y). diberi nama utama.
Gambar sayap kupu-kupu yang terbentang dan terlipat disediakan oleh file bitmap bfly1.bmpbfly2.bmp, dan file bitmap terbang lainnya dapat diproduksi sesuai kebutuhan untuk membuat efek lebih realistis.
Dalam contoh ini, struktur bentuk dan properti setiap objek diatur sebagai berikut:
Pengaturan properti objek
Bentuk desain animasi penerbangan kupu-kupu keterangan
nama bingkai gambar utama
gambarbfly1
imageframenameopenwings
gambarbfly1
imageframenameclosewings
gambarbfly2
nama kotak perintahcommand1
keteranganKeluar&keluar
pengatur waktu1
interval200
Program terkait relatif sederhana, kodenya sebagai berikut:
Program interupsi pengatur waktu:
PrivateSubTimer-Timer()
StaticPickBmpAsInteger
Utama.PindahUtama.Kiri 20,Utama.Top-5
JikaPilihBmpLalu
Main.Picture=OpenWings.Picture'Menampilkan gambar kupu-kupu terbuka.
Kalau tidak
Main.Picture=CloseWings.Picture'Menampilkan gambar kupu-kupu yang tertutup.
AkhirJika
PickBmp=NotPickBmp'Alihkan nilainya.
Sub Akhir
Tombol keluar (exit) program :
PrivateSubCommand1-Klik()
Bongkar Saya
Akhir
Sub Akhir
Dengan cara ini, dengan menggunakan metode perpindahan VB dan properti objek lainnya, Anda dapat mencapai desain animasi yang lebih kompleks. ->