----قرأ المؤلف من حين لآخر مقالًا في "عالم الكمبيوتر" حول تنفيذ تلاشي الأحرف وتلاشيها في VISUALFOXPRO. مستوحاة من هذا، أشار المؤلف إلى المقالة الأصلية وكتب شخصية مماثلة تتلاشى وتتلاشى-. في استخدام برنامج Visual Basic 4.0 لتوضيح القواسم المشتركة بين أدوات التطوير المرئي من Microsoft: نفس واجهة المستخدم الرسومية (GUI) أو ما شابه ذلك، والميزات الموجهة للكائنات والموجهة بالحدث، والوظائف نفسها أو وظائف مماثلة، وما إلى ذلك. تسمح هذه الميزة لمطوري البرامج ومصمميها بالتعلم من التطبيقات التي تم تطويرها باستخدام أدوات تصور مختلفة من Microsoft وإجراء عملية زرع ملائمة، مما يؤدي إلى تقصير دورة التطوير. وفي الوقت نفسه، يمكن أن يلعب هذا دورًا في تعلم لغة الكمبيوتر.
----يمكن تحقيق وظيفة التلاشي والتلاشي للأحرف عن طريق التغيير المستمر لمقدمة عنصر تحكم التسمية (LABEL). التغييرات في مقدمة عنصر التحكم،
يمكن ضبطها باستخدام خاصية المقدمة لعنصر تحكم التسمية في وقت التصميم، أو يمكن تحقيقها في البرنامج عن طريق تعيين قيم ألوان مختلفة لخاصية المقدمة. يتم توفير اللون بواسطة وظيفة RGB (يحتوي VisualFoxpro أيضًا على هذه الوظيفة). يتم استخدام المقاطعة التي تم إنشاؤها بواسطة عنصر التحكم في المؤقت لتغيير قيمة معلمة RGB بشكل مستمر، بحيث يمكن تغيير مقدمة الحرف وفقًا لذلك، مما يحقق غرض التلاشي للداخل والخارج.
---- البرنامج التالي المكتوب في Visual Basic 4.0 يكمل وظيفتين: (1) التلاشي داخل وخارج الأحرف، وهناك 256*256*256 تغيير اللون هنا يتم تحديد التغيير من الرمادي إلى الأحمر فقط؛
(2) تنتقل الأحرف من الصغير إلى الكبير عند التلاشي، ومن الكبير إلى الصغير عند التلاشي. بالإضافة إلى ذلك، يمكن نقل عملية تنفيذ هذا البرنامج بشكل كامل وسهل إلى اللغات المرئية مثل VisualC وVisualjava.
----1. ابدأ تشغيل VisualBasic4.0 وقم بإنشاء نموذج تلقائيًا، والقيمة الافتراضية هي FORM1.
----2. قم بتعيين خصائص النموذج كما يلي:
الاسم: العرض التوضيحي
تسمية توضيحية: يطبق VB تلاشي الأحرف وتلاشيها
لون الخلفية: &H00C0C0C0، أي أن الخلفية رمادية
----3. قم بتعريف متغيرات النموذج التالية في النموذج DEMO، أي تحديد معلمات اللون R وG وB في عملية الإعلان العام.
DimrAsInteger
DimgAsInteger
DinbAsInteger
----4. قم بتعيين القيمة الأولية للون الحرف أثناء عملية تحميل النموذج، أي اللون الرمادي
لون:
PrivateSubForm_Load()
ص = 192
ز = 192
ب = 192
EndSub
----5. قم بإضافة تسمية إلى النموذج التجريبي وضبط خصائصه على النحو التالي:
الاسم: التسمية 1
التسمية التوضيحية: نظام تداول السندات Harbin SDIC
الحجم التلقائي: TRUE، يُستخدم لتحقيق تغيير حجم الأحرف
نمط الخلفية: 0-شفاف، أي شفاف
الخط: الخط هو نص رسمي، وتم تحديد الحجم على أنه 8
----6. قم بإضافة عنصر تحكم مؤقت إلى النموذج لإكمال وظيفة التلاشي.
الاسم: أوتيمر
الفاصل الزمني: 50، مما يعني أنه ينقطع مرة كل ثانية ويتغير لونه مرة واحدة.
----7. أضف مؤقتًا آخر لإكمال وظيفة التلاشي:
الاسم: المؤقت
الفاصل الزمني: 50
----8. أضف الكود التالي إلى عملية TIMER الخاصة بـ OUTTIMER:
PrivateSubOuttimer_Timer()
إذا<255ثم
ص = ص 1
آخر
ص = 255
EndIf
إذا> 3ثم
ز=ز-3
آخر: ز = 0
EndIf
إذاب>3ثم
ب=ب-3
آخر: ب = 0
EndIf
Label1.FontSize=Label1.FontSize 0.75
Label1.ForeColor=RGB(r,g,b)
IfLabel1.FontSize>=72ثم
Outtimer.Enabled=False
Intimer.Enabled=صحيح
EndIf
EndSub
----9. أضف الكود التالي إلى INTIMER:
PrivateSubIntimer_Timer()
إذا>192ثم
ص=ص-1
آخر
ص = 192
EndIf
إذا<192ثم
ز = ز 3
آخر: ز = 192
EndIf
إذاب<192ثم
ب=ب3
آخر: ب = 192
EndIf
Label1.FontSize=Label1.FontSize-0.75
Label1.ForeColor=RGB(r,g,b)
IfLabel1.FontSize<=8ثم
Intimer.Enabled=خطأ
Outtimer.Enabled=صحيح
EndIf
EndSub
---- بعد الانتهاء من الخطوات المذكورة أعلاه، اضغط على زر التشغيل، يمكنك رؤية الكلمات "Harbin SDIC Securities Trading System" معروضة في النموذج من الصغير إلى الكبير، من الضحل إلى العميق عندما يصل الخط إلى الحجم المحدد يتم الوصول إليه، ويختفي تدريجيًا في النموذج لتحقيق وظيفة التلاشي والتلاشي.
->