ساعدوني في عمل شاشة افتتاحية لبرنامجي

بعد ما خلصت المشروع او لو مخلصتوش وعاوز تعمل شاشة إفتتاحية بسيطة قم بالتالي

وانت فاتح المشروع

اضغط Project من شريط القوائم

ثم اختار Add Form

ثم اختار Splash Screen

أولا من الممكن ان تتعامل مع هذه الكائنات الموضوعة على الفورمة الجديدة كما هو مبين بالفورمة طبعا ده هايكون لحفظك لمجموعة من الأكواد التي تشغل هذه الكائنات الموضوعة على الفورمة

ثانيا ً من الممكن ان تحذف كل هذه الكائنات وتضع صورة ترمز او تتحدث عن البرنامج الخاص بك ( المشروع يعني ) وتكون بنفس مساحة الفورمة الجديدة او تكون الفورمة الجديدة بنفس مساحة الصورة

وممكن كمان تضيف الأداه ProgressBar على ان البرنامج يعني بيقوم بالتحميل دلوقتي قبل ما يخش على البرنامج

اذا لم تملك الأداه ProgressBar في مربع الأدوات يمكنك وضعها بالأتي:

قم بالضغط على مفتاحي Ctrl + T

Microsoft Windows Common Controls 6.0

سوف تظهر الأداه بمربع الأدوات واسمها ProgressBar

ثم بعد ذلك ضع هذه الأداه بالحجم المناسب وفي المكان المناسب الأن قم بالضغط على الصورة اللي انت وضعتها مرتين واكتب هذا الكود الخاص بتشغيل الأداه ProgressBar

على ان هذه الأداه سوف تعمل عند الضغط على الصورة من قِبل المستخدم لتحميل البرنامج

الكود هو

Dim Counter As Integer

Dim Workarea(2500) As String

ProgressBar1.Min = LBound(Workarea)

ProgressBar1.Max = UBound(Workarea)

ProgressBar1.Visible = True

'Set the Progress's Value to Min.

ProgressBar1.Value = ProgressBar1.Min

'Loop through the array.

For Counter = LBound(Workarea) To UBound(Workarea)

'Set initial values for each item in the array.

Workarea(Counter) = "Initial value" & Counter

ProgressBar1.Value = Counter

'SkinLabel1.Caption = SkinLabel1.Caption + 12

Next Counter

ProgressBar1.Visible = False

ProgressBar1.Value = ProgressBar1.Min

---------------------------------------------------------------------------------------------

لاحظ ان الرقم اللي باللون الأزرق هو خاص بسرعة التحميل ويمكنك تغيره طبعا للأسرع وللأبطء

بس خلاص