Timer starten voor Progressbar en bij 100 verbergen

[Doofenshmirt]

Hoi,

Zit met een lastig iets waar ik maar niet uitkom.
Bij Formload laat ik eerst een msgbox tevoorschijn komen , als er op OK geklikt wordt dan mag pas Timer gestart worden voor Progressbar.
Maar de progressbar begint gelijk te lopen , nog voor ik OK druk.

En dan bij 100 zou de progressbar moeten verbergen en dat doet hij ook niet.

Dit staat onder Formload.

Dim result = MessageBox.Show("Welkom bij ........ , Uw instellingen worden geladen.", "www.........", MessageBoxButtons.OKCancel)


        If result = DialogResult.OK Then

            Timer3.Start()

        ElseIf result = DialogResult.Cancel Then

            Me.Hide()
            Form2.Show()
        End If

Dit onder timer3

 Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick

       
        ProgressBar2.Increment(1)
        If ProgressBar2.Value = 1 Then

''dingen doen

  If ProgressBar2.Value = 100 Then
                Timer3.Stop()
                ProgressBar2.Visible = False
 
            End If
        End If


    End Sub

 

[ido435]

button1. code =
[SQL]timer1.start[/SQL]

timer1.code =
[SQL] ProgressBar1.Increment(1)
If ProgressBar1.Value = 100 Then
progressbar1.hide
end if[/SQL]

 

[Doofenshmirt]

De timer starten onder een button wil ik niet , ik wil graag starten na OK drukken.

En
Deze had ik ook al geprobeerd , maar hij blijft zichtbaar

  progressbar2.hide

 

[MatthiWare]

Je hebt een grote fout in je code gemaakt

In je code staat er dit:

If ProgressBar2.Value = 1 Then

''dingen doen

  If ProgressBar2.Value = 100 Then
                Timer3.Stop()
                ProgressBar2.Visible = False
 
            End If
        End If

Maar jouw code van If ProgressBar2.Value = 100 Then wordt nooit uitgevoerd omdat het in de eerste if statement staat.
Verander het naar dit en het zou moeten werken:

If ProgressBar2.Value = 1 Then
    'dingen doen
End If
If ProgressBar2.Value = 100 Then
   ProgressBar2.Visible = False
   Timer3.Stop()
End If

Veel succes!

 

[Doofenshmirt]

Hoi MatthiWare,

Heb de code veranderd en hij verbergt inderdaad de Progressbar als hij 100 is . Top


Zit alleen met starten van de progressbar via de timer.

Dit staat onder Formload , hij moet starten als er OK gedrukt is maar bij begint gelijk en dat mag niet .

Dim result = MessageBox.Show("Welkom bij ........ , Uw instellingen worden geladen.", "www.........", MessageBoxButtons.OKCancel)


        If result = DialogResult.OK Then

            Timer3.Start()

        ElseIf result = DialogResult.Cancel Then

            Me.Hide()
            Form2.Show()
        End If

 

[MatthiWare]

ga naar je designer en klik op de timer en kijk bij properties hij staat waarschijnlijk op enabled = true <- zet dit op false
Veel succes!

 

[Doofenshmirt]

Inderdaad , daar had ik geen erg in.

Zet hem bijna automatisch op True.



Is opgelost.:thumb: