Skip to main content
se añadieron 95 caracteres en el cuerpo
Origen Enlace
  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)

  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.

    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)

  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)

se añadieron 3376 caracteres en el cuerpo
Origen Enlace

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... Agradezco sus ayudas

  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.

    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.

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... Agradezco sus ayudas.

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.

    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.

etiquetas editadas
Enlace
gbianchi
  • 20.6k
  • 13
  • 40
  • 60
Origen Enlace
Loading