تبلیغات
پرتال تخصصی کامپیوتر - آموزش طراحی اسپلش اسکرین (splash screen)
 
پرتال تخصصی کامپیوتر
مرجع مقالات شبکه و برنامه نویسی و دانستنی های کامپیوتری و مطالب آموزشی ، طراحی وب
درباره وبلاگ


سرور کسی نیست جز خدای بخشنده و مهربان

اولین پایگاه آموزشی شهرستان گچساران با 5 سال سابقه فعالیت

این وب سایت ، فضایی است برای انتشار لینک‌های مفید؛ معرفی هرچه که خواندنی، دیدنی یا شنیدنی ا‌ست. این وب سایت به هدف آگاهی‌رسانی و بازتاب‌دادنِ مطالب خواندنی در فضای رایانه‌ای شکل گرفته است. "گچساران18"‌ یک نهاد یا یک کانون نیست؛ تنها یک "وب سایت اموزشی" ‌است و کم‌ترین تعهدی به هیچ‌یک از نهادها، گروه‌ها، اشخاص و تفکرها ندارد. این وبلاگ، به‌طور مستقل و بدون صافی عمل می‌کنند و طبیعی است که هر کس سلیقه‌ی خود را در انتخاب مطالب در پیش گیرد. این کار ، نماینده‌ی هیچ تشکّل و اندیشه ویژه‌ی سیاسی، فرهنگی یا قومی نیست. فقط معرف شهر گچساران به بازدید کننده است .

___________________________

انجام كلیه پروژه های دانشجوی در حداقل زمان ممکن

سفارش برنامه نویسی (دانشجویی ، كاربردی ) پذیرفته می شود .

پیشرفته ، متوسط ، مقدماتی


سفارش حضوری :
آدرس: شهرستان گچساران/ بلوار ولی عصر(خیابان شیراز)/ پاساژ گلستان/ مركز رایانه آرمیتا

سفارش تلفنی :
همراه : ۰۹۳۶۶۴۰۲۱۶۸
2230505 - 0742

سفارش اینترنتی :
Esmail.hahsemi@gmail.com
Esmail.hashemi@yahoo.com


با کمال تشکر مدیریت گچساران 18 (اسماعیل هاشمی - دانشجوی كامپیوتر دانشگاه آزاد گچساران)

مدیر وبلاگ : اسماعیل هاشمی
نویسندگان
آمار وبلاگ
  • کل بازدید :
  • بازدید امروز :
  • بازدید دیروز :
  • بازدید این ماه :
  • بازدید ماه قبل :
  • تعداد نویسندگان :
  • تعداد کل پست ها :
  • آخرین بازدید :
  • آخرین بروز رسانی :

اسپلش اسکرین ( Splash Screen ) چسیت ؟

حتما شما دیده اید که وقتی می خواهید برنامه هایی شبیه ورد را باز نمایید ، یک صفحه کوچک می بینید که ظاهر می شود و پس از آن برنامه ورد اجرا می گردد . ما می خواهیم برای برنامه خودمان این صفحه را ایجاد نماییم .

امروز می خواهم چگونگی ساخت یک Splash Screen برای برنامه هایی که مینویسیم را براتون شرح بدم . خوب باز هم باید توابع مورد نیاز را فراخوانی کرده و همچنین ثوایت مورد نیاز را تعریف کنیم .

Const LWA_COLORKEY = &H1
Const LWA_ALPHA =
&H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED =
&H80000
Private Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As
Long
Private
Declare Function SetWindowLong Lib "user32" Alias _
"SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal _
dwNewLong As Long) As
Long
Private
Declare Function SetLayeredWindowAttributes Lib _
"user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha _
As Byte, ByVal dwFlags As Long) As
Long

نوع نمایش این Splash Screen به گونه ای است که میزان شفافیت فرم آن از 0 به 255 رسیده و دوباره کاهش یافته به صفر می رسد (یا بعبارت دیگر از حالت نامرئی به شفافیت کامل رسیده و دوباره از شفافیت آن کاسته شده و نامرئی می شود ) . خوب تنها Control که برای این برنامه نیاز داریمTimer می باشد . کدی که در Form_Load می بینید باعث می شود که فرم در ابتدای امر نامرئی باشد چون مقدار bAlfa آنرا 0 داده ام


Private Sub Form_Load()
    
    Dim Ret As
Long
    
'Set the window style to 'Layered'
    Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
    Ret = Ret Or WS_EX_LAYERED
    SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret

   'SetLayeredWindowAttributes Me.hWnd,0,(0-255),LWA_ALPHA
    SetLayeredWindowAttributes Me.hWnd,0,0,LWA_ALPHA

    Timer1.interval = 1
    End
    
End Sub

در مرحله بعد برای اینکه فرم از حالت نامرئی به مرئی برسد (یعنی مقدار آن از 0 به 255 برسد) یک حلقه For نوشتم . حال برای اینکه فرم دوباره از حالت مرئی به نامرئی برشد یک حلقه For دیگر با گام افزایش -1 نوشتم تا مقدار آنرا کاهش دهد .

Private Sub Timer1_Timer()
 
     For i = 1 To
255
       SetLayeredWindowAttributes Me.hWnd,0,CByte(i),LWA_ALPHA
     Next i

     For i = 255 To 1 Step -
1
       SetLayeredWindowAttributes Me.hWnd,0,CByte(i),LWA_ALPHA
     Next i
     
     Timer1.Enabled =
False
  
End Sub

(*) یک نکته : این برنامه در سیستم عاملهای windows 2000 به بعد قابل اجراست , زیرا توابع مورد استفاده در این برنامه در ویندوزهای 98 و 95 وجود ندارد .





نوع مطلب : ویژوال بیسیك، سورس رایگان، رفع اشكال/سخت افزار / نرم افزار، دانلود كتاب و جزوه رشته كامپیوتر، 
برچسب ها : splash screen، اسپلش اسکرین، توابع، windows 2000،
لینک های مرتبط :

       نظرات
جمعه 18 دی 1388
اسماعیل هاشمی
سه شنبه 28 شهریور 1396 07:54 ق.ظ
Having read this I thought it was extremely informative. I appreciate you finding the time and energy to put this content together.
I once again find myself personally spending way too much time
both reading and leaving comments. But so what, it was still worth it!
سه شنبه 29 فروردین 1396 11:10 ق.ظ
I'm impressed, I have to admit. Seldom do I come across a blog that's both
equally educative and engaging, and let me tell you, you have hit
the nail on the head. The issue is something too few men and
women are speaking intelligently about. I'm very happy that I found this
during my hunt for something relating to this.
 
لبخندناراحتچشمک
نیشخندبغلسوال
قلبخجالتزبان
ماچتعجبعصبانی
عینکشیطانگریه
خندهقهقههخداحافظ
سبزقهرهورا
دستگلتفکر