Jump to content

[VB6] Progress bar ... como fazer mudar de form?


Guest
 Share

Recommended Posts

Podes utilizar um ciclo For, primeiro defines os valores min e max da progress bar (0 a 10) e depois se quizeres ir incrementando p exemplo 1 a 1 o estado da progress bar a cada ciclo vais aumentando 1 valor ao valor actual da progress bar ate que o valor da progress bar seja 10, quando for 10 sais do ciclo For e carregas a outra form.

Cumps

Link to comment
Share on other sites

eu tenho este código mas está sempre a repetir o progreso e na muda de form

Private Sub Command1_Click()
Timer1.Enabled = False
        Timer1.Interval = 1000
        ProgressBar1.Min = 0
        ProgressBar1.Max = 60
        
        Timer1.Enabled = True
        If ProgressBar1 = 60 Then
        Form3.Visible = True
        Else
        End If
        Text1.Locked = True
        Text2.Locked = True
        End Sub
Private Sub Timer1_Timer()
        Static progress As Integer
   
        progress = (progress + 1) Mod 60
        ProgressBar1.Value = progress
End Sub
Link to comment
Share on other sites

Tens ai algumas coisas trocadas...

Parece-me que tens ai algumas coisas trocadas!

If ProgressBar1 = 60 Then
        Form3.Visible = True
        Else
        End If
        Text1.Locked = True
        Text2.Locked = True
        End Sub

Isto deveria estar no evento do Timer, porque é esta a condição que se tem de verificar cada vez que um valor é adicionado. Tens tambem de ter atenção se colocar istu antes ou depois de:

progress = (progress + 1) Mod 60
        ProgressBar1.Value = progress

Deves meter antes disso para evitar que excedas o valor máximo da progress bar.

Outra coisa.. não percebo porque tens isto:

progress = (progress + 1) Mod 60

Não percebo porque estas a fazer isso MOD.

Cumps

Link to comment
Share on other sites

ups.... enganei-me... e não consigo editar os meus Post's por isso vou ter de fazer outro...

Tens ai algumas coisas trocadas...

Parece-me que tens ai algumas coisas trocadas!

Código

If ProgressBar1 = 60 Then

        Form3.Visible = True

        Else

        End If

        Text1.Locked = True

        Text2.Locked = True

        End Sub

não é isso tudo é só:

If ProgressBar1 = 60 Then
  Form3.Visible = True
End If

Cumps

Link to comment
Share on other sites

ups.... enganei-me... e não consigo editar os meus Post's por isso vou ter de fazer outro...

Tens ai algumas coisas trocadas...

Parece-me que tens ai algumas coisas trocadas!

tipo só esle é k tá  amias as txt é para serem blokeadas

Código

If ProgressBar1 = 60 Then

        Form3.Visible = True

        Else

        End If

        Text1.Locked = True

        Text2.Locked = True

        End Sub

não é isso tudo é só:

If ProgressBar1 = 60 Then
  Form3.Visible = True
End If

Cumps

Link to comment
Share on other sites

programadorvb6

Bem pelo menos ainda há gente decente que mostra o seu código.. ou outro põem os escravos a trabalhar para eles , não gostam de pôr a massa cinzenta a trabalhar.

amigo vê se te dá jeito.

procura por KeyGen_VSoft publicado por mim no site para VB6..

até +

programadorvb6

______________________________________________________________________________

Que minha coragem seja maior que meu medo e que minha força seja tão grande quanto minha fé.
 

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.