Mostrar Barra Progreso al entrar a Tab

[Highlander]

Hola tengo un form que tiene varias pestañas, en una de ellas llamada CALCULOS ejecuto una rutina que demora como 60 segundos, entonces la idea es que cuando el usuario ingrese a dicha pestaña muestre un PROGRESS BAR mientras carga los datos.

Para ello hice:

Código:

Private Sub TabPage4_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabPage4.Enter

        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = ContarCalculos(Codigo)
        ProgressBar1.Value = 0

        'Obtengo la informacion nutricional
        'textBox1.Text = mCalc.Calculos(Codigo)
    End Sub

Y dentro de la rutina agrege:

Código:

'Defino instancias
Dim frmCalculos As frmCalculos = frmCalculos.Instance

'Esto va dentro del ciclo que calcula (omito el proceso entero pq es largo)
frmRecetas.ProgressBar1.Value = frmRecetas.ProgressBar1.Value + 1

Pero no resulto como yo esperaba, cuando el usuario entra a la pestaña se queda esta se abre y no muestra nada durante los 60 segundos, luego de eso muestra el PROGRESS BAR que se llena casi de inmediato y muestra los datos.

Alguna sugerencia? gracias.

[Aquaventus]

yo hago algo parecido a lo que tu comentas, ando de salida del trabajo porque son las 5 en punto, llego y posteo el code adaptado a lo que muestras. Espero que tengas paciencia porque demorare una hora en llegar . Saludos!.

[Highlander]

Te lo agradeceria.

[Aquaventus]

Disculpame la demora Highlander, tuve problemas de conexion a internet, ahora, lo que hize fue crear un formulario aparte llamado por ejemplo frmProgreso2.cs dentro de el :

Código vb:

Public Delegate Sub trabajo()
 
Public Property Delegado() As trabajo
    Get
        Return m_Delegado
    End Get
    Set
        m_Delegado = Value
    End Set
End Property
Private m_Delegado As trabajo
 
Public Sub New(delegado__1 As trabajo)
    InitializeComponent()
    Delegado = delegado__1
End Sub
 
Private Sub frmProgreso2_Load(sender As Object, e As EventArgs)
    backgroundWorker1.RunWorkerAsync()
End Sub
 
Private Sub backgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs)
    progressBar1.Style = ProgressBarStyle.Marquee
    Delegado()
End Sub
 
Private Sub backgroundWorker1_ProgressChanged(sender As Object, e As ProgressChangedEventArgs)
    progressBar1.Style = ProgressBarStyle.Marquee
End Sub
 
Private Sub backgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs)
    progressBar1.Style = ProgressBarStyle.Blocks
    DialogResult = DialogResult.OK
    Me.Close()
End Sub
 

luego para llamar a ese formulario seria por ejemplo en una carga de datos seria de esta manera :

Código vb:

Dim proceso As New frmProgreso2(listarDatos)
If proceso.ShowDialog(Me) = DialogResult.OK Then
    dgUsuarios.DataSource = dg1.DataSource
End If
 

donde listar datos es un sub que hago la carga a un datagrid, que en este caso es dg1, una vez terminado lo paso al datagridview y es ahi donde puedes hacer lo que quieras una vez terminado espero te sea de utilidad, pero ojo que aqui :

Dim proceso As New frmProgreso2(listarDatos) - todo aquel que entre dentro de frm progreso tiene que ser un sub sin paramatros, tiene que tener esta estructura:

Código vb:

Public Sub listarDatos() 'Debe ser asi como te dije sin parametro
'aqui dentro ya haces el llenado a un grid para que luego lo pases los datos
    dg1.DataSource = objusu.LISTADOUSU()
End Sub
 

si puedes mejorarlo en buena hora, esta hecho con BackgroundWorker, puedes investigar de ello y manejarlo mucho mejor . Espero te sea de utilidad. Saludos!.

PDT: Lo tengo hecho en c# tuve que pasarlo a vb

[Highlander]

Gracias por responder, voy ver como lo aplico ya que tiene varias cosas que desconozco.

Saludos.