Nombre: Optimizar ListView
Descripción:
Código fuente para que su carga de datos en un listview no se larga y tediosa
URL: http://www.mygnet.net/codigos/vb/metodo_y_comandos/optimizar_listview.1149
Código Fuente:
Option Explicit
Private Declare Sub InvalidateRect Lib "user32" (ByVal hWnd As Long, ByVal t As Long, ByVal bErase As Long)
Private Declare Sub ValidateRect Lib "user32" (ByVal hWnd As Long, ByVal t As Long)
Private Sub Command1_Click()
Dim I As Long
ListView1.View = 3
With ListView1.ListItems
.Clear
For I = 1 To 500
.Add , , "test " & CStr(I)
DoEvents
Next I
End With
End Sub
Private Sub Command2_Click()
Dim I As Long
ListView1.View = 3
With ListView1.ListItems
.Clear
For I = 1 To 500
.Add , , "test " & CStr(I)
ValidateRect ListView1.hWnd, 0&
If (I Mod 10) = 0 Then InvalidateRect ListView1.hWnd, 0&, 0&
DoEvents
Next I
End With
InvalidateRect ListView1.hWnd, 0&, 0&
End Sub
Descargar