05-10-12, 10:36 AM
كاتب الموضوع : المؤمنة
درس: كيفية عمل شاشة البدء .... تقييمه: للمبتدئينإعداد: م/ فرحناز سجّاد حسين فاضل - مهندسة كمبيوتر ...
النسخة: 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اتمنى لكم الفائدة ,,,
أختكم ....
تحياتي ...
