Jump to content

[VB6]Progress Bar


NameException
 Share

Recommended Posts

Cria um Form com uma ProgressBar e um Timer, isto é só um exemplo simples e foi feito em VB5.

A barra progride à medida que o tempo passa ou seja de 0 a 60 segundos e depois volta ao principio outra vez  e volta a progredir sem parar (neste caso o Mod 60 tá lá para quando o valor de progress bar  chegar aos 60 voltar a repor o Value a zero, sem isto ia dar erro, experimenta sem o Mod). No teu caso podes renovar de xis em xis tempo utilizando Timer1.Interval (em milisegundos) o valor da progress bar mas atenção não deixes que ela passe do limite máximo.

 
Private Sub Form_Load()
        Timer1.Enabled = False
        Timer1.Interval = 1000
        ProgressBar1.Min = 0
        ProgressBar1.Max = 60
        ProgressBar1.Value = 0
        Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
        Static progress As Integer
        Form1.Caption = Second(Time)
        progress = (progress + 1) Mod 60
        ProgressBar1.Value = progress
End Sub
Link to comment
Share on other sites

Progressbar1.min = 0

progressbar1.max = 100

timer1.interval = val(text5.text) * 1000 o interval é dado por o user numa text box...

tou a por no evento do timer...

Private Sub Timer1_Timer()

ProgressBar1.Value = ProgressBar1.Value + 1
// mais codigo aki para baixo,mas nao mexe com a progress
End Sub

é isto.. lol

Link to comment
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
 Share

×
×
  • Create New...

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.