Visual Basic.NET - Progress Bar

   
Vista:

Progress Bar

Publicado por Adrian (8 intervenciones) el 17/11/2009 13:55:04
Hola, tengo la sig. Funcion que la llamo desde un boton

Function GridAExcel(ByVal ElGrid As DataGridView) As Boolean
'Creamos las variables
Dim exApp As New Microsoft.Office.Interop.Excel.Application
Dim exLibro As Microsoft.Office.Interop.Excel.Workbook
Dim exHoja As Microsoft.Office.Interop.Excel.Worksheet

Try
'Añadimos el Libro al programa, y la hoja al libro
exLibro = exApp.Workbooks.Add
exHoja = exLibro.Worksheets.Add()

' ¿Cuantas columnas y cuantas filas?
Dim NCol As Integer = ElGrid.ColumnCount
Dim NRow As Integer = ElGrid.RowCount

'Aqui recorremos todas las filas, y por cada fila todas las columnas y vamos escribiendo.
For i As Integer = 1 To NCol
exHoja.Cells.Item(6, i) = ElGrid.Columns(i - 1).Name.ToString
'exHoja.Cells.Item(6, i).HorizontalAlignment = 3
Next

For Fila As Integer = 0 To NRow - 1
For Col As Integer = 0 To NCol - 1
exHoja.Cells.Item(Fila + 7, Col + 1) = ElGrid.Rows(Fila).Cells(Col).Value
Next
Next
'Titulo en negrita, Alineado al centro y que el tamaño de la columna se ajuste al texto
exHoja.Rows.Item(6).Font.Bold = 1
exHoja.Rows.Item(6).HorizontalAlignment = 3
exHoja.Columns.AutoFit()

'Aplicación visible
exApp.Application.Visible = True

exHoja = Nothing
exLibro = Nothing
exApp = Nothing

Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error al exportar a Excel")
Return False
End Try

Return True
End Function

La funcion me exporta el DataGridView a un libro de Excel, lo que necesitaria es agregar un Progress Bar al formulario dependiendo de lo que tarde en exportarse el DataGridView al Excel. Alguien me podria pasar codigo para realizarlo.
Otra pregunta tambien, alguien sabe que le podria agregar a la funcion para que cuando se abra la hoja de Excel lo haga por delante del formulario y no por detras del mismo.
Muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Progress Bar

Publicado por csdk (17 intervenciones) el 18/11/2009 19:12:03
ProgressBar1.Visible = True

ProgressBar1.Maximum = 100
ProgressBar1.Value = 0
P = 0
Do While P < 100
p = p + 5
ProgressBar1.Value = P
x = 0
Do While x < 100000

x = x + 4
Loop
Loop
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Progress Bar

Publicado por Orcano (42 intervenciones) el 18/11/2009 22:39:07
Puedes manejar la opción que comenta csdk solo que para que te marque el tiempo exacto de ejecución establece el máximo valor de tu progress bar igual a tu número de filas.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Progress Bar

Publicado por Adrian (8 intervenciones) el 19/11/2009 01:22:28
Hola, gracias por la ayuda a ambos pero como eclaro las P y las X

Muchas gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Progress Bar

Publicado por mar (1 intervención) el 12/04/2010 21:47:36
hola tengo un programa el cual me arroja km datos los estados de la republica pero toda la informacion junta en una sola pestaña.

mi pregunta es como le puedo hacer para q cuando yo seleccione ciertos estados me arroje la informacion pero en la misma hoja de excel pero con las pestañas correspondientes de cada estado. agradezco su atencion espero me puedan ayudar ha y el programa q estoy manejendo es en progress
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar