Sección de códigos , trucos y ejemplos para visual basic

342 - Ordenar ListView

Ejemplo que muestra como ordenar un control Listview al hacer clic en una columna del control en forma ascendente y descendente

El ejemplo carga en el ListView datos en cuatro columnas.

La primer columna es para indicar datos de tipo cadena o String. La segunda columna se añaden datos de tipo numéricos , la tercera de tipo Fecha, y la cuarta también datos de tipo numéricos

Formulario

vista previa del formulario para ordenar el Listview

A cada columna del Listview, en la propiedad Tag, se le debe indicar que tipo de dato contendrá dicha columna, para luego al hacer clic en un encabezado ( evento ColumnClick ) , ejecute el Select case correspondiente que tiene el código para ordenar cada tipo de dato

Por ejemplo si la primer columna es de tipo String o cadena

Listview.ColumnHeaders.Add(, , "Cadenas").Tag = "STRING"

.. y asi con el resto de columnas

También se usa la función api SendMessage para deshabilitar el repintado del formulario y en caso de que el Listview contenga muchos datos, el carga sea mas rápida

Para el ejemplo colocar un control Listview en el formulario y el siguiente código fuente

Nota: Si se quiere ordenar el Listview sin hacer clic en el mismo, por ejemplo en alguna llamada a alguna función desde algua parte del código, ejecutar el evento ColumnClick pasándole como parámetro la columna por la cual ordenar, por ejemplo :

ListView1_ColumnClick ListView1.ColumnHeaders(1)

Código fuente en el form

Option Explicit ' DEclaración de la Función 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 Form_Load() Me.Caption = " Ordenar Listview por columna " With ListView1 'Agrega cuatro columnas y le asigna el tag a cada una que _ le indica el tipo de dato que contendrá .ColumnHeaders.Add(, , "Cadenas").Tag = "STRING" .ColumnHeaders.Add(, , "Numeros").Tag = "NUMBER" .ColumnHeaders.Add(, , "Fechas").Tag = "DATE" .ColumnHeaders.Add(, , "Numeros").Tag = "NUMBER" ' Añade items a cada columna del Listview Dim i As Long Dim numero As Double Dim Fecha As Date With .ListItems For i = 1 To 1000 With .Add(, , " Item " & Format(i, "0000")) ' columna 1 numero = (Rnd() * 10000) - 5000 Fecha = (Rnd() * 1000) + Date .ListSubItems.Add , , Format(numero, "0.00") ' columna 2 .ListSubItems.Add , , Format(Fecha, "dd/mm/yyyy") ' ' columna 3 .ListSubItems.Add , , Round(numero) ' columna 4 End With Next i End With End With End Sub Private Sub Form_Resize() On Local Error Resume Next ListView1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight End Sub '**************************************************************** ' Evento al hacer clic en la columna '---------------------------------------------------------------- Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader) On Error Resume Next With ListView1 Dim i As Long Dim Formato As String Dim strData() As String Dim Columna As Long Call SendMessage(Me.hwnd, WM_SETREDRAW, 0&, 0&) Columna = ColumnHeader.Index - 1 ''''''''''''''''''''''''''''''''''''''''''''' ' Tipo de dato a ordenar '''''''''''''''''''''''''''''''''''''''''''''' Select Case UCase$(ColumnHeader.Tag) ' Fecha ''''''''''''''''''''''''''''''''''''''''''''' Case "DATE" Formato = "YYYYMMDDHhNnSs" ' Ordena alfabéticamente la columna con Fechas _ ( es la columna que tiene en el tag el valor DATE ) With .ListItems If (Columna > 0) Then For i = 1 To .Count With .Item(i).ListSubItems(Columna) .Tag = .Text & Chr$(0) & .Tag If IsDate(.Text) Then .Text = Format(CDate(.Text), _ Formato) Else .Text = "" End If End With Next i Else For i = 1 To .Count With .Item(i) .Tag = .Text & Chr$(0) & .Tag If IsDate(.Text) Then .Text = Format(CDate(.Text), _ Formato) Else .Text = "" End If End With Next i End If End With ' Ordena alfabéticamente .SortOrder = (.SortOrder + 1) Mod 2 .SortKey = ColumnHeader.Index - 1 .Sorted = True With .ListItems If (Columna > 0) Then For i = 1 To .Count With .Item(i).ListSubItems(Columna) strData = Split(.Tag, Chr$(0)) .Text = strData(0) .Tag = strData(1) End With Next i Else For i = 1 To .Count With .Item(i) strData = Split(.Tag, Chr$(0)) .Text = strData(0) .Tag = strData(1) End With Next i End If End With ' Datos de numéricos ''''''''''''''''''''''''''''''''''''''''''''' Case "NUMBER" ' Ordena alfabéticamente la columna con números _ ( es la columna que tiene en el tag el valor NUMBER ) Formato = String(30, "0") & "." & String(30, "0") With .ListItems If (Columna > 0) Then For i = 1 To .Count With .Item(i).ListSubItems(Columna) .Tag = .Text & Chr$(0) & .Tag If IsNumeric(.Text) Then If CDbl(.Text) >= 0 Then .Text = Format(CDbl(.Text), _ Formato) Else .Text = "&" & InvNumber( _ Format(0 - CDbl(.Text), _ Formato)) End If Else .Text = "" End If End With Next i Else For i = 1 To .Count With .Item(i) .Tag = .Text & Chr$(0) & .Tag If IsNumeric(.Text) Then If CDbl(.Text) >= 0 Then .Text = Format(CDbl(.Text), _ Formato) Else .Text = "&" & InvNumber( _ Format(0 - CDbl(.Text), _ Formato)) End If Else .Text = "" End If End With Next i End If End With ' Ordena alfabéticamente .SortOrder = (.SortOrder + 1) Mod 2 .SortKey = ColumnHeader.Index - 1 .Sorted = True With .ListItems If (Columna > 0) Then For i = 1 To .Count With .Item(i).ListSubItems(Columna) strData = Split(.Tag, Chr$(0)) .Text = strData(0) .Tag = strData(1) End With Next i Else For i = 1 To .Count With .Item(i) strData = Split(.Tag, Chr$(0)) .Text = strData(0) .Tag = strData(1) End With Next i End If End With Case Else .SortOrder = (.SortOrder + 1) Mod 2 .SortKey = ColumnHeader.Index - 1 .Sorted = True End Select End With Call SendMessage(Me.hwnd, WM_SETREDRAW, 1&, 0&) ListView1.Refresh End Sub Private Function InvNumber(ByVal Number As String) As String Static i As Integer For i = 1 To Len(Number) Select Case Mid$(Number, i, 1) Case "-": Mid$(Number, i, 1) = " " Case "0": Mid$(Number, i, 1) = "9" Case "1": Mid$(Number, i, 1) = "8" Case "2": Mid$(Number, i, 1) = "7" Case "3": Mid$(Number, i, 1) = "6" Case "4": Mid$(Number, i, 1) = "5" Case "5": Mid$(Number, i, 1) = "4" Case "6": Mid$(Number, i, 1) = "3" Case "7": Mid$(Number, i, 1) = "2" Case "8": Mid$(Number, i, 1) = "1" Case "9": Mid$(Number, i, 1) = "0" End Select Next InvNumber = Number End Function

Recursos vb 6.0 - Relacionados

Buscar en Recursos vb