LISTVIEW

RICOCARDOZO 03/07/2013 15:19:50
#425515
Olá Tenho um listview onde carrego alguns menus tipo :

Private Sub carrega_list()
Dim Item As ListItem
Set Item = Lmenu.ListItems.Add(, , [Ô]Resumo das Operações[Ô], 1)
Set Item = Lmenu.ListItems.Add(, , [Ô]Pagamentos diversos[Ô], 2)
Set Item = Lmenu.ListItems.Add(, , [Ô]Recebimentos Diversos[Ô], 3)
Set Item = Lmenu.ListItems.Add(, , [Ô]Caixa Conta Movimento[Ô], 4)
Set Item = Lmenu.ListItems.Add(, , [Ô]Banco Conta Movimento[Ô], 5)
Set Item = Lmenu.ListItems.Add(, , [Ô]Relatórios[Ô], 6)
Set Item = Lmenu.ListItems.Add(, , [Ô]Configurações Diversas[Ô], 7)
Set Item = Lmenu.ListItems.Add(, , [Ô]Dados do Usuario[Ô], 8)
Set Item = Lmenu.ListItems.Add(, , [Ô]Fechar o Sistema[Ô], 9)
End Sub

Eu queria criar um subitem tipo ao clicar no [Ô]Pagamentos diversos[Ô] usando o mesmo listview carregar:
Set Item = Lmenu.ListItems.Add(, , [Ô]Pagamentos diversos[Ô], 2)
Set Item = Lmenu.ListItems.Add(, , [Ô]Novo Registro[Ô], 10)
Set Item = Lmenu.ListItems.Add(, , [Ô]Editar Registro[Ô], 11)
Set Item = Lmenu.ListItems.Add(, , [Ô]Excluir Registro[Ô], 12)
Set Item = Lmenu.ListItems.Add(, , [Ô]Voltar ao Menu Anterior[Ô], 13)
KERPLUNK 03/07/2013 15:32:17
#425517 Resposta escolhida
O que você quer é um TreeView e não um ListView...
NALDOXD 03/07/2013 15:35:08
#425518
no evento listview.click você vai adicionar algo parecido com

if listview.items[3] = 2 [Ô]Pagamentos diversos[Ô]
listview.items.clear
adiciona novos itens

ou você pode adicionar eles sem limpar o listview o que não seria aconselhável.
RICOCARDOZO 03/07/2013 16:30:23
#425519
Fiz assim

If Lmenu.SelectedItem = [Ô]Pagamentos Diversos[Ô] Then
Dim Item As ListItem
Lmenu.ListItems.Clear
Set Item = Lmenu.ListItems.Add(, , [Ô]Incluir Registros[Ô], 10)
Set Item = Lmenu.ListItems.Add(, , [Ô]Editar Registros [Ô], 11)
Set Item = Lmenu.ListItems.Add(, , [Ô]Excluir Registros[Ô], 12)
Set Item = Lmenu.ListItems.Add(, , [Ô]Voltar ao Menu Anterior[Ô], 13)
End If

If Lmenu.SelectedItem = [Ô]Voltar ao Menu Anterior[Ô] Then
Lmenu.ListItems.Clear
carrega_list
End If

Ta dando runtime error 35600 [Ô]index out of bounds[Ô]
RICOCARDOZO 03/07/2013 16:46:22
#425521
Ja' arrumei , tava informando o imagelist errado.
NALDOXD 03/07/2013 17:19:40
#425529
Citação:

:
Ja' arrumei , tava informando o imagelist errado.



Bom amigo, encerre o tópico e se possível vote na melhor resposta!
Tópico encerrado , respostas não são mais permitidas
Voltar