Ajuda com progress bar

[km92]

Boas pessoal.

É o seguinte... queria meter uma progress bar num programa que dure cerca de 40 segundos, mas que por trás não faça nada. É só mesmo para dar um melhor aspecto ao programa.

Alguém me consegue ajudar?

Desde já agradeço 😉

[José Lopes]

Solução:

Deves criar um novo form, e criar uma progress bar.

Crias um timer com um intervalo de 1000 => 1 segundo

Imagindando que a progress bar se chamará bar

Defines uma variável para o form que é o tamanho da barra

 

Dim maxTimer As Integer = 40

No load do form  setas o tamanho da progress bar e inicias o timer

tmrBar.Start()
        Me.bar.Maximum = maxTimer
        Me.bar.Value = maxTimer

Depois no Tick do timer:

If Me.bar.Value > 0 Then
            Me.bar.Value = Me.bar.Value - 1
        Else
            tmrBar.Stop()
            Me.Dispose()
        End If

Se não correr nada mal..deve funcionar

?

[km92]

Ajudou bastante!

Obrigado 😉