NameException 0 Posted April 18, 2006 Report Share Posted April 18, 2006 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 3 Posted April 18, 2006 Report Share Posted April 18, 2006 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
psiico 1 Posted April 18, 2006 Report Share Posted April 18, 2006 pois,mas para kem keira por a progressbar a "andar" á medida que uma acçao decorra, é 1 cado obra,para 1a x Psiico // Portfolio Link to post Share on other sites
NameException 0 Posted April 18, 2006 Author Report Share Posted April 18, 2006 Sim, é isso mesmo... mas só funciona ao clique do rato.... como é que faço para preencher a "barra" automaticamente???? Obrigado pela ajuda..... Link to post Share on other sites
David Pintassilgo 3 Posted April 18, 2006 Report Share Posted April 18, 2006 For x=0 to 100 progressbar1.value=x next por exemplo cool stuffs to check. http://blog.zxcoders.com// Link to post Share on other sites
freesumo 0 Posted April 19, 2006 Report Share Posted April 19, 2006 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
psiico 1 Posted April 19, 2006 Report Share Posted April 19, 2006 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 Psiico // Portfolio Link to post Share on other sites
Tiago Salgado 2 Posted April 19, 2006 Report Share Posted April 19, 2006 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
psiico 1 Posted April 19, 2006 Report Share Posted April 19, 2006 eu nao tou a conseguir! tenho tudo direitinho e nao da... :S Psiico // Portfolio Link to post Share on other sites
vbmaster 2 Posted April 19, 2006 Report Share Posted April 19, 2006 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 Link to post Share on other sites
Tiago Salgado 2 Posted April 19, 2006 Report Share Posted April 19, 2006 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
psiico 1 Posted April 19, 2006 Report Share Posted April 19, 2006 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 Psiico // Portfolio Link to post Share on other sites
Tiago Salgado 2 Posted April 19, 2006 Report Share Posted April 19, 2006 progressbar2.max = 100 Isto foi erro de escrita ou tens mesmo assim ? Fizeste o que o vbmaster indicou ? Pores o Enable = True nas propriedades ? Link to post Share on other sites
psiico 1 Posted April 19, 2006 Report Share Posted April 19, 2006 foi 1 erro.. (edit now!) sim fiz... k enable = true? Psiico // Portfolio Link to post Share on other sites
Tiago Salgado 2 Posted April 19, 2006 Report Share Posted April 19, 2006 foi 1 erro.. (edit now!) sim fiz... k enable = true? Selecciona o Timer e dps nas propriedades mete a Enable a True. Link to post Share on other sites
psiico 1 Posted April 19, 2006 Report Share Posted April 19, 2006 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 Psiico // Portfolio Link to post Share on other sites
Tiago Salgado 2 Posted April 19, 2006 Report Share Posted April 19, 2006 Anexa o projecto sff...para dar uma olhadela. Talvez seja melhor Link to post Share on other sites
freesumo 0 Posted April 19, 2006 Report Share Posted April 19, 2006 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). 🤔 Link to post Share on other sites
NameException 0 Posted April 19, 2006 Author Report Share Posted April 19, 2006 JA TÁ A BOMBAR..... OBRGADÃO PELA AJUDA!!!!! Link to post Share on other sites
psiico 1 Posted April 19, 2006 Report Share Posted April 19, 2006 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! Psiico // Portfolio Link to post Share on other sites
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now