Waarom werkt mijn Progress bar niet ?

[creative]

Public Class Form1


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = True
 

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Progressbar1.Maximum = 100
        Timer1.Interval = 1000
        Progressbar1.Value = Progressbar1.Value + 10
        If Progressbar1.Value = 100 Then
            ' hier je actie


            Button1.Visible = True

            Timer1.Enabled = False


        End If
    End Sub

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        System.Diagnostics.Process.Start("www.google.nl")

    End Sub

End Class

Warom werkt dit niet ?
Wie o wie weet het ?

Mvg Ramon Smit

 

[Jabber]

Je moet de timer nog starten en stoppen.
Hierbij een makkelijke code om te testen.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ProgressBar1.Maximum = 100
        ProgressBar1.Step = 10
        Timer1.Interval = 1000
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.PerformStep()

        If ProgressBar1.Value > 90 Then
            Timer1.Stop()
        End If
    End Sub

 

[creative]

Owww. oke .. weer wat geleerd

Dankje !