Jump to content
  • Revista PROGRAMAR: J√° est√° dispon√≠vel a edi√ß√£o #60 da revista programar. Faz j√° o download aqui!

taov

[Resolvido] ProgressBar

Recommended Posts

taov

Vb 2005

ūüė≥

A minha duvida é um bocadinho confusa, e preciso de ajuda.

Consiste em 3 Formulários. o primeiro formulário tem um conjunto de dados, e tem um botão concluir. Eu ao carregar no botão concluir, chamo outro formulário, que devia ter uma progressBar  :) , sozinha, para dar a sensação de espera,(30 segundos), e ao chegar a 100%, abrir outro formulário!

Preciso de ajuda na progressBar, (como é que a ponho a funcionar:(? ) e como é que abre outro formulário quando chega a 100%.

Obrigado.

Share this post


Link to post
Share on other sites
anolsi

Embora ache um pedido um pouco estranho (dar a sensação de espera?), cá vai:

Primeiro adicionas um timer, e como interval 1000 (milissegundos que corresponde a 1s), defines o m√°ximo da progressbar 30, e no evento tick do timer

fazes

If Me.ProgressBar.Value < Me.ProgressBar.Maximum Then 
       Me.ProgressBar.Value += 1
Else
       form2.show()
       Me.close
End If


"Nós somos o que fazemos repetidamente, a excelência não é um feito, e sim, um hábito."
N√£o respondo a quest√Ķes por PM que possam ser colocadas no f√≥rum!

Share this post


Link to post
Share on other sites
taov

Embora ache um pedido um pouco estranho (dar a sensação de espera?), cá vai:

Primeiro adicionas um timer, e como interval 1000 (milissegundos que corresponde a 1s), defines o m√°ximo da progressbar 30, e no evento tick do timer

fazes

If Me.ProgressBar.Value < Me.ProgressBar.maxvalue Then 
       Me.ProgressBar.Value += 1
Else
       form2.show()
       Me.close
End If

Share this post


Link to post
Share on other sites
taov

nao é maximum mas sim maxvalue

If Me.ProgressBar.Value < Me.ProgressBar.maxvalue Then

      Me.ProgressBar.Value += 1

Else

      form2.show()

      Me.close

End If

Share this post


Link to post
Share on other sites
anolsi

nao é maximum mas sim maxvalue

Sim, enganei-me.

Esqueci-me de dizer que tens que colocar no timer o enabled a true


"Nós somos o que fazemos repetidamente, a excelência não é um feito, e sim, um hábito."
N√£o respondo a quest√Ķes por PM que possam ser colocadas no f√≥rum!

Share this post


Link to post
Share on other sites
taov

Sim, enganei-me.

Esqueci-me de dizer que tens que colocar no timer o enabled a true

eu sou mesmo da...  Já dá... obrigadão António...

:(

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.