25/06/2005, 09:05
|
 | | | Fecha de Ingreso: diciembre-2004 Ubicación: Lima - Peru
Mensajes: 267
Antigüedad: 20 años, 4 meses Puntos: 0 | |
 Control ProgressBar
Buenos Dias
Primero en la Prpiedad Intervalo del Contro Timer pon el valor de 500 o mejor puedes estar probado segun como te guste q aparesca. Despues puedes usar estas lineas:
Private Sub TimReloj_Timer()
On Error Resume Next
nCarga = nCarga + 5
If nCarga <= 100 Then
ProBarra.Value = nCarga
StaBarra.Panels(2).Text = "Cargando Configuraciones"
Else
TimReloj.Enabled = False
End If
End Sub
Atte
Jorge Diaz
__________________
Creo que todas las cosas suceden por algo, no es eso que los demas llaman 'Destino'. Definitivamente Dios no juega a los dados... |