none
Cómo Trabajar con BackgroundWorker RRS feed

  • Pregunta

  • Tengo el siguiente código y quiero que funcione dentro de un DoWork para que mientras se ejecuta mostrar una ProgressBar con marquee.....

    Alguna Ayuda Please.....

    Aquí va el código fuente.

    Muchas Gracias.

        Private Sub btnCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalcular.Click
            Dim stPer As String = Me.cmbPer.SelectedValue.ToString.ToUpper.Trim
            Dim inN1 As Integer = Me.Text1.Text
            Dim inN2 As Integer = Me.Text2.Text

            If (inN1 > inN2) Then
                MsgBox("N1 debe ser menor que N2", MsgBoxStyle.Exclamation, "Cálculo")
                Exit Sub
            End If

            Cursor.Current = Cursors.WaitCursor
            If (Not FUNC_Calcular(stPer, inN1, inN2)) Then
                Cursor.Current = Cursors.Default
                MsgBox("Error en el Proceso de Cálculo.", MsgBoxStyle.Exclamation, "Cálculo")
            Else
                Cursor.Current = Cursors.Default
                MsgBox("Cálculo ejecutado en forma Correcta.", MsgBoxStyle.Information, "Cálculo")
            End If
        End Sub

        Public Function FUNC_Calcular(ByVal stPer As String, ByVal inN1 As Integer, ByVal inN2 As Integer) As Boolean
            Dim boSalida As Boolean
            Dim dsParametros As New DataSet
            Dim dsRes As New DataSet
            Dim dtTabla As DataTable = dsParametros.Tables.Add()
            Dim drFila As DataRow = dtTabla.NewRow()

            dtTabla.Columns.Add("Per", GetType(String))
            dtTabla.Columns.Add("iN1", GetType(Integer))
            dtTabla.Columns.Add("iN2", GetType(Integer))

            drFila("Per") = stPer.Trim
            drFila("iN1") = inN1
            drFila("iN2") = inN2

            dtTabla.Rows.Add(drFila)
            dsParametros.AcceptChanges()

            dsRes = Ejecutar_Calculo("ID_PROCESO", dsParametros) 'Proceso que se demora

            If IsNothing(dsRes) Then
                boSalida = False
            Else
                boSalida = True
            End If
            FUNC_Calcular = boSalida
        End Function


    pev

    viernes, 26 de enero de 2018 23:22