ProgressBar VB.NET

[Geovanny0401]

cordial saludos

nuevamente estoy aca para q me ayuden con esta consulta.

yo tengo un formulario q importa datos plano, bueno cuando lo importo se me queda el formulario en blanco pero el internamete me esta ingresando los datos en la tabla. leyendo me ha parecido muy importante el ProgressBar vb.net, la ayuda es como lo puedo implementar en mi codigo

aca le dejo mi codigo de importar

Código:

Dim I As Integer
        Dim lngFilas As Long = dvgconsulta.Rows.Count - 2
        Try
            If CheckBox1.Checked Then
                con.Execute("DELETE FROM SISBEN")
            End If
            With dvgconsulta
                For I = 0 To lngFilas
                    con.Execute("INSERT INTO SISBEN(FICHA,ZONA,BARRIO,DIRECCION,FECENCUESTA,APE1,APE2,NOM1,NOM2,TIPODOC,DOCUMENTO,FECHNAC,SEXO,PUNTAJE,FECACTENCUESTA,NIVSISBEN,EDAD) VALUES ('" & .Item("FICHA", I).Value & "','" & .Item("ZONA", I).Value & "','" & .Item("BARRIO", I).Value & "','" & .Item("DIRECCION", I).Value & "','" & FechaAMD(.Item("FECENCUESTA", I).Value) & "','" & .Item("APE1", I).Value & "','" & .Item("APE2", I).Value & "','" & .Item("NOM1", I).Value & "','" & .Item("NOM2", I).Value & "','" & .Item("TIPODOC", I).Value & "','" & .Item("DOCUMENTO", I).Value & "','" & FechaDMA(.Item("FECHNAC", I).Value) & "','" & .Item("SEXO", I).Value & "','" & .Item("PUNTAJE", I).Value & "','" & FechaAMD(.Item("FECACTENCUESTA", I).Value) & "','" & .Item("NIVSISBEN", I).Value & "','" & .Item("EDAD", I).Value & "')")
               Next
                sbError.Text = "Usuarios cargado con exito"
            End With
        Catch ex As Exception
            sbError.Text = ex.Message
        End Try

mi pregunta como implemento mi progressbar dentro de mi codigo y quitar el formulario en blanco??

[jaullo]

Mira esto
http://developersdotnet.com/blogs/gu...ows-forms.aspx

[Trulala de cordoba]

A tu codigo lo veas a tener que meter dentro de un BarckgroundWorker o usando un thread.

[Ka0stj]

Comparto la idea de Trulada de cordoba en mi caso utilizo Threads y funcionan a la perfección.

[Geovanny0401]

bueno amigos gracias por la informacion, estuve buscando ejemplos con el BackgroundWorker

aca le muestro el codigo como lo implemente en mi aplicativo pero me genera un error.

Código:

   Private Sub bwProgress_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwProgress.DoWork
        For i As Integer = 1 To 100
            'Realiza una tarea
            System.Threading.Thread.Sleep(100)
            bwProgress.ReportProgress(i)
            If (bwProgress.CancellationPending) Then
                Return
            End If
        Next
    End Sub
    Private Sub bwProgress_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bwProgress.ProgressChanged
        Try
            'Notificar el progreso de la tarea
            ProgressBar1.Value = e.ProgressPercentage
           lblInfo.Text = e.ProgressPercentage+"%"
         Catch ex As Exception
            MsgBox("Error" & ex.Message)
        End Try
        
    End Sub

    Private Sub bwProgress_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwProgress.RunWorkerCompleted
        'Realizamos las operaciones que haya que realizar al terminar el progreso
        lblInfo.Text = "Tarea terminada"
        cmdCerrar.Enabled = True
        Button1.Enabled = True
        ProgressBar1.Value = 0
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Iniciamos el trabajo
        If (Not bwProgress.IsBusy) Then
            bwProgress.RunWorkerAsync()
            cmdCerrar.Enabled = True
            Button1.Enabled = False
        End If
    End Sub

donde esta de color rojo el programa me genera un error "La conversión de la cadena "%" en el tipo 'Double' no es válida." no entiendo ese error

Código HTML:

 lblInfo.Text = e.ProgressPercentage+"%"

espero de su gran ayuda en este codigo

[chichano]

yo creo que con este cambio se arregla:

lblInfo.Text = e.ProgressPercentage.ToString +"%"

[kingtrase]

Para visualizar el porcentaje en un Label es asi!!

--------------------------------------------

' Visualizar el porcentaje en el Label
Label1.text = CLng((ProgressBar1.Value * 100) / ProgressBar1.Maximum) & " %"

---------------------------------------------

Cambia Label1 por el nombre de tu label... (esta claro)


O si lo prefieres de la otra forma (la que estabais utilizando)
es asi!!!
---------------------------------------------
(no se si lo saben pero el "+" es un operario de suma, deven poner "&"


lblInfo.Text = e.ProgressPercentage & "%"
----------------------------------------------
(esta forma nuca la e probado pero creo que no funciona