• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

km92

Ajuda com progress bar

3 mensagens neste tópico

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 ;)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

:-[

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora