منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - تأثيرات احتراااااافية على البرنامج تمنحه منظر احترافي -أدخل وادعيلي-

كاتب الموضوع : محمد عوض السقا

بسم الله الرحمن الرحيم

إخواني وأنا أتصفح موقع أجنبي لقيت عدة تأثيرات رائعة جدا لتعملها على برنامج لم تكن لتتصور أنه يمكن عملها بالفيجوال بيسك ولكني رأيت أن أكتبها في المنتدى لأن معظم الأعضاء -وأنا منهم - لا يعول على المنظر العام للبرنامج بشكل كبير مع أنه ما يجذب المستخدم لبرنامجك.

أولا تأثير Fade أو التلاشي :
يمكن تطبيقه على دوت نت 2008 فقط

كود :

[color=#000000][COLOR=#0000bb][/color][color=#007700]For [/color][color=#0000bb]Fade [/color][color=#007700]= [/color][COLOR=#0000bb]0.0 To 1.1 Step 0.1 

            Me[/COLOR][color=#007700].[/color][color=#0000bb]Opacity [/color][color=#007700]= [/color][COLOR=#0000bb]Fade 

            Me[/COLOR][color=#007700].[/color][color=#0000bb]Refresh[/color][COLOR=#007700]() 

            [/COLOR][color=#0000bb]Threading[/color][color=#007700].[/color][color=#0000bb]Thread[/color][color=#007700].[/color][color=#0000bb]Sleep[/color][color=#007700]([/color][color=#0000bb]100[/color][COLOR=#007700]) 

        [/COLOR][COLOR=#0000bb]Next  

[/COLOR][/COLOR]

والكود ده ممكن تحطه في حدث Form_Load وسترى النتيجة
أما عكسه وعندما تريد وضعه في حدث الانهاء فاكتب الكود التالي:

كود :

[color=#000000][COLOR=#0000bb][/color][color=#007700]For [/color][color=#0000bb]Fade [/color][color=#007700]= [/color][color=#0000bb]1.1 To 0.0 Step [/color][color=#007700]-[/color][COLOR=#0000bb]0.1 

                Me[/COLOR][color=#007700].[/color][color=#0000bb]Opacity [/color][color=#007700]= [/color][COLOR=#0000bb]Fade 

                Me[/COLOR][color=#007700].[/color][color=#0000bb]Refresh[/color][COLOR=#007700]() 

                [/COLOR][color=#0000bb]Threading[/color][color=#007700].[/color][color=#0000bb]Thread[/color][color=#007700].[/color][color=#0000bb]Sleep[/color][color=#007700]([/color][color=#0000bb]100[/color][COLOR=#007700]) 

            [/COLOR][COLOR=#0000bb]Next  

[/COLOR][/COLOR]

ولكن لاحظ أنك عند اختفاء الفورم فهذا لا يعني أنه قد تم اغلاقه لذا يجب عليك أمر الانهاء في آخر الاجراء.
------------------------------------------------------------------------------------------------------

ثانيا تأثير السحب للفورم (يمكن تطبيقه في أي اصدار من الفيجوال بيسك حتى 6 ).

السحب للخارج:

كود :

[color=#000000][COLOR=#0000bb][/color][color=#007700]Do [/color][color=#0000bb]Until Me[/color][color=#007700].[/color][color=#0000bb]Height [/color][color=#007700]> [/color][COLOR=#0000bb]500 

            Me[/COLOR][color=#007700].[/color][color=#0000bb]Height [/color][color=#007700]= [/color][color=#0000bb]Me[/color][color=#007700].[/color][color=#0000bb]Height [/color][color=#007700]+ [/color][COLOR=#0000bb]1 

            Me[/COLOR][color=#007700].[/color][color=#0000bb]Refresh[/color][COLOR=#007700]() 

        [/COLOR][COLOR=#0000bb]Loop  

[/COLOR][/COLOR]

ولعكس الاجراء للسحب للداخل:

كود :

[color=#000000][COLOR=#0000bb] [/color][color=#007700]Do [/color][color=#0000bb]Until Me[/color][color=#007700].[/color][color=#0000bb]Height [/color][color=#007700]< [/color][COLOR=#0000bb]100 

            Me[/COLOR][color=#007700].[/color][color=#0000bb]Height [/color][color=#007700]= [/color][color=#0000bb]Me[/color][color=#007700].[/color][color=#0000bb]Height [/color][color=#007700]- [/color][COLOR=#0000bb]1 

            Me[/COLOR][color=#007700].[/color][color=#0000bb]Refresh[/color][COLOR=#007700]() 

        [/COLOR][COLOR=#0000bb]Loop  

[/COLOR][/COLOR]

لاحظ يمكنك تطبيق نفس الاجراءات على عرض الفورم بتبديل me.height الى me.width ومراعاة موقع الفورم للشاشة.

سبحان الله وبحمده سبحان الله العظيم

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

RaggiTech