السلام عليكم .اخواني هذا الملف وجدته عل اليوتوب
لو سمحتم أين أضع الكود
HOME.Show
Me.Close
اريد ان يكون الفورم 1 هو الفورم سبلاش سكرين و لما يكتمل تغير الالوان يفتتح الفورم HOME ما عرفت اين اضع السطرين بارك الله فيكم
وعليكم السلام ورحمة الله وبركاته ،،،
ضع هذا الكود في الفورم لود للفورم HOME
كود :
Dim splash As New Form1
splash.ShowDialog()
وإجعل Startup Form هو HOME
شكرا لك أخي FHM و بارك الله فيك
لكن بهذا الكود يبقى الفورم سبلاش سكرين على طول شغال و لا يختفي و تظهر الفورم HOME
(09-11-24, 07:28 PM)العيدروس كتب : [ -> ]شكرا لك أخي FHM و بارك الله فيك
لكن بهذا الكود يبقى الفورم سبلاش سكرين على طول شغال و لا يختفي و تظهر الفورم HOME
إنتظر وسوف يظهر
السبب بطول الإنتظار هو طول كود rgb
لأنك وضعت كود طويل فينتظر إنتهاء الكود
(09-11-24, 03:01 PM)العيدروس كتب : [ -> ]السلام عليكم .اخواني هذا الملف وجدته عل اليوتوب
لو سمحتم أين أضع الكود
HOME.Show
Me.Close
اريد ان يكون الفورم 1 هو الفورم سبلاش سكرين و لما يكتمل تغير الالوان يفتتح الفورم HOME ما عرفت اين اضع السطرين بارك الله فيكم
انظر لخصائص المشروع و عدل اللازم
شكرا اخي justforit على المساعدة لكن ما لاحظته بعد تطبيقي ما ذكرته لي هو اختفاء الفورم سبلاش سكرين بعد ثانيتين او ثلاثة فقط يعني ما يلحق الواحد يشوفها و تختفي بارك الله فيك و اسف على الازعاج
وعليكم السلام ورحمة الله وبركاته
بعد جعل الـ Home هي نافذة الاقلاع الرئيسية ..
أكتب الكود التالي في محررها :
كود :
Private Sub HOME_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.WindowState = FormWindowState.Maximized
Form1.MdiParent = Me
Form1.Show()
End Sub
وفي محرر نافذة الـ Form1 في قسم التصريحات العام :
كود :
Dim t1 As Integer = 0
Dim t2 As Integer = 200 ' هذه القيمة تغيرها بحسب حاجتك من الوقت طويل أو قصير زيد أو أنقص منها كما تشاء
وفي نهاية كل تيك (Tick) لكل تايمر أضف الكود التالي :
كود :
t1 += 1
If t1 > t2 Then Me.Close()
شكرا جزيلا أخ طه و بارك الله فيك و جزاك كل خير ان شاء الله فعلا ضبطت الحكاية فقط لو من الممكن جعل السبلاش سكرين تظهر وحدها هي الاول و بعدها تظهر الفورم HOME لا اريدها ان تظهر وسط الفورم هوم طبعا اذا كان ممكن ذلك و لك كل الشكر
عدل :
كود :
Private Sub HOME_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' Form1.MdiParent = Me
Form1.ShowDialog()
Me.WindowState = FormWindowState.Maximized
End Sub
جزاك الله كل خير أخ طه فضلك علينا كثير عسى ان يعوضها لك الاه بأفضل منها يا رب