بالمقارنة مع البرامج المنظمة، يضيف Visual Basic وظيفة "الأسلوب" للكائنات. يعد إتقان هذه "الطريقة" التي تختلف عن خصائص الكائن بشكل كامل أمرًا في غاية الأهمية لتطوير تطبيقات التصور. أدناه، خذ طريقة النقل الخاصة بـ VB4.0 كمثال لتوضيح تطبيق هذه الطريقة في الرسوم المتحركة.
في هذا المثال، نريد استخدام طريقة النقل لإكمال عملية طيران الفراشة. من خلال انقطاع المؤقت، على فترات معينة (0.2 ثانية في هذا المثال)، يتم تحريك موضع الفراشة على الشاشة، ويتغير شكل الفراشة (انتشار الأجنحة وتراجع الأجنحة)، بحيث يتم التأثير المؤقت يتم استخدام الرؤية لرؤية الفراشة تنبض بالحياة في مشهد الطيران. يتم تحقيق حركة موضع الفراشة من خلال طريقة النقل. التنسيق المستخدم في طريقة الحركة هو كما يلي:
Object.moveleft، أعلى
من بينها، اليسار هو الإحداثي الأفقي للحد الأيسر للكائن (المحور السيني)، والأعلى هو الإحداثي الرأسي للحد العلوي للكائن (المحور ص). في هذا المثال، مربع الكائن (imagebox). يدعى الرئيسي.
يتم توفير صورة أجنحة الفراشة المنتشرة والمطوية بواسطة ملف الصورة النقطية bfly1.bmpbfly2.bmp، ويمكن إنتاج ملفات الصور النقطية الطائرة الأخرى حسب الحاجة لجعل التأثير أكثر واقعية.
في هذا المثال، يتم تعيين بنية النموذج وخصائص كل كائن على النحو التالي:
إعدادات خصائص الكائن
تصميم الرسوم المتحركة لنموذج التسمية التوضيحية لرحلة الفراشة
اسم إطار الصورة الرئيسي
photobfly1
imageframenameopenwings
photobfly1
imageframenameclowings
photobfly2
اسم مربع الأوامرcommand1
التسمية التوضيحية&الخروج
timernametimer1
الفاصل الزمني200
البرنامج ذو الصلة بسيط نسبيًا، والكود هو كما يلي:
برنامج مقاطعة الموقت:
PRivateSubTimer-Timer()
StaticPickBmpAsInteger
Main.MoveMain.Left 20، Main.Top-5
IfPickBmpThen
Main.Picture=OpenWings.Picture'يعرض صورة الفراشة المفتوحة.
آخر
Main.Picture=CloseWings.Picture'يعرض صورة الفراشة المغلقة.
EndIf
PickBmp=NotPickBmp'Togglethevalue.
EndSub
برنامج زر الخروج (الخروج):
PrivateSubCommand1-Click()
UnloadMe
نهاية
EndSub
بهذه الطريقة، باستخدام طريقة النقل الخاصة بـ VB وخصائص الكائن الأخرى، يمكنك تحقيق تصميم رسوم متحركة أكثر تعقيدًا. ->