NameException Posted April 18, 2006 at 10:34 PM Report Share #22764 Posted April 18, 2006 at 10:34 PM 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 comment Share on other sites More sharing options...
David Pintassilgo Posted April 18, 2006 at 10:36 PM Report Share #22765 Posted April 18, 2006 at 10:36 PM 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 comment Share on other sites More sharing options...
psiico Posted April 18, 2006 at 10:52 PM Report Share #22771 Posted April 18, 2006 at 10:52 PM 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 comment Share on other sites More sharing options...
NameException Posted April 18, 2006 at 11:00 PM Author Report Share #22776 Posted April 18, 2006 at 11:00 PM Sim, é isso mesmo... mas só funciona ao clique do rato.... como é que faço para preencher a "barra" automaticamente???? Obrigado pela ajuda..... Link to comment Share on other sites More sharing options...
David Pintassilgo Posted April 18, 2006 at 11:01 PM Report Share #22777 Posted April 18, 2006 at 11:01 PM For x=0 to 100 progressbar1.value=x next por exemplo cool stuffs to check. http://blog.zxcoders.com// Link to comment Share on other sites More sharing options...
freesumo Posted April 19, 2006 at 08:46 AM Report Share #22806 Posted April 19, 2006 at 08:46 AM 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 More sharing options...
psiico Posted April 19, 2006 at 04:43 PM Report Share #22872 Posted April 19, 2006 at 04:43 PM 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 comment Share on other sites More sharing options...
Tiago Salgado Posted April 19, 2006 at 04:51 PM Report Share #22875 Posted April 19, 2006 at 04:51 PM 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 comment Share on other sites More sharing options...
psiico Posted April 19, 2006 at 05:00 PM Report Share #22881 Posted April 19, 2006 at 05:00 PM eu nao tou a conseguir! tenho tudo direitinho e nao da... :S Psiico // Portfolio Link to comment Share on other sites More sharing options...
vbmaster Posted April 19, 2006 at 05:10 PM Report Share #22889 Posted April 19, 2006 at 05:10 PM 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 comment Share on other sites More sharing options...
Tiago Salgado Posted April 19, 2006 at 05:18 PM Report Share #22896 Posted April 19, 2006 at 05:18 PM 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 comment Share on other sites More sharing options...
psiico Posted April 19, 2006 at 05:35 PM Report Share #22904 Posted April 19, 2006 at 05:35 PM 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 comment Share on other sites More sharing options...
Tiago Salgado Posted April 19, 2006 at 05:38 PM Report Share #22906 Posted April 19, 2006 at 05:38 PM 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 comment Share on other sites More sharing options...
psiico Posted April 19, 2006 at 06:18 PM Report Share #22932 Posted April 19, 2006 at 06:18 PM foi 1 erro.. (edit now!) sim fiz... k enable = true? Psiico // Portfolio Link to comment Share on other sites More sharing options...
Tiago Salgado Posted April 19, 2006 at 06:38 PM Report Share #22943 Posted April 19, 2006 at 06:38 PM foi 1 erro.. (edit now!) sim fiz... k enable = true? Selecciona o Timer e dps nas propriedades mete a Enable a True. Link to comment Share on other sites More sharing options...
psiico Posted April 19, 2006 at 06:42 PM Report Share #22946 Posted April 19, 2006 at 06:42 PM 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 comment Share on other sites More sharing options...
Tiago Salgado Posted April 19, 2006 at 06:51 PM Report Share #22949 Posted April 19, 2006 at 06:51 PM Anexa o projecto sff...para dar uma olhadela. Talvez seja melhor Link to comment Share on other sites More sharing options...
freesumo Posted April 19, 2006 at 07:00 PM Report Share #22951 Posted April 19, 2006 at 07:00 PM 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 comment Share on other sites More sharing options...
NameException Posted April 19, 2006 at 07:50 PM Author Report Share #22973 Posted April 19, 2006 at 07:50 PM JA TÁ A BOMBAR..... OBRGADÃO PELA AJUDA!!!!! Link to comment Share on other sites More sharing options...
psiico Posted April 19, 2006 at 08:05 PM Report Share #22983 Posted April 19, 2006 at 08:05 PM 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 comment Share on other sites More sharing options...
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