|
El código es el siguiente:
Option Explicit
Private Sub cmdSalir_Click()
End
End Sub
Private Sub Form_Load() 'Inicializamos el timer para que este apagado Timer1.Enabled = False
End Sub
Private Sub cmdComenzar_Click() 'Inicializamos la barra de progreso, y comenzamos el Timer
Progreso.Value = 0
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer() 'Si el progreso todavía no termina, seguir aumentando Value hasta 100
With Progreso
If .Value < .Max Then
.Value = .Value + 1
Else 'Termino
MsgBox "Proceso Terminado", , "Barra de Progreso" 'Deshabilitamos el Timer Timer1.Enabled = False
End If
End With
End Sub
Aquí usamos with para referirnos al control y no tener que repetir su nombre. Esto es muy útil cuando debemos modificar los valores de varias propiedades por código de un mismo control.
Otro codigo:
Control ProgressBar - Barra de progreso
Abra:
Microsoft windows common control 6.0
en proyecto, componentes.
1 Control Label llamado Label1
1 Botón de comando llamado Command1
1 Un control ProgressBar con el nombre ProgressBar1
el codigo es el siguiente:
Private Sub Command1_Click()
Dim x As Long
' Generamos un ciclo For
For x = ProgressBar1.Min To ProgressBar1.Max
' Mostramos la veriable x (el value) en Label1
Label1 = x
' Usamos DoEvents para poder visualizar el conteo en el Label
DoEvents
' Asignamos en la propiedad Value del control ProgressBar _
el valor de x para ir incrementando la barra de progreso
ProgressBar1.Value = x
Next x
End Sub
Private Sub Form_Load()
'Le asignamos las propiedades para el mínimo, máximo valor del Progress bar
With ProgressBar1
.Max = 5000
.Min = 0
.Value = 0
End With
End Sub
|
Ejercicio Nº 5: Barra de progreso. 
