:: امروز می خواهم چگونگی ساخت یک Splash Screen برای برنامه هایی که مینویسیم را براتون شرح بدم . خوب باز هم باید توابع مورد نیاز را فراخوانی کرده و همچنین ثوایت مورد نیاز را تعریف کنیم
ConstLWA_COLORKEY=&H1
ConstLWA_ALPHA=&H2
ConstGWL_EXSTYLE=(-20)
ConstWS_EX_LAYERED=&H80000
PrivateDeclareFunctionGetWindowLongLib"user32"Alias_
"GetWindowLongA"(ByValhWndAsLong,ByValnIndexAsLong)AsLong
PrivateDeclareFunctionSetWindowLongLib"user32"Alias_
"SetWindowLongA"(ByValhWndAsLong,ByValnIndexAsLong,ByVal_
dwNewLongAsLong)AsLong
PrivateDeclareFunctionSetLayeredWindowAttributesLib_
"user32"(ByValhWndAsLong,ByValcrKeyAsLong,ByValbAlpha_
AsByte,ByValdwFlagsAsLong)AsLong
نوع نمایش این Splash Screen به گونه ای است که میزان شفافیت فرم آن از 0 به 255 رسیده و دوباره کاهش یافته به صفر می رسد (یا بعبارت دیگر از حالت نامرئی به شفافیت کامل رسیده و دوباره از شفافیت آن کاسته شده و نامرئی می شود ) . خوب تنها Control که برای این برنامه نیاز داریمTimer می باشد . کدی که در Form_Load می بینید باعث می شود که فرم در ابتدای امر نامرئی باشد چون مقدار bAlfa آنرا 0 داده ام
اگر قبلا ثبت نام کرديد ميتوانيد از فرم زير وارد شويد و مطلب رو مشاهده نماييد !