VB.2005 Cargar ListView en tiempo real

[vejin666]

Hola Foreros, tengo un problemilla con la carga de un ListView.

Tengo un programa que carga una pantalla de inicio que me lleva a una segunda pantalla donde se encuentra un listado de clientes cargados en un ListView. El problema me llega cuando cargo muchos datos, que el programa se queda "colgado" en la primera pantalla hasta que el ListView se carga por completo.

Quisiera que se realizase una carga en "tiempo real" del ListView, es decir, que el usuario vea que se estan cargando datos y que el programa no se ha colgado.

¿Hay alguna forma de hacerlo?

Mil gracias!

[gnzsoloyo]

Es un problema habitual del ListView, porque el mismos se va refrescando mientras lo cargas dinámicamnete. Pero tiene una solución: tiene un método que permite suspender el refresh...
LisView.BeginUpdate()
y su compañero:
LisView.EndUpdate()

[vejin666]

Muchisimas gracias por tu rapida respuesta, pero no consigo que funcione... con los eventos que me has indicado, con listview.beginupdate() el listview no muestra ninguna informacion, y con listview.endupdate() hace lo mismo que antes...

Creo que no entiendo muy bien su funcionamiento. ¿Podrias explicarme mas sobre esos eventos?

Gracias!

[gnzsoloyo]

¿Y lo mandaste a refrescar?

Postea el código completo de la carga (y por favor, usa el Highlight "VBScript")

[vejin666]

Hola gnzsoloyo, lamento el haber tardado tanto en contestar. El codigo para cargar el ListView lo tengo en un Sub.

Código vb:

Sub CargarDatos()
        Dim i As Integer
        Dim contador As Integer
        Try
            com.CommandText = "Select count(*) from clientes"
            If cn.State = ConnectionState.Closed Then
                cn.Open()
            End If
            com.CommandText = "Select * from clientes order by ID"
            datos = com.ExecuteReader
 
            ListView1.Clear()
 
            With ListView1.Columns
                .Add("ID", 30, HorizontalAlignment.Center)
                .Add("Nombre", 75, HorizontalAlignment.Center)
                .Add("Apellidos", 100, HorizontalAlignment.Center)
                .Add("Teléfono", 70, HorizontalAlignment.Center)
                .Add("Dirección", 150, HorizontalAlignment.Center)
                .Add("Población", 90, HorizontalAlignment.Center)
                .Add("Provincia", 90, HorizontalAlignment.Center)
            End With
            contador = 0
            Do While datos.Read
                ListView1.BeginUpdate()
                Dim elem As New ListViewItem
                elem.ImageIndex = 0
                elem.Text = datos.GetValue(0)
                elem.Tag = datos.GetValue(0)
                For i = 1 To datos.FieldCount - 1
                    elem.SubItems.Add(datos.GetValue(i))
                Next
                If contador = 0 Then
                    elem.BackColor = Color.Beige
                    contador = contador + 1
                Else
                    elem.BackColor = Color.Bisque
                    contador = contador - 1
                End If
                ListView1.Items.Add(elem)
                ListView1.EndUpdate()
            Loop
 
            ListView1.View = View.Details
            ListView1.FullRowSelect = True
            ListView1.GridLines = True
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        datos.Close()
        cn.Close()
    End Sub
 

Como puedes ver uso el

Código vb:

ListView1.BeginUpdate()
 

al entrar el el bucle y el

Código vb:

ListView1.EndUpdate()
 

antes de salir del bucle.

Como te dije antes me sigue sin funcionar, asi que creo que no entiendo bien como funcionana esos eventos.

[gnzsoloyo]

Tendría que buscar un poco en la documentación de un par de proyectos sobre los que trabajé ese problema, pero si mal no recuerdo ahora, hay problemas cuando invocas al .BeginUpdate() y .EndUpdate() dentro de un subproceso.
Recuerdo que por un lado, estos dos métodos debían llamarse antes y después de llamar al Sub, y no dentro de él. Y por otro lado, deben implementarse por medio de delegados.
Verifica lo primero, mientras yo buco la documentación de esos casos.

[gnzsoloyo]

Bueno, encontré uno de los proyectos donde trabajé ese tema, y la cosa, pese a mi recuerdo, era exactamente como la estás planteando, pero con un pequeño agregado...
Primero algunos consejos:
1) No acoples la generación de la visualizacion a la base de datos. Crea una clase específica para administrar la relación de la aplicación con la base, y ponle todas las llamadas allí (obviamente creando una para cada caso nuevo que necesites).
2) No configures la visualización del ListView en el mismo método que lo carga. Son acciones y conceptos diferentes. Separalo al menos en dos: Uno para confirurar el control y otro para cargarlo.
3) No manipules directamente el control en el Sub. Pasalo como parámetro y cargalo así. Incluso más, te conviene pasar el control y la tabla de datos (no un reader, por favor, un DataSet o DataTable) para hacer toda la tarea.

Bien, este sería el código original (extirpadas todas las partes no relevantes) de uno de los usados:

Código vb:

Private Sub Mostrar(ByVal List As ListView, ByRef DS() As DataRow)
        ' -----------------------------------------------------------------
        Dim objListItem As New ListViewItem
        ' -------------------------------------------------------------------
        List.BeginUpdate()
        With List
            .Items.Clear()
            Dim contar As Integer = 0
            For Each drw As DataRow In DS
                objListItem = .Items.Add(valor_A_Ingresar, 0)
                ' Valores a ingresar en cada columna
                objListItem.SubItems.Add(drw.Item(0).ToString)
                objListItem.SubItems.Add(drw.Item(1).ToString)
                objListItem.SubItems.Add(drw.Item(3).ToString)
                objListItem.SubItems.Add(drw.Item(4).ToString)
                objListItem.SubItems.Add(drw.Item(5).ToString)
        End With
        ' -----------------------------------------------------------------
        List.EndUpdate()
        ' Esto es para que la aplicación refresque
        Application.DoEvents()
        ' Esto es porque primero oculto el control, a fin de que el refresco del mismo no lo haga más lento.
        LV.Show()
 

[vejin666]

Iniciado por gnzsoloyo

1) No acoples la generación de la visualizacion a la base de datos. Crea una clase específica para administrar la relación de la aplicación con la base, y ponle todas las llamadas allí (obviamente creando una para cada caso nuevo que necesites).
2) No configures la visualización del ListView en el mismo método que lo carga. Son acciones y conceptos diferentes. Separalo al menos en dos: Uno para confirurar el control y otro para cargarlo.
3) No manipules directamente el control en el Sub. Pasalo como parámetro y cargalo así. Incluso más, te conviene pasar el control y la tabla de datos (no un reader, por favor, un DataSet o DataTable) para hacer toda la tarea.

Hola otra vez gnzsoloyo, he seguido tus consejos 2 y 3 (excepto lo de pasar tambien el dataset, esta "Under Construction"), he metido la configuracion de visualizacion del ListView en un Sub aparte, y he enviado por cabecera el ListView en vez de trabajar con el directamente, he colocado los ListView.BeginUpdate() y ListView.EndUpdate() fuera del sub (antes y despues respectivamente de la llamada al sub de carga) y noto una mejoria en la visualiacion de la pantalla, pero he probado a meter un Threading.Thread.Sleep(500) dentro del loop para comprobar la carga.

Código vb:

Do While datos.Read
 
                Threading.Thread.Sleep(500)
                
                Dim elem As New ListViewItem
                elem.ImageIndex = 0
                elem.Text = datos.GetValue(0)
                elem.Tag = datos.GetValue(0)
                For i = 1 To datos.FieldCount - 1
                    elem.SubItems.Add(datos.GetValue(i))
                Next
                If contador = 0 Then
                    elem.BackColor = Color.Beige
                    contador = contador + 1
                Else
                    elem.BackColor = Color.Bisque
                    contador = contador - 1
                End If
                tabla.Items.Add(elem)
            Loop
 

Al meter el Sleep vuelve a quedarse la pantalla congelda, ¿el metodo sleep provoca esos efectos?

Una cosa mas, tu consejo numero 1 no lo entiendo bien, ¿Te refieres a que haga todas las llamadas a la base de datos y cargue un DataSet o DataTable en un sub a parte y luego lo envie a la visualizacion?

Muchas gracias por tu infinita paciencia.