كود لعمل Splash Screen بالفيجوال بيسك

نقوم بإضافة الكود التالى عند تحميل الفورمة الرئيسية Form Load للبرنامج سواء كانت Login Form او غيرها من انواع الفورم .

Dim start, finish
Me.Visible = True
start = Timer
finish = start + 5
Do Until finish <= Timer
DoEvents
Loop
Unload Me
Form2.Show
End Sub

ويمكنك تقليل او زيادة زمن عرض Splash Screen عن طريق التعديل فى رقم 5 وهو زمن عرض فورمة Splash Screen

مع تحيات منتديات نوردين المتطورة

» كيفية عمل لعبة خدعة بالفيجوال بيسك
» كيفية جعل برنامجك (بالفيجوال بيسك) يبدأ مع تشغيل النظام
» طريقة أخرى لعمل قاعة بيانات فى الفيجوال بيسك