Problemas con progressbar - VB-MUNDO

andree2525 · #1 (**permalink**) 29-10-2004, 14:23:31

Hola amigos, gracias por toda la ayuda y consejos que me han dado..pero para variar tengo otro problema:

quiero pasar de un form a otro y se demora como 5 segundos.Para eso quiero poner un progresbar..pero lo pongo y se ejecuta el progresbar primero, se llena y despues va al form demorandose igual 5 seg.. Lo que quiero es que en los 5 seg. que se demora de un form a otro se este ejecutando el progresbar, como lo hago....Ayuda y gracias

J.M.Movilla · #2 (**permalink**) 29-10-2004, 15:55:08

Es de suponer que esos cinco segundos los invierta "haciendo cosas"... Lo primero que he de decirte que que no me hago idea de qué cosas son las que tu aplicación tiene que hacer para tardar cinco segundos, aunque me imagino que se los pase abriendo un fichero de mucho peso y cargando algún combo, por ejemplo... Pues ahí es donde tienes que poner el progressbar, de forma que cuando termine de rellenar éste también haya terminado ya de leer ese gran fichero. Si el proceso que produce la demora es otro, has de ingeniártelas para que la carga de la barra de progreso coincida con el avance de ejecución del proceso que produce la demora. Posiblemente tengas que hacer un Me.Refresh en algún punto, por si lo que te ocurre es que sí está haciendo bien las cosas, pero no sincroniza su presentación...

andree2525 · #3 (**permalink**) 29-10-2004, 16:21:08

no entiendo, tienes algun ejemplo................

J.M.Movilla · #4 (**permalink**) 29-10-2004, 16:48:45

Pues es que pides un ejemplo, pero sigues sin aclarar qué es lo que tu programa hace durante esos cinco segundos... Así que te pondré el ejemplo partiendo del supuesto a que yo hacía referencia, que es que estás rellenando un ComboBox, de nombre CboProv

Supongo también que tienes definido un DataEnvironment de nombre DEnv, al que has agregado un Command de nombre Proveed, para rellenar el ComboBox.

Código:

Private Sub Form_Resize()
    ProgressBar1.Value = 0
    With DEnv.rsProveed
        If .State = 0 Then .Open
        ProgressBar1.Max = .RecordCount
        Do While Not .EOF
            CboProv.AddItem .Fields("Literal")
            ProgressBar1.Value = ProgressBar1.Value + 1
            .MoveNext
        Loop
        .MoveFirst
        CboProv.Text = .Fields("Literal")
    End With
End Sub

Espero te haya quedado suficientemente aclarado, si acerté a exponerte un código que se asemeje a lo que tú haces en tu formulario.

Francisco · #5 (**permalink**) 30-10-2004, 01:19:09

Una Saludo...

Segun te entendi yo lo que te esta afectando o quieres cambiar es el orden de ejecucion de procesos en el proyecto .... si es asi creeo que esto te puede ayudar...

En tu barra de Menus (Archivo (File) Edicion (edit)ver (view) ) busca un menu que se llame projecto (project)...... y en la parte de asta abajo del menu encontras una opcion que dice propiedades del proyecto (proyect1 properties) en la pestaña de general encontraras los forms y demas comandos en el orden en que se estan ejecutando los cuales podras modificar asta que quedes satisfecho

-------------Si es que te entendi bien....... SUERTE y ANIMO

J.M.Movilla · #6 (**permalink**) 30-10-2004, 09:31:21

Me parece, Francisco, que estás un poco liado con ese concepto de que tú puedes determinar el orden de ejecución de los diversos Forms.

En esa opción que tú apuntas lo único que puedes hacer es seleccionar, como indica Visual, el Objeto inicial (es decir, por dónde tiene que empezar a ejecutarse la aplicación). Luego ya será tu código el que vaya definiendo por dónde seguir.

Comprueba cómo es imposible modificar el orden de la lista de objetos que aparecen para que selecciones el inicial.

Francisco · #7 (**permalink**) 01-11-2004, 23:36:47

Hola ...

E hecho la prueba que me mencionas sin resultado.... gracias por la aclarcion.....