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

نسخة كاملة : درس- كيفية عمل شاشة البدء splash Screen
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
كاتب الموضوع : المؤمنة

درس: كيفية عمل شاشة البدء .... تقييمه: للمبتدئين
إعداد: م/ فرحناز سجّاد حسين فاضل - مهندسة كمبيوتر ...
النسخة: 2003
_______________________________________

في معظم التطبيقات هناك شاشة تظهر لبرهة ,, ثمّ تختفي لتظهر الشاشة الرئيسية للبرنامج ,, كما يوضحه الشكل التالي ,, حيث يظهر شاشة بدء للبرنامج الشهير Real Player,,



-1- افتح مشروع جديد وسمه SplashDemo ,, أضف إليه واجهة (Form) أخرى ,, سم الأولى Splash والثانية Main ,,,
-2- غيّر الخواص التالية إلى القيم التي تسند إليها ,,
لإخفاء الأزرار (الإغلاق - تكبير - تصغير)
Control Box = False
لإخفاء شريط العنوان
FormBorderStyle = none
لظهور النافذة وسط الشاشة
StartPosition = CenterScreen

لإدراج صورة على الفورم من الخاصية BackgroundImage نختار الصورة من النافذة التي تفتح بالضغط على ... بجانب (none) ,, ثم غير أبعاد الفورم بما يتناسب وحجم الصورة ,,,

اضف Timer ,, وغير فيه الخواص التالية ,,
لعمل الTimer
Enabled = True
لجعله ظاهراً لخمس ثواني
Interval = 5000

والآن ضغطتين على الTimer ,, واكتب الكود التالي ,,,


كود :
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Timer1.Enabled = True Then
Timer1.Enabled = False
Dim form As New Main
form.Show()
Me.Visible = False
End If
End Sub


اتمنى لكم الفائدة ,,,

أختكم ....

تحياتي ...