Ejemplos usando el Api de windows para Visual basic

198 - Acelerar la carga de datos en un control ListBox

Ejemplo que utiliza la función del Api SendMessage para desactivar el repintado de la ventana y poder cargar muchos datos en forma mas rápida

El ejemplo es igual este otro : Acelerar carga de datos en un Listview.

Con la diferencia que en este ejemplo, luego de que se terminaron de añadir todos los items en el ListBox, se llama a la función SetWindowPos para redibujar el control, ya que si no se utiliza esta última api, el ListBox no mostrará las barras de scroll, y habrá que volver a repintar la ventana manualmente para poder refrescar y que se visualice correctamente el control ListBox

En el siguiente código , se muestra la comparación , cargando elementos de la forma normal, y utilizando este método.

Controles

Colocar un control ListBox llamado List1
Dos CommandButton

Código fuente en el formulario

' Constantes para SetWindowPos Const SWP_FRAMECHANGED = &H20 Const SWP_NOMOVE = &H2 Const SWP_NOZORDER = &H4 Const SWP_NOSIZE = &H1 Const SWP_Flags = SWP_FRAMECHANGED Or SWP_NOMOVE Or SWP_NOSIZE ' Api SetWindowPos Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _ ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _ ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long '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 ' Mensaje para SendMessage que manipula el redibujada _ de la ventana , en este caso el contenedor del ListBox Private Const WM_SETREDRAW As Long = &HB& '**************************************************************************** ' Sub que bloquea y desactiva el redibujado de la ventana Sub Repintado(El_ListBox As Control, Bloquear As Boolean) 'Desactiva el repintado del contenedor del listbox If Bloquear Then Call SendMessage(El_ListBox.Container.hwnd, WM_SETREDRAW, 0&, 0&) Else 'Activa el repintado del contenedor del ListBox Call SendMessage(El_ListBox.Container.hwnd, WM_SETREDRAW, 1&, 0&) ' Refresca el control ( Lo redibuja, si no no se viualizan las barras de scroll ) Call SetWindowPos(El_ListBox.hwnd, 0, 0, 0, 0, 0, SWP_Flags) ' Refresca el listbox para mostrar los items El_ListBox.Refresh End If End Sub ' Método Normal ( el Lento ) Private Sub Command1_Click() Dim i As Long Dim t As Long ' Para contar los segundos t = Timer Screen.MousePointer = vbHourglass List1.Clear ' Añade 50.000 items For i = 0 To 50000 List1.AddItem " Item : " & i Next Screen.MousePointer = vbNormal ' Muestra el tiempo transcurrido MsgBox Timer - t & " segundos", vbInformation End Sub ' Método rápido ( desactivando el repintado de la ventana ) Private Sub Command2_Click() Dim i As Long Dim t As Long ' Para tomar el tiempo t = Timer Screen.MousePointer = vbHourglass List1.Clear ' DEsactiva el repintado Call Repintado(List1, True) ' Agrega 50.000 elementos al List1 For i = 0 To 50000 List1.AddItem " Item : " & i Next ' Activa el repintado Call Repintado(List1, False) Screen.MousePointer = vbNormal MsgBox Timer - t & " segundos", vbInformation End Sub Private Sub Form_Load() Command1.Caption = " Método Lento " Command2.Caption = " Método rápido " End Sub

Buscar en Recursos vb