Aviso de carga de Programa

[usrAlT1024]

Hola que tal, antes que todo un saludo a todos.
Mi duda es la sig. no se mucha programacion avanzada en vb, apenas curso el 4to semestre de lic en informatica, y de proyecto para fin de mes (la sig. semana) tengo que entregar un sistema de control de documentos, nada muy complicado, todo perfecto, pero he visto que los programas muestran su tipica barra de progreso que indican que el programa esta cargando... rayos no tengo ahora una imagen o de donde capturarla... cualquier ayuda es bien recibida.

De antemano muchas Gracias.

[Krnl64]

Creo haber entendido que quieres hacer 1 barra de progreso

Es eso lo que quieres ?

[_Sergi_]

A mi me extraña que puedas hacer un sistema de control de documentos y no sepas hacer una simple barra de progresos, pero si te sirve de algo saberlo la forma más facil es usar un control llamado ProgressBar, aunque también podrías hacerlo usando una imagen o usando Shapes.

Un saludo

[usrAlT1024]

Creo haber entendido que quieres hacer 1 barra de progreso

Es eso lo que quieres ?

Si amigo, eso es exactamente.

A mi me extraña que puedas hacer un sistema de control de documentos y no sepas hacer una simple barra de progresos.

¬¬... disculpe profe' (rompiendo el hielo)

Gracias por la referencia del Progress Bar voy a investigar mas y a intentarlo, y si tengo alguna duda implementandolo regreso haber si me hechan la mano.

De antemano Gracias por su haberse tomado el tiempo y la molestia de responder

Saludos desde S.L.P. Mexico

[Krnl64]

Propiedades Importantes del control ProgressBar:

Min : valor mínimo de la barra

Max : valor máximo que alcanzara

Value : Valor actual


El truco para que este control funcione es el siguiente:

Asignar el valor Min y Max desde el código y en tiempo de
ejecución.

Asignar el valor de la propiedad Value desde el código y en tiempo de ejecución con un valor tipo Long

Salu2

[usrAlT1024]

Muchas Gracias por su ayuda, nunca me imagine que fuera tan facil hacerla... bueno, dejo el codigo que use por si alguien tiene la misma duda que yo, pues lo vea:

Código [Seleccionar] Expandir

Private Sub Form_Activate()
    Dim i As Long
    Load Form1
    Load Form2
    For i = ProgressBar1.Min To ProgressBar1.Max
        Label1.Caption = (i * 100 / ProgressBar1.Max) & "%"
        DoEvents
        ProgressBar1.Value = i
    Next i
   
    Form1.Show
    fcarga.Hide
End Sub

Gracias nuevamente