يستغرق بدء تشغيل نظام تطبيق كبير وقتًا طويلاً، وسيختلف الوقت وفقًا لعدد عمليات التهيئة المطلوبة وسرعة نظام المستخدم، لذلك، يجب عرض نافذة التهيئة قبل عرض النافذة الرئيسية يبدو التطبيق أكثر جاذبية لأنه يمكن عرض بعض المعلومات بشكل مستمر للمستخدم عند تحميل البرنامج، ويمكن إنتاج تأثيرات بصرية جميلة. على سبيل المثال، يعرض كل من VB وDelphi نافذة البداية أمام الواجهة الرئيسية عند البدء.
----1. فيما يلي طريقة بسيطة لعرض دفقة شاشة الفلاش (الشعار):
optionexplicit
PRivatesubform_load()
'إظهار النافذة الرئيسية
me.show
"إظهار نافذة البداية."
frmsplash.show
أحداث
'إجراء تهيئة التطبيق
تهيئة
'أغلق نافذة البداية
com.unloadspalsh
endub
----يجب وضع رمز الإجراء هذا في نموذج بدء تشغيل التطبيق. تسمح طريقة العرض الأولى لنظام التشغيل Windows بعرض النموذج الرئيسي على الشاشة، وطريقة العرض التالية تعرض الشاشة الوامضة، وهو نموذج قمت بتصميمه باسم frmsplash. بعد استخدام طريقة العرض، استخدم وظيفة Doevents للتأكد من وميض جميع عناصره يتم رسم شكل الشاشة على الفور. تقوم وظيفة التهيئة بتنفيذ مهام تستغرق وقتًا طويلاً ويجب تنفيذها عند بدء تشغيل التطبيق، مثل تحميل البيانات من الملفات، وتحميل النماذج في الذاكرة، وما إلى ذلك. في هذه المرحلة كل شيء جاهز.
----2. قالب النموذج الوامض
----يحتوي VisualBasic على العديد من نماذج القوالب، أحدها هو شاشة الفلاش. لإضافة نموذج Splashscreen إلى المشروع، حدد AddForm من قائمة المشروع. حدد رمز SplashScreen في علامة التبويب New في مربع الحوار AddForm، ثم انقر فوق Open. تتم إضافة نموذج SplashScreen إلى المشروع.
----يُظهر التعليمة البرمجية التالية مثالاً لكيفية تخصيص قالب نموذج SplashScreen:
optionexplicit
Privatesubform_load()
frmsplash.lbllicenseto=app.legaltrademarks
frmsplash.lblcompanyproduct=app.productname
frmsplash.lblplatform = "window98"
frmsplash.lblcopyright=app.legalcopyright
frmsplash.lblcompany=app.companyname
frmsplash.lblwarning="تحذير: هذا البرنامج محمي"&_
"بموجب قانون حقوق الطبع والنشر، لذا لا تنسخ"
frmsplash.show
أحداث
تهيئة
unloadfrmsplash
endub
----لاحظ أنه يتم استخدام كائن التطبيق هنا، والذي يمكنه الوصول إلى معلومات حول تطبيقك؛
---- رمز الوحدة النمطية لرمز قالب نموذج شاشة البداية هو كما يلي:
PrivateSubForm_keypress(keyasciiasinteger)
unloadme
إندسوب
Privatesubform_load()
lblversion.caption="version"&app.major&".
"app.minor"."app.revision
lblproductname.caption=app.title
endub
Privatesubframe1_click()
unloadme
EndSub->