[RaggiTech]

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

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

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

أولا تأثير 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 ومراعاة موقع الفورم للشاشة.


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