เมื่อเปรียบเทียบกับโปรแกรมที่มีโครงสร้าง Visual Basic จะเพิ่มฟังก์ชัน "วิธีการ" ของวัตถุ การเรียนรู้ "วิธีการ" นี้ซึ่งแตกต่างจากคุณสมบัติของวัตถุอย่างเต็มที่นั้นมีความสำคัญอย่างยิ่งต่อการพัฒนาแอปพลิเคชันการแสดงภาพ ด้านล่าง ใช้วิธีการย้ายของ VB4.0 เป็นตัวอย่างเพื่อแสดงการประยุกต์ใช้วิธีนี้ในแอนิเมชั่น
ในตัวอย่างนี้ เราต้องการใช้วิธีการย้ายเพื่อทำให้กระบวนการบินของผีเสื้อเสร็จสมบูรณ์ ด้วยการหยุดชะงักของตัวจับเวลา ในช่วงเวลาหนึ่ง (0.2 วินาทีในกรณีนี้) ตำแหน่งของผีเสื้อจะถูกย้ายบนหน้าจอ และรูปร่างของผีเสื้อจะเปลี่ยนไป (กางและถอยปีก) เพื่อให้ผลกระทบชั่วคราวของ วิสัยทัศน์ใช้ในการเห็นฉากการบินของผีเสื้อ การเคลื่อนที่ของตำแหน่งของผีเสื้อทำได้โดยวิธีย้าย รูปแบบที่ใช้โดยวิธีย้ายมีดังนี้:
Object.moveleft,ด้านบน
ด้านซ้ายคือพิกัดแนวนอนของขอบเขตด้านซ้ายของวัตถุ (แกน x) และด้านบนคือพิกัดแนวตั้งของขอบเขตด้านบนของวัตถุ (แกน Y) ในตัวอย่างนี้ กล่องวัตถุ (กล่องรูปภาพ) มีชื่อว่าหลัก
รูปภาพของปีกผีเสื้อที่กางและพับนั้นจัดทำโดยไฟล์บิตแมป bfly1.bmpbfly2.bmp และไฟล์บิตแมปการบินอื่นๆ สามารถสร้างได้ตามต้องการเพื่อทำให้เอฟเฟ็กต์ดูสมจริงยิ่งขึ้น
ในตัวอย่างนี้ โครงสร้างแบบฟอร์มและคุณสมบัติของแต่ละออบเจ็กต์ได้รับการตั้งค่าดังนี้:
การตั้งค่าคุณสมบัติของวัตถุ
คำบรรยายแบบฟอร์มการออกแบบแอนิเมชั่นการบินของผีเสื้อ
ชื่อกรอบรูปภาพ main
รูปภาพbfly1
ชื่อกรอบรูปภาพopenwings
รูปภาพbfly1
imageframenameclosewings
รูปภาพbfly2
กล่องคำสั่ง namecommand1
คำบรรยายE&xit
ชื่อตัวจับเวลาtimer1
ช่วงเวลา200
โปรแกรมที่เกี่ยวข้องนั้นค่อนข้างง่าย รหัสมีดังนี้:
โปรแกรมขัดจังหวะตัวจับเวลา:
PRivateSubTimer-ตัวจับเวลา ()
StaticPickBmpAsInteger
Main.MoveMain.ซ้าย 20,Main.Top-5
ถ้าเลือกBmpแล้ว
Main.Picture=OpenWings.Picture'Displaystheopenbutterflypicture.
อื่น
Main.Picture=CloseWings.Picture'แสดงภาพปิดผีเสื้อ
สิ้นสุดถ้า
PickBmp=NotPickBmp'สลับค่า
สิ้นสุดย่อย
โปรแกรมปุ่มออก (ออก):
PrivateSubCommand1-คลิก ()
ยกเลิกการโหลดฉัน
จบ
สิ้นสุดย่อย
ด้วยวิธีนี้ การออกแบบแอนิเมชั่นที่ซับซ้อนมากขึ้นสามารถทำได้โดยใช้วิธีการย้ายของ VB และคุณสมบัติของวัตถุอื่นๆ -