Ejemplos usando el Api de windows para Visual basic

94 - Minimizar el parpadeo al ingresar muchos datos en un control ListView

Volver al Listado Api - Anterior - Siguiente

Ejemplo muy interesante que muestra como hacer para que al agregar muchos datos en un control ListView, este no parpadee, como lo hacen la mayoría de los controles de lista al cargar muchos elementos o items en el control.

En el ejemplo se le debe pasar a SendMessage el hwnd del contendeor del ListView, es decir, si el control ListView está en el formulario, se le pasa el hwnd del form, si el LV por ejemplo está dentro de un PictureBox hay que pasar el Hwnd del Picture

Nota: Yo lo intenté adaptar también a un control ListBox y funciona, el problema con el ListBox es que una ves cargado los datos, no redibuja las barras de desplazamiento del control, para que vuelvan a aparecer hay que minimizar la ventana del formulario. Esto se podría solucionar con alguna otra llamada a alguna función Api que fuerce el repintado de la ventana o algo por el estilo, pero probé con varios métodos y no logré hacerlo.

Controles - Colocar

un control CheckBox llamado Check1
un control ListView llamado ListView1
y un CommandButton con el nombre Command1

Código fuente del formulario

'Api SendMessage Private Declare Function SendMessage Lib "user32" Alias _ "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As _ Long, ByVal wParam As Long, lParam As Any) As Long Private Const WM_SETREDRAW As Long = &HB& Private Sub Command1_Click() Dim I As Long ListView1.ListItems.Clear 'Desactivamos el Autoredraw del contenedor del ListView, en este caso el form If Check1.Value = vbChecked Then SendMessage Me.hwnd, WM_SETREDRAW, 0&, 0& End If 'Agregamos 15000 items For I = 1 To 15000 DoEvents ListView1.ListItems.Add I, , "Elemento: " & I Next I 'Activamos el Autoredraw del contenedor del ListView, en este caso el form If Check1.Value = vbChecked Then SendMessage Me.hwnd, WM_SETREDRAW, 1&, 0& End If ListView1.Refresh End Sub Private Sub Command2_Click() ListView1.ListItems.Clear End Sub Private Sub Form_Load() Check1.Caption = " Activar " Command1.Caption = " Llenar ListView" End Sub

Enlaces relacionados

Buscar en Recursos vb