Visual Basic

Dave Kreskowiak wrote:

It's impossible to say why it's not staying up because you haven't shown the code that creates and shows this SplashScreen form. You don't say what your project's Startup Form is either.

WestSideRailways wrote:

you allready have seen the create /show code.

Dave Kreskowiak wrote:

No, we haven't. All we've seen is the code inside the SplashScreen, not the code that created an instance of it and .Showed it.

Christian Graus wrote:

A progress bar that sets itself based solely on a timer is kind of useless.

Public NotInheritable Class SplashScreen1
    'Minimum time in seconds to show this splash screen
    Private Const DisplayTime As Integer = 5

    WithEvents tmr As New Timer
    Dim sw As New Stopwatch         'Stopwatch to track time since shown

    Public Sub New()
        ' This call is required by the Windows Form Designer.
        InitializeComponent()

        'Set minimum time to display
        My.Application.MinimumSplashScreenDisplayTime = DisplayTime * 1000
        'Update progress every 10/1000 sec
        tmr.Interval = 10
    End Sub

    Private Sub tmr_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tmr.Tick
        'Calculate value for progess bar
        Dim elapsed As Integer = (sw.ElapsedMilliseconds / (DisplayTime * 1000)) * 100
        If elapsed > 100 Then elapsed = 100
        ProgressBar1.Value = elapsed
    End Sub

    Private Sub SplashScreen1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
        sw.Start()      'Begin stopwatch
        tmr.Start()     'Start timer
    End Sub
End Class

If TreeView1.Nodes(0).IsSelected = True Then
'Put Events here
End If