Como se hacen las barras tipo "Cargando"?

[BenRu]

Hola, he visto multitud de programs en vb que tienen una barra de ese estilo, que son como "Cargando"...las he visto al iniciar un programa, al pusar un boton y esperar la contestacion del programa...etc.Como se hace?

Saludos

[programatrix]

Se trata de los controles de microsoft common controls 6.0.

[BenRu]

Amm...tiene el simbolillo de un icono no?
Y como va? ???

[LICHONGO]

yo hago la barra de la siguiente manera:

coloco un PictureBox y dentro de el coloco 3 botones con los botones en falso en un Timer con intervalo de 100
escribo los siguientes codigos

Private Sub Timer1_Timer()
Cd1.Left = Cd1.Left + 120
Cd2.Left = Cd2.Left + 120
Cd3.Left = Cd3.Left + 120
If Cd1.Left = 2400 Then
    Cd1.Left = 0
    Cd2.Left = 120
    Cd3.Left = 240
End If
End Sub

cd1,cd2,c3, son los botones

[programatrix]

También se puede hacer con imágenes pero las barras que trae el windows se controlan de otra manera. Ahora mismo no me acuerdo, de todas formas tienes el google para buscarlo.

[BenRu]

yo hago la barra de la siguiente manera:

coloco un PictureBox y dentro de el coloco 3 botones con los botones en falso en un Timer con intervalo de 100
escribo los siguientes codigos

Private Sub Timer1_Timer()
Cd1.Left = Cd1.Left + 120
Cd2.Left = Cd2.Left + 120
Cd3.Left = Cd3.Left + 120
If Cd1.Left = 2400 Then
    Cd1.Left = 0
    Cd2.Left = 120
    Cd3.Left = 240
End If
End Sub

cd1,cd2,c3, son los botones

Gracias pero lo he probado y no me funciona...sabeis el porque?

[Ertai]

Te refieres a un Progressbar???

Pues bien fácil...

Código [Seleccionar] Expandir

Progressbar.Value = 0 'barra vacía
Progressbar.Value = 100 'barra llena


Es sólo un ejemplo.

Saludos,
Ertai

PD: No me copies la firma!!  xDD

[Manibal_man]

El codigo mas simple que se me ocurre para una barra de progreso seria algo asi:

Código [Seleccionar] Expandir

Private Sub cmdEmpezar_Click()
Timer1.Interval = 60
End Sub


Private Sub timer1_timer()
ProgressBar1.Value = ProgressBar1.Value + 1
End Sub


Tendrias que insertar un boton, una barra de progreso y el timer.

Este codigo daria error al completar, pero para el ejemplo sirve...

para solucionar el error habria que agregar alguna condicion que frene el ciclo al completar (que deberias aplicarlo a la tarea que estas esperando que termine)

Espero que te sirva, Saludos

[BenRu]

Te refieres a un Progressbar???

Pues bien fácil...

Código [Seleccionar] Expandir

Progressbar.Value = 0 'barra vacía
Progressbar.Value = 100 'barra llena


Es sólo un ejemplo.

Saludos,
Ertai

PD: No me copies la firma!!  xDD

Gracias lo probare...

La firma me la puse cuando entre aqui en el foro...a mis 2 o 3 primeros mensajillos...estas to ciego eh 

jaajaja Saludos

[BenRu]

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