Visual Basic

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