Lesson: How to Make splash Screen
كيف تعمل شاشة البدء
في معظم التطبيقات هناك شاشة تظهر لبرهة ,, ثمّ تختفي لتظهر الشاشة الرئيسية للبرنامج ,, كما يوضحه الشكل التالي ,, حيث يظهر شاشة بدء للبرنامج الشهير 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
اتمنى لكم الفائدة ,,,
أختكم المؤمنة ,,,
تحياتي
