CHAMAR CÓDIGO POR FUN?ÃO
Pessoal, eu gostaria de colocar a função abaixo em um módulo ou modulo de
classe (o que for mais didático) para chamar em todas as listviews.
Este é o código na listview:
No modulo mudaria o tÃtulo e entraria a lst como como listview:
Em teoria a função seria chama assim:
Mas dá a mensagem de tipos incopativeis.
Tentei colocar como [txt-color=#0000f0]Function[/txt-color] mas o erro é o mesmo
classe (o que for mais didático) para chamar em todas as listviews.
Este é o código na listview:
Private Sub lstOperacoes_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
With lstOperacoes
If (.Sorted) And (ColumnHeader.SubItemIndex = .SortKey) Then
If .SortOrder = lvwAscending Then
.SortOrder = lvwDescending
Else
.SortOrder = lvwAscending
End If
Else
.Sorted = True
.SortKey = ColumnHeader.SubItemIndex
.SortOrder = lvwAscending
End If
.Refresh
If Not .SelectedItem Is Nothing Then
.SelectedItem.EnsureVisible
End If
End With
End Sub
No modulo mudaria o tÃtulo e entraria a lst como como listview:
Sub OrdenarColuna(ByVal ColumnHeader As MSComctlLib.ColumnHeader, lst as Listview)
Em teoria a função seria chama assim:
OrdenarColuna lstClientes.ColumnHeaders,lstClientes
Mas dá a mensagem de tipos incopativeis.
Tentei colocar como [txt-color=#0000f0]Function[/txt-color] mas o erro é o mesmo
MSComctlLib.ColumnHeader é uma collection, então vc tem que passar o index da coluna ou a key..
ficaria assim:
ou
ficaria assim:
OrdenarColuna lstClientes.ColumnHeaders(1), lstClientes
ou
OrdenarColuna lstClientes.ColumnHeaders([Ô]nome[Ô]), lstClientes
Ganda, acho que dessa forma não será feito para qualquer coluna clicada
uma vez que teria que informar.
uma vez que teria que informar.

Nem vi direito...sorry... Pode passar logo a coluna então....
ou o index da coluna:
EDIT: COLOQUE OS NOME CORRETOS DAS LISTVIEWS
Private Sub lstOperacoes_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
OrdenarColuna ColumnHeader, lstClientes
End Sub
ou o index da coluna:
Private Sub lstOperacoes_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
OrdenarColuna lstClientes.ColumnHeaders(ColumnHeader.Index), lstClientes
End Sub
EDIT: COLOQUE OS NOME CORRETOS DAS LISTVIEWS
Ganda, muito obrigado, minha inteção é cada vez mais reduzir
linhas em meu projeto, você ajudou muito



linhas em meu projeto, você ajudou muito





Tópico encerrado , respostas não são mais permitidas