TREVIEW
Olá veja só
Neste exemplo tem um menu em negrito e tres submenus , só que ele já carrega expandido.
eu queria que ele ficasse recolhido dentro das opções Pagamentos.
Ate da certo de uma outra maneira mais como no submenu não tem imagem ele da um espaço para dai aparecer o [Ô]Resumo Diario [Ô] , mesmo deixando a opção identation com valor 0.
O treeview esta como style = 1
Resumo de Operações
Pagamentos
Dim nodx As Node
tv1.Nodes.Clear
Set tv1.ImageList = ImageList2
Set nodx = tv1.Nodes.Add(, , [Ô]Root[Ô], [Ô]Pagamentos[Ô], 1)
nodx.Bold = True
Set nodx = tv1.Nodes.Add([Ô]Root[Ô], , , [Ô]Em Dinheiro[Ô])
Set nodx = tv1.Nodes.Add([Ô]Root[Ô], , , [Ô]Cartao Debito[Ô])
Set nodx = tv1.Nodes.Add([Ô]Root[Ô], , , [Ô]Cartao Credito[Ô])
Neste exemplo tem um menu em negrito e tres submenus , só que ele já carrega expandido.
eu queria que ele ficasse recolhido dentro das opções Pagamentos.
Ate da certo de uma outra maneira mais como no submenu não tem imagem ele da um espaço para dai aparecer o [Ô]Resumo Diario [Ô] , mesmo deixando a opção identation com valor 0.
O treeview esta como style = 1
Resumo de Operações
Pagamentos
Dim nodx As Node
tv1.Nodes.Clear
Set tv1.ImageList = ImageList2
Set nodx = tv1.Nodes.Add(, , [Ô]Root[Ô], [Ô]Pagamentos[Ô], 1)
nodx.Bold = True
Set nodx = tv1.Nodes.Add([Ô]Root[Ô], , , [Ô]Em Dinheiro[Ô])
Set nodx = tv1.Nodes.Add([Ô]Root[Ô], , , [Ô]Cartao Debito[Ô])
Set nodx = tv1.Nodes.Add([Ô]Root[Ô], , , [Ô]Cartao Credito[Ô])
RICOCARDOZO,
Então ...
Para fazer o nó fechar é preciso passar o comando:
Mas eu não entendi o seguinte ... pq vc não está usando [Ô]tvwChild[Ô]?
Err ... não seria assim, por exemplo:
[][ô]s,
Tunusat.
Então ...
Para fazer o nó fechar é preciso passar o comando:
nodx.Expanded = FalseMas eu não entendi o seguinte ... pq vc não está usando [Ô]tvwChild[Ô]?
Err ... não seria assim, por exemplo:
Set nodx = TreeView1.Nodes.Add([Ô]Root[Ô], tvwChild, [Ô]Child1[Ô], [Ô]Nó Filho 1[Ô], [Ô]Aberto[Ô])
nodx.Expanded = True
Set nodx = TreeView1.Nodes.Add([Ô]Root[Ô], tvwChild, [Ô]Child2[Ô], [Ô]Nó Filho 2[Ô], [Ô]Fechado[Ô])
nodx.Expanded = False
[][ô]s,
Tunusat.
Olá Tunusat.
Na verdade o que ta acontecendo é o seguinte ;
Desta maneira que você mencionou funciona , mas como nem tudo é flores rs , e eu sou muito detalhista (chato) vou te explicar melhor.
No teu exemplo fica assim:
<Icone> Pagamentos
espaço <icone> Pagamentos em dinheiro
espaço <icone> Pagamentos Com Cartão
o que eu achei que dava pra fazer:
<Icone> Pagamentos
Pagamentos em dinheiro
Pagamentos Com Cartão
Quando eu removo o tvwchild e removo os icones ele fica alinhado ao pagamentos só que a função nodx.expanded não funciona , tipo eu achei que tinha como deixar recolhido.,por isso que eu removi o tvwchild .
Segue o codigo:
Dim nodx As Node
Set tv1.ImageList = ImageList2
Set nodx = tv1.Nodes.Add(, , [Ô]Root[Ô], [Ô]Pagamentos[Ô], 1)
nodx.Bold = True
nodx.Expanded = False
Set nodx = tv1.Nodes.Add([Ô]Root[Ô], , [Ô]Child1[Ô], [Ô]Em Dinheiro[Ô])
Set nodx = tv1.Nodes.Add([Ô]Root[Ô], , [Ô]Child2[Ô], [Ô]Com Cartão[Ô])
Na verdade o que ta acontecendo é o seguinte ;
Desta maneira que você mencionou funciona , mas como nem tudo é flores rs , e eu sou muito detalhista (chato) vou te explicar melhor.
No teu exemplo fica assim:
<Icone> Pagamentos
espaço <icone> Pagamentos em dinheiro
espaço <icone> Pagamentos Com Cartão
o que eu achei que dava pra fazer:
<Icone> Pagamentos
Pagamentos em dinheiro
Pagamentos Com Cartão
Quando eu removo o tvwchild e removo os icones ele fica alinhado ao pagamentos só que a função nodx.expanded não funciona , tipo eu achei que tinha como deixar recolhido.,por isso que eu removi o tvwchild .
Segue o codigo:
Dim nodx As Node
Set tv1.ImageList = ImageList2
Set nodx = tv1.Nodes.Add(, , [Ô]Root[Ô], [Ô]Pagamentos[Ô], 1)
nodx.Bold = True
nodx.Expanded = False
Set nodx = tv1.Nodes.Add([Ô]Root[Ô], , [Ô]Child1[Ô], [Ô]Em Dinheiro[Ô])
Set nodx = tv1.Nodes.Add([Ô]Root[Ô], , [Ô]Child2[Ô], [Ô]Com Cartão[Ô])
RICOCARDOZO,
Mas se você tirar o [Ô]tvwchild[Ô] ele vai entender que tudo é Raiz. Dai não fica no conceito de [Ô]TreeView[Ô].
A linha que tem que abrir (filha) não ficará dependente da linha [Ô]pai[Ô].
Não sei como fazer o que você que, pelo menos para este objeto. Talvez algum [Ô]tvw...[Ô] ... testei aqui ... não achei nem dentro do próprio [Ô]TreeView[Ô].
Não esqueça de fazer o:
Para limpar a árvore antes de montá-la.
[[ô]]s,
Tunusat.
Mas se você tirar o [Ô]tvwchild[Ô] ele vai entender que tudo é Raiz. Dai não fica no conceito de [Ô]TreeView[Ô].
A linha que tem que abrir (filha) não ficará dependente da linha [Ô]pai[Ô].
Não sei como fazer o que você que, pelo menos para este objeto. Talvez algum [Ô]tvw...[Ô] ... testei aqui ... não achei nem dentro do próprio [Ô]TreeView[Ô].
Não esqueça de fazer o:
TreeView1.Nodes.ClearPara limpar a árvore antes de montá-la.
[[ô]]s,
Tunusat.
Tópico encerrado , respostas não são mais permitidas