سورس کدهای ویژوال بیسیک - دادن افکت به فرم

با تابع Animate Window به راحتی می توانیم به یک پنجره (و اشیاء روی فرم) افکت های مختلف اعمال کنیم.

ابتدا در قسمت جنرال فرم تابع Animate Window همراه ثوابت آن را Declare می کنیم.

Private Const AW_HOR_POSITIVE=&H1

Private Const AW_HIDE = &H10000

Private Const AW_HOR_NEGATIVE=&H2

Private Const AW_VER_POSITIVE=&H4

Private Const AW_CENTER=&H10

Private Declare function AnimateWindow Lib "user32" (ByVal hWnd as long, ByVal dwTime as long, ByVal dwFlags as long) as Boolean

پس از Declare کردن تابع و ثوابت بالا در Form_Load دستورات زیر را وارد میکنیم.

AnimateWindow Me.hWnd, 5000, AW_CENTER

Me.Cls

این کد باعث می شود فرم از مرکز به سمت خارج باز شود.در رویداد Form_UnLoad نیز دستورات زیر را وارد می کنیم :

AnimateWindow Me.hWnd, 2500, AW_VER_POSITIVE or AW_HOR_NEGATIVE OR AW_HIDE

Set Form1 = Nothing

توجه1: هنگامی که در رویداد Unload افکتی میدهیم حتما باید مقادیر مورد نظر با ثابت AW_HIDE توسط OR با هم ترکیب شوند.

توجه2: برای دیدن افکت هنگام خروج باید ویژوال بیسیک در حالت کمینه باشد.