20/09/2011, 13:18
|
| | | Fecha de Ingreso: noviembre-2010 Ubicación: madrid
Mensajes: 478
Antigüedad: 13 años, 6 meses Puntos: 5 | |
| Respuesta: backgroundWorker un ejemplito?
GRACIAS JHONWILLIAMS...al final me sirvió...para si alguién le sirve
Dim plutpv As New Integer
Dim valorPorcentaje As Integer
Dim Total As Integer '= 1000
Dim retSuma As Integer = 0
'hago visibel el progressbar y el txtbox que lo hago invisible en el LOAD
ProgressBar1.Visible = Enabled
LblStatus.Visible = Enabled
Total = data1.Tables("Productos").Rows.Count
For i = 0 To data1.Tables("Productos").Rows.Count - 1
plutpv = data1.Tables("Productos").Rows(i).Item("PLU").ToSt ring
retSuma += i
valorPorcentaje = Convert.ToInt32((i / Total) * 100)
frmProgressBarProd.Close()
ProgressBar1.Value = valorPorcentaje
LblStatus.Text = CStr(Total.ToString("#,##0.00 Completado"))
'retSuma.ToString
bWorkComplete = True |