[العيدروس]

السلام عليكم .اخواني هذا الملف وجدته عل اليوتوب 
لو سمحتم أين أضع الكود 
HOME.Show
Me.Close
اريد ان يكون الفورم 1 هو الفورم سبلاش سكرين و لما يكتمل تغير الالوان يفتتح الفورم HOME ما عرفت اين اضع السطرين بارك الله فيكم

[F.H.M]

وعليكم السلام ورحمة الله وبركاته ،،،

ضع هذا الكود في الفورم لود للفورم HOME

كود :

Dim splash As New Form1
        splash.ShowDialog()

وإجعل Startup Form هو HOME

[العيدروس]

شكرا لك أخي FHM و بارك الله فيك
لكن بهذا الكود يبقى الفورم سبلاش سكرين على طول شغال و لا يختفي و تظهر الفورم HOME

[F.H.M]

(09-11-24, 07:28 PM)العيدروس كتب : شكرا لك أخي FHM و بارك الله فيك
لكن بهذا الكود يبقى الفورم سبلاش سكرين على طول شغال و لا يختفي و تظهر الفورم HOME

إنتظر وسوف يظهر

السبب بطول الإنتظار هو طول كود rgb

لأنك وضعت كود طويل فينتظر إنتهاء الكود

[justforit]

(09-11-24, 03:01 PM)العيدروس كتب : السلام عليكم .اخواني هذا الملف وجدته عل اليوتوب 
لو سمحتم أين أضع الكود 
HOME.Show
Me.Close
اريد ان يكون الفورم 1 هو الفورم سبلاش سكرين و لما يكتمل تغير الالوان يفتتح الفورم HOME ما عرفت اين اضع السطرين بارك الله فيكم

انظر لخصائص المشروع و عدل اللازم

[العيدروس]

شكرا اخي justforit على المساعدة لكن ما لاحظته بعد تطبيقي ما ذكرته لي هو اختفاء الفورم سبلاش سكرين بعد ثانيتين او ثلاثة فقط يعني ما يلحق الواحد يشوفها و تختفي بارك الله فيك و اسف على الازعاج

[Taha Okla]

وعليكم السلام ورحمة الله وبركاته

بعد جعل الـ 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 لا اريدها ان تظهر وسط الفورم هوم طبعا اذا كان ممكن ذلك و لك كل الشكر

[Taha Okla]

عدل :

كود :

Private Sub HOME_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   ' Form1.MdiParent = Me
   Form1.ShowDialog()
   Me.WindowState = FormWindowState.Maximized
End Sub

[العيدروس]

جزاك الله كل خير أخ طه فضلك علينا كثير عسى ان يعوضها لك الاه بأفضل منها يا رب