----في عدد كبير من البرامج التطبيقية، بعد بدء تشغيل البرنامج، تعرض الشاشة معلومات لبضع ثوان، مع إدراج المنتج والنظام الأساسي ورقم الإصدار ومعلومات حقوق الطبع والنشر، وهو ما يسمى "الشاشة الوامضة عند بدء تشغيل البرنامج" ". وكيف يتم تنفيذها في فيجوال بيسك؟ تتناول هذه المقالة إحدى الطرق لإنشاء شاشة البداية وجعلها ملونة. تأكد من أنه عند بقاء شاشة بدء التشغيل على سطح المكتب، فإن النص "يتدفق" على سطح المكتب (مثل شاشة بدء تشغيل "Orient Express"). وفي الوقت نفسه، يمكن أيضًا تحقيق تأثيرات مثل الوميض وتغيير لون النص المتدفق. إذا قمت بتعيين الشاشة في الجزء السفلي من النص، فيمكن أن يتدفق النص من الشاشة. بعد اكتمال العرض واختفائه من أعلى الشاشة، يمكن أن يرتفع مرة أخرى من أسفل الشاشة ويظهر مرة أخرى في حلقة. بعد هذا التصميم، يمكن استخدامه في أوصاف البرامج وقوائم المؤلفين وما إلى ذلك لإثراء عرض شاشة البرنامج.
---- خذ المشروع 1، ونموذجي Form1 وForm2، وقم بتعيين Form1 كنموذج بدء التشغيل. قم بإنشاء Frame1 وTimer1 وTemer2 جديد في Form2، وقم بتعيين خاصية Caption الخاصة بـ Frame1 إلى قيمة فارغة لتشكيل حد جميل ثلاثي الأبعاد. تم تعيين الخصائص الممكّنة لـ Timer1 وTemer2 على True. أنشئ Picture1 على Frame1 واضبط Picture1 على الحجم المناسب. قم بتعيين خاصية ScaleMode من Form1 إلى 1-Twip وخاصية StartUpPosition من Form2 إلى 2-CenterScreen (محاذاة إلى الوسط). للتأكد من أن Form2 لا يعرض "شريط الوصف الأزرق" في أعلى النموذج، قم بتعيين خاصية Caption إلى قيمة فارغة وخاصية ControlBox إلى False. قم بإنشاء تسمية Label1 على Picture1 واضبط BackStyle على 0 (شفاف). املأ النص "المؤلف: الآنسة جيانغ شيويه من شنيانغ" في سمة التسمية التوضيحية الخاصة بـ Label1 لسهولة المراقبة. ضبط حجم النص ولونه. يمكنك تعيين معلومات التخطيط بحرية في النموذج Form2.
---- رمز النموذج 1 هو كما يلي:
PRivateSubForm_Load()
Form1.Visible=0'يجعل النموذج Form1 غير مرئي
Form2.إظهار عرض النموذج Form2
EndSub
رموز كل عنصر تحكم في Form2 هي كما يلي:
خيار صريح
DimStep1,Step2,Step3AsInteger
DimZfAsString
DimIAsInteger
PrivateSubForm_Click()
'عند النقر فوق Form2، قم بإنهاء تنفيذ Form2،
عرض النموذج Form1 وإغلاق Timer وTimer1.
UnloadMe
Form1.Show
Timer1.Enabled=خطأ
Timer2.Enabled=خطأ
EndSub
PrivateSubForm_Load()
Picture1.Picture=LoadPicture
("c:/windows/Clouds.bmp")'اختر صورة
Timer1.Interval=80 خطوة زمنية
Timer2.Interval=50
EndSub
PrivateSub
Frame1_Click()' عند النقر فوق المنطقة الموجودة داخل إطار التحكم Frame1،
قم بإنهاء تنفيذ النموذج Form2، وعرض النموذج Form1، وأغلق Timer وTimer1.
UnloadMe
Form1.Show
Timer1.Enabled=خطأ
Timer2.Enabled=خطأ
EndSub
PrivateSub
الصورة 1_النقر ()
'عند النقر فوق المنطقة الموجودة داخل Picture1، قم بإنهاء تنفيذ Form2،
عرض النموذج Form1 وإغلاق Timer وTimer1.
UnloadMe
Form1.Show
Timer1.Enabled=خطأ
Timer2.Enabled=خطأ
EndSub
PrivateSubTimer1_Timer()
يستدعي ColorLabel1,15,13,9 اللون المحول
أنا = أنا 1
إذا كنت> 50، يمكن تغيير حجم وقت بقاء نموذج Form2
UnloadMe
Form1.Show
Timer1.Enabled=خطأ
Timer2.Enabled=خطأ
EndIf
EndSub
اللون الفرعي (CtrlAsControl، color1AsInteger،
color2AsInteger,color3AsInteger)'اختر اللون
IfVal(Ctrl.Tag)=color1ثم
Ctrl.Tag=color2
ElseIfVal(Ctrl.Tag)=color2Then
Ctrl.Tag=color3
ElseIfVal(Ctrl.Tag)=color3Then
Ctrl.Tag=color1
آخر
Ctrl.Tag=color1
EndIf
Ctrl.ForeColor=QBColor(Ctrl.Tag)
EndSub
يتحكم PrivateSubTimer2_Timer()' في موضع حركة النص وسرعتها
الخطوة 1 = 1800: الخطوة 2 = 4500: الخطوة 3 = 40
IfLabel1.Top<-Step1-Label1.TopThen
Label1.Top=Label1.Top Step2
EndIf
Label1.Top=Label1.Top-Step3
EndSub
----يمكنك ضبط قيم Timer1.Interval وTimer2.Interval، التي تحدد سرعة تغيير لون النص وسرعة تدفق النص على التوالي؛ وضبط Step1 وStep2 على القيم المناسبة وفقًا للنموذج والتحكم الشروط؛ الخطوة 3 هي خطوة الانتقال إلى النص؛ تغيير لون تحويل النص عن طريق تغيير قيم I، J، K في عبارة ColorLabel1، I، J، K. تم تنفيذه تحت VisualBasic5.0 الصيني. ->