BARRA DE PROGRESSO
bom seguinte, como todo iniciante, aprendemos com source[ô]s alheia, editando para nosso gosto e qndo mais avançando com gambiarras.
achei uma source na internet de barra de progresso e tals.
eu queria que quando ela chega-se a 100% ela abrisse o Form2.show
o codigo segue abaixo.
Citação:Private Sub Command1_Click()
Picture1.ForeColor = RGB(0, 0, 224)
For i = 0 To 100
progresso Picture1, i
Call pausa
Next i
End Sub
Private Sub progresso(pb As Control, ByVal percent)
Dim num$
pb.Cls
pb.ScaleWidth = 100
pb.DrawMode = 10
num$ = Format(percent, [Ô]##[Ô]) + [Ô]%[Ô]
pb.FontSize = 13
pb.CurrentX = 50 - pb.TextWidth(num$) / 2
pb.CurrentY = (pb.ScaleHeight - pb.TextHeight(num$)) / 2
pb.Print num$
pb.Line (0, 0)-(percent, pb.ScaleHeight), , BF
pb.Refresh
End Sub
Private Sub pausa()
Dim controlar
Dim começar
começar = Timer
Do Until controlar >= começar + 0.03
controlar = Timer
DoEvents
Loop
End Sub
Private Sub Form_Load()
Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
End Sub
Grato. Ivo Gabriel
Citação:Private Sub Command1_Click()
Picture1.ForeColor = RGB(0, 0, 224)
For i = 0 To 100
progresso Picture1, i
Call pausa
Next i
[txt-color=#e80000]form2.show[/txt-color]
End Sub
Exprimente chamar o form no fim do ciclo...
Barra de Progresso = Barra
If Barra.Value = Barra.Max Then [ô] se o valor da barra for igual ao maximo (ou seja 100%)
Frm_Form2.Show [ô] mostra form2
End If
Espero ter ajudado
ambos os codigos funcionaram aqui. Grato.
[txt-color=#0000f0]porem como faço, posso pontuar apenas um de vcs.[/txt-color]