Como se hacen las barras tipo "Cargando"?

[Ertai]

Joder, lógico.

If ProgressBar.Value = 100 (por ejemplo) timer1.enabled = false

Y la firma sí que la copiaste que me acuerdo que no la tenias antes, es más, me comentaste algo de que te gustaba. No me molesta, era solo coña.

Saludos.

[Slasher-K]

Si querés podés crear tu propio control ProgressBar de una forma muy fácil usando un PictureBox.

En un formulario poné un PictureBox con el nombre picProgress y un botón con el nombre cmdTest y pegá el siguiente código en el formulario.

Código [Seleccionar] Expandir


Option Explicit

Private Sub IncreaseProgress(ByVal Value As Single, ByVal Max As Long)
          Dim snWidth!
         
  With picProgress
    snWidth = .Width / Max
   
    picProgress.Line (10, 10)-(snWidth * Value, .Height - 40), , BF
  End With
End Sub

Private Sub cmdTest_Click()
      Dim i%, snTime!

  For i = 1 To 100
    snTime = Timer
   
    Do While (Timer - snTime) < 0.25
      DoEvents
    Loop
   
    Call IncreaseProgress(i, 100)
  Next
End Sub


Asi se pueden personalizar los colores, fuente, etc.

Y BenRu ya deja de preguntar "cómo cómo y cómo", busca en google que hay muchos ejemplos y documentación sobre el control ProgressBar.

Saludos.

[Manibal_man]

Es verdad...despues cuando termina de cargarse la barra da error... 

me estas cargando??
te avise que iba a dar error al final, pero el punto era que veas como funciona... te dije que para solucionar el error uses una condicion que se ligue con la tarea que estas esperando que termine.

entendiste?, espero respuesta.

Saludos

[Valefor]

Que Onda HomsLo 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