0

compañeros. Alguien podría explicarme como puedo usar un progressBar diseñado en otro Form? E visto muchos videos en Youtube y no logro comprender como utilizar este control, los videos que e visto muestran el progressbar dentro del mismo formulario y no desde otro form. Te muestran como poner a correr la carga por medio de for, for each etc.. pero no veo que expliquen una tarea real como cargar una ventana con contenido, o cuando esperas la respuesta del servidor, cuando exportas datos...

  1. Modulo donde está el código de exportación a excel:

    Public RutaArchivo As String
    Public CantidadRegistros As Integer
    Public RegistrosTerminados As Integer
    
    Sub GenerarReporte(ByVal NombreDataGrid As DataGridView, 
    TamañoLetra As Integer, NombreDefaultReporte As String)
    
    'Se debe instalar el paquete Nuguet SpreadsheetLight y hacer 
    'referencia a DocumentFormat.OpenXML
    
    Dim Sl As New SLDocument
    Dim Columna As DataGridViewColumn
    Dim iCol As Integer = 1
    Dim iRow As Integer = 2
    
    'Se define el tamaño de la letra para el encabezado de las 
    'columnas y ponerle negrilla
    Dim Estilo As New SLStyle
    Estilo.Font.FontSize = TamañoLetra
    Estilo.SetFontColor(Color.DimGray)
    Estilo.Font.Bold = True
    '_____________________________________________________________
    
    For Each Columna In NombreDataGrid.Columns
    
        Sl.SetCellValue(1, iCol, Columna.HeaderText.ToString())
        Sl.SetCellStyle(1, iCol, Estilo)
        iCol = iCol + 1
    Next
    
    For Each Row In NombreDataGrid.Rows
        CantidadRegistros = NombreDataGrid.Rows.Count
        Dim ColumnaInicial As Integer = 1
        Dim CantidadColumnas As Integer = 
        NombreDataGrid.ColumnCount
    
        For i As Integer = 0 To CantidadColumnas Step 1
            Sl.SetCellValue(iRow, ColumnaInicial, 
        Row.Cells(i).Value.ToString())
            ColumnaInicial = ColumnaInicial + 1
        Next
        iRow = iRow + 1
        RegistrosTerminados = iRow
    
    Next
    
    Dim SaveFileDialog1 As New SaveFileDialog
    
    SaveFileDialog1.DefaultExt = " *.xlsx"
    SaveFileDialog1.FileName = NombreDefaultReporte
    SaveFileDialog1.Filter = "Archivos de Excel (*.xlsx)|*.xlsx"
    SaveFileDialog1.ShowDialog()
    
    Sl.SaveAs(SaveFileDialog1.FileName)
    
    End Sub
    
  2. Botón de Exportar

    Private Sub BtnExportar_Click(sender As Object, e As EventArgs) 
     Handles BtnExportar.Click
        If BackgroundWorker1.IsBusy <> True Then
    
          BackgroundWorker1.RunWorkerAsync()
    
        End If
    
    End Sub
    
  3. Evento DoWork de mi BackgroundWorker, es aqui donde le llamo la funcion generar reporte, pero antes de llamarla llamo a mi barra de progreso personalizada FrmBarraProgreso.

    Esta es mi barra de progreso

    Dim FechaHoy As Date = Date.Now

    Dim F As String = Format(CDate(FechaHoy), "dd-MM-yyyy ( HH 'Hrs' mm 'Min' ss 'Seg' )")

    GenerarReporte(DgvEmpleados, 12, "Reporte de Empleados" + " --- " + F)

    System.Threading.Thread.Sleep(500)

BackgroundWorker1.ReportProgress(CreadorReportes.RegistrosTerminados / CreadorReportes.CantidadRegistros * 100)

  1. Evento ProgressChanged de mi BackgroundWorker,aqui es donde le envio informacion a mi ProgressBar para que vaya cargandose.

    FrmBarraProgreso.Guna2ProgressBar1.Value = e.ProgressPercentage

    FrmBarraProgreso.LblPorcentaje.Text = e.ProgressPercentage & "%"

  2. Evento RunWorkerCompleted de mi BackgroundWorker, aqui solo llamaria un MsgBox diciendo que el proceso de exportacion a sido exitoso.

Eso sería todo, agradezco su ayuda.

14
  • fijate si esto que arme alguna vez no te sirve. Igual asi como esta, tu pregunta es muy amplia... por ejemplo, no es lo mismo en wpf que en winforms... y tampoco queda claro si no entendes eventos o threads... porque si esta en el mismo o en otro no cambia nada...
    – gbianchi
    Commented el 22 ago. 2022 a las 12:50
  • Es que tengo un datagrid que se llena desde una base de datos y adicional un botón de exportar, al presionar el botón quiero que me salga un formulario de windows form con mi progressbar y posterior a eso empiece hacer la tarea de exportación en segundo plano. No consigo que se muestre mi progresso y se queda congelando al rededor de 35 segundos en el proceso de exportación. Commented el 24 ago. 2022 a las 13:16
  • Y el codigo de todo eso para poder señalarte que estas haciendo mal?
    – gbianchi
    Commented el 24 ago. 2022 a las 13:28
  • @gbianchi Edité mi pregunta principal agregando mas detalle de mi código. A partir de la opción 3 no pude meter el código dentro de { } el sistema no me lo permitió, pero creo que se entiende. Commented el 24 ago. 2022 a las 14:38
  • No uses background worker.. usa async/await y no vas a tener problemas con las actualizaciones de pantalla...
    – gbianchi
    Commented el 24 ago. 2022 a las 15:02

1 respuesta 1

0

He probado realizarlo de esta forma

Private Async Sub BtnExportar_Click(sender As Object, e As EventArgs) Handles BtnExportar.Click

    Dim CargarReporte = New Task(Function()
                                     Dim FechaHoy As Date = Date.Now
                                     Dim F As String = Format(CDate(FechaHoy), "dd-MM-yyyy ( HH 'Hrs' mm 'Min' ss 'Seg' )")
                                     GenerarReporte(DgvEmpleados, 12, "Reporte de Empleados" + " --- " + F)
                                 End Function)

    CargarReporte.Start()
   

    Dim MostrarProgreso = New Task(Function()
                                       FrmBarraProgreso.Show()
                                       FrmBarraProgreso.Guna2ProgressBar1.Value = (CInt(CreadorReportes.CantidadRegistros / CreadorReportes.RegistrosTerminados * 100))
                                   End Function)
    MostrarProgreso.Start()
    Await MostrarProgreso

End Sub

No lo e logrado hacer me salta error en FrmBarraProgreso.Guna2ProgressBar1.Value = (CInt(CreadorReportes.CantidadRegistros / CreadorReportes.RegistrosTerminados * 100)) que me dice: System.OverflowException: 'La operación aritmética ha provocado un desbordamiento.'

Ya no se que mas hacer.

Solo quiero que al momento de hacer la exportación salga mi barra de progreso cargando de acuerdo de cuantos registros se hayan completado para la exportación hasta llegar a 100%

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.