شاشة افتتاحية Spalsh Screen

أخي الكريم، ما هو الفورم الذي يبدأ به برنامجك، هل هو الفورم Splash Screen؟ في هذه الحالة قم بكتابة:

Me.Hide

بدلاً من:

Me.Close

MainFirst.show

Me.hide

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

ممكن تجرب المثال التالى

اعتقد الطريقة افضل من Me.Hide

Splash Screen.zip

أخي العزيز waleedhm

لقد استغربت من مشروعك الجميل ، فهو لا يحتوي على Timer ومع هذا فإن أداة ProgressBar تعمل بشكل جيد .

وعندما حاولت تقليد مشروعك ، وفي الحقيقة قمت بنسخ نفس الأداة التي استعملتها أنت ولصقها في مشروعي ! ولكن ...

للأسف البرنامج لم يعمل !

فما هو السر يا ترى ؟

هل هو سحر أم ماذا ؟

أرجو التوضيح وشرح البرنامج لو سمحت.. بارك الله فيك .

كما أرجو أن توضح إمكانية صنع SplashScreen بدون ProgressBar

وألف شكر لك لكم .

أرفقت لكم : نموذج من مشروعي للتجربة والتعديل

MySplshScreen.zip

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

006

افتح Form1

سوف تجد الكود التالى

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()
        Dim Splash As New SplashScreen
        Splash.Show()
        Splash.ProgressBar1.Value = 10
        Application.DoEvents()
        Threading.Thread.Sleep(1000)
        Splash.ProgressBar1.Value = 20
        Threading.Thread.Sleep(1000)
        Splash.ProgressBar1.Value = 30
        Threading.Thread.Sleep(1000)
        Threading.Thread.Sleep(1000)
        Splash.ProgressBar1.Value = 40
        Splash.ProgressBar1.Value = 50
        Splash.ProgressBar1.Value = 60
        Threading.Thread.Sleep(300)
        Splash.ProgressBar1.Value = 70
        Splash.ProgressBar1.Value = 80
        Threading.Thread.Sleep(500)
        Splash.ProgressBar1.Value = 100
        Splash.Close()
        'This call is required by the Windows Form Designer.
        InitializeComponent()
        'Add any initialization after the InitializeComponent() call
    End Sub

اما فى حالة عدم اضافة ProgressBar

اكتب الكود التالى فى Region

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()
        Dim Splash As New SplashScreen
        Splash.Show()
        Application.DoEvents()
        Threading.Thread.Sleep(5000)
        Splash.Close()
        InitializeComponent()
    End Sub

وعليكم السلام ورحمة الله وبركاته يا أخي العزيز waleedhm

015

ألف ألف شكر على مساعدتك الكريمة ، وآسف جدا حيث أتعبتك ، ولكني أسأل الله تعالى أن يكتب ذلك في ميزان حسناتك إن شاء الله .

أكرر لك شكري وتقديري لشخصكم الكريم ، ومع السلامة .

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

جزاكم الله خيرا

الله يعطيك العافية أخي waleedhm على أفكارك الرائعة، في اليومين الماضيين فقط لاحظت إجابتين لك كنت أتمنى لو أنهما لي 002

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

جزاكم الله خيرا اخى هارون

واحد ان شاء الله