LISTVIEW
MOSTRAR OS ULTIMOS ITENS INSERIDOS DE BAIXO PRA CIMA
ABRAÇOS
ABRAÇOS
ListView1.SortOrder = lvwDescending
SANTANANETO,
O ListView possui o objeto interno ListItem, que você já deve conhecer.
Ao adicionar um item á coleção, você pode determinar uma referência á esse item, em formato texto.
As propriedades Sort do controle, por sua vez, pode lhe trazer o resultado esperado, desde que você as utilize da forma desejada.
Segue um exemplo pequeno.
Cole um ListView1 e um Command1 em um form e rode passo á passo.
Private Sub Command1_Click()
Static T As Long
Dim o As ListItem
Dim oo As ColumnHeader
T = T + 1
With ListView1
If Not .ColumnHeaders.Count <> 0 Then
Set oo = .ColumnHeaders.Add(, "Indice", "Indice")
Set oo = .ColumnHeaders.Add(, "Chave", "Chave")
End If
.View = lvwReport
Set o = .ListItems.Add(T, "chave" & T, "texto " & T)
o.ListSubItems.Add , "texto " & T, "texto " & T
.Sorted = True
.SortOrder = lvwDescending
.SortKey = 1
End With
End Sub
O ListView possui o objeto interno ListItem, que você já deve conhecer.
Ao adicionar um item á coleção, você pode determinar uma referência á esse item, em formato texto.
As propriedades Sort do controle, por sua vez, pode lhe trazer o resultado esperado, desde que você as utilize da forma desejada.
Segue um exemplo pequeno.
Cole um ListView1 e um Command1 em um form e rode passo á passo.
Private Sub Command1_Click()
Static T As Long
Dim o As ListItem
Dim oo As ColumnHeader
T = T + 1
With ListView1
If Not .ColumnHeaders.Count <> 0 Then
Set oo = .ColumnHeaders.Add(, "Indice", "Indice")
Set oo = .ColumnHeaders.Add(, "Chave", "Chave")
End If
.View = lvwReport
Set o = .ListItems.Add(T, "chave" & T, "texto " & T)
o.ListSubItems.Add , "texto " & T, "texto " & T
.Sorted = True
.SortOrder = lvwDescending
.SortKey = 1
End With
End Sub
nao da qdo passa para 2 casas
Tópico encerrado , respostas não são mais permitidas