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...
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
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
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)
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 & "%"
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.