[VB6]Progress Bar

[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

[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...

[psiico]

pois,mas para kem keira por a progressbar a "andar" á medida que uma acçao decorra, é 1 cado obra,para 1a x

[NameException]

Sim, é isso mesmo... mas só funciona ao clique do rato.... como é que faço para preencher a "barra" automaticamente????

Obrigado pela ajuda.....

[David Pintassilgo]

For x=0 to 100

progressbar1.value=x

next

por exemplo

[freesumo]

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

[psiico]

hmm,eu experimentei isso, e nao da... a progress bar fica com 1 tracinho, e nada mais...

se alguem souber por a progess a andar ao mesmo tempo que um timer, que diga pk m faz falta, obg

[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.

[psiico]

eu nao tou a conseguir! tenho tudo direitinho e nao da... :S

[vbmaster]

eu nao tou a conseguir! tenho tudo direitinho e nao da... :S

Timer.Enabled = True, na Proprieties windows..

E mete um interval de uns 100

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

[psiico]

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

[Tiago Salgado]

progressbar2.max = 100

Isto foi erro de escrita ou tens mesmo assim ?

Fizeste o que o vbmaster indicou ? Pores o Enable = True nas propriedades ?

[psiico]

foi 1 erro.. (edit now!)

sim fiz...

k enable = true?

[Tiago Salgado]

foi 1 erro.. (edit now!)

sim fiz...

k enable = true?

Selecciona o Timer e dps nas propriedades mete a Enable a True.

[psiico]

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

[Tiago Salgado]

Anexa o projecto sff...para dar uma olhadela. Talvez seja melhor

[freesumo]

O exemplo não dá psiico !? Hmmm, estranho no meu dá na boa, e precisa do Mod 60, se não tiver o Mod dá run time error 380 (invalid property value). ?

[NameException]

JA TÁ A BOMBAR..... OBRGADÃO PELA AJUDA!!!!!

[psiico]

LOL! pois mas o meu vb as x tem paranoias mesmo valentes!!!

Anexa o projecto sff...para dar uma olhadela. Talvez seja melhor

ok, Download!