Jump to content

[VB6]Progress Bar


Recommended Posts

NameException

Boas!!!!

Como é que se programa uma Progress Bar em VB 6.0???????

Private Sub ProgressBar1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

          (???...???)

End Sub

Link to post
Share on other sites
David Pintassilgo

o que queres fazer com a progressbar?

Aquilo é assim: defines o MAX e o MIN por defeito tá MIN=0 e MAX=100 se não estou em erro

depois metes por exemplo: progressbar1.value=50 e a barra aparece metade preenchida.

Axo que é qualquer coisa assim...

cool stuffs to check.

http://blog.zxcoders.com//

Link to post
Share on other sites

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 post
Share on other sites
Tiago Salgado

Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1
End Sub

Basta teres isto, definires os valores Max e Min da Progressbar e definires o Interval do timer.

Link to post
Share on other sites
Tiago Salgado

Indica aqui os valores que estas a por para:

ProgressBar -> Min e Max Value

Timer -> Interval

E o código que estás a por para mostrar a progressbar ( incluindo o Private Sub lalalal para ver se tás a por no evento correcto )

Link to post
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 post
Share on other sites

eu tenho este comando aki k liga o timer...

Private Sub Command1_Click()
If IsNumeric(Text5.Text) Then
Timer1.Interval = Val(Text5.Text) * 1000
End If
Command1.Enabled = False
Text5.Text = ""
Timer1.Enabled = True
End Sub

por isso kuando o timer fica ligado ele n anda c a progress

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
×
×
  • 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.