Ir para o conteúdo
km92

Ajuda com progress bar

Mensagens Recomendadas

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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
José Lopes    1
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

:-[

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


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade