عمل Splash Screen

[عنـ الشوق ـاد]

عمل 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

[الـــدانـــة]

اللــــه يعطيــــك العافيـــة أخــــوي عنـــاد
جهـــــــود تشكــــــــر عليهــــــا
دمت ودام عطائـــــك