Lo primero que tienes que hacer es insertar un
[ProgressBar]
Min=1
Max=100
y un
[CommandButton]
Name=Aceptar
Caption=Aceptar
y un
[TIMER]
Inerval=100
Enabled=False
Inserta el siguiente codigo:
Private Sub Aceptar_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
Static x
If IsEmpty(x) Then x = 1
ProgressBar1.Value = x
If x = ProgressBar1.Max Then
x = ProgressBar1.Max
MsgBox "Como ves el progress bar", vbOKOnly + vbInformation, "Que Onda"
End
Else
x = x + 1
End If
End Sub
Si tienes Dudas sobre el progressbar hazmelas saber
Salu2
[ProgressBar]
Min=1
Max=100
y un
[CommandButton]
Name=Aceptar
Caption=Aceptar
y un
[TIMER]
Inerval=100
Enabled=False
Inserta el siguiente codigo:
Private Sub Aceptar_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
Static x
If IsEmpty(x) Then x = 1
ProgressBar1.Value = x
If x = ProgressBar1.Max Then
x = ProgressBar1.Max
MsgBox "Como ves el progress bar", vbOKOnly + vbInformation, "Que Onda"
End
Else
x = x + 1
End If
End Sub
Si tienes Dudas sobre el progressbar hazmelas saber
Salu2