AJUDA TREEVIEW

F001E 30/11/2006 17:03:15
#187261
Boa Tarde....é o seguinte...estou montando um menu com TreeView...mas o que acontece é que o primeiro Node "Cadastro"...quando eu executo o Sistema ja vem Selecionado..sendo assim ele mostra seus sub-Nodes....eu nao queria isso....queria que só mostrasse os Nodes Principais...como "Cadastro" e "Financeiro"....

Alguem tem alguma idéia....

fiz assim....

Tree.Nodes(1).Select = False...

mas não Funciona....
RODRIGOGBGOMES 30/11/2006 17:12:19
#187264
ve se isso aki te ajuda... um exemplo de uma amigo nosso do vbmania... so nao me recordo do nome pra mencionar agora..
RODRIGOGBGOMES 30/11/2006 17:16:27
#187265
nao é bem o q vc procura... mais da pra tira uma ideia dai...
ja q so carrega mostro os principais,
USUARIO.EXCLUIDOS 30/11/2006 17:24:24
#187266
Não entendi, apesar dele vir selecionado não vem aberto (pelo menos não comigo):

With Tree
  .Nodes.Add , tvwChild, "CAD", "Cadastros"
  .Nodes.Add "CAD", tvwChild, "Clientes", "Clientes"
  .Nodes.Add "CAD", tvwChild, "Fornecedores", "Fornecedores"
  .Nodes.Add "CAD", tvwChild, "Produtos", "Produtos"
  .Nodes.Add , , "Financeiro", "Financeiro"
End With


Mesmo assim, se quiser pode contrair o node:
Tree.Nodes(1).Expanded = False


Qualquer dúvida poste...flw
F001E 30/11/2006 17:35:08
#187267
Citação:

MATIOLI escreveu:
Não entendi, apesar dele vir selecionado não vem aberto (pelo menos não comigo):

With Tree
  .Nodes.Add , tvwChild, [Ô]CAD[Ô], [Ô]Cadastros[Ô]
  .Nodes.Add [Ô]CAD[Ô], tvwChild, [Ô]Clientes[Ô], [Ô]Clientes[Ô]
  .Nodes.Add [Ô]CAD[Ô], tvwChild, [Ô]Fornecedores[Ô], [Ô]Fornecedores[Ô]
  .Nodes.Add [Ô]CAD[Ô], tvwChild, [Ô]Produtos[Ô], [Ô]Produtos[Ô]
  .Nodes.Add , , [Ô]Financeiro[Ô], [Ô]Financeiro[Ô]
End With


Mesmo assim, se quiser pode contrair o node:
Tree.Nodes(1).Expanded = False


Qualquer dúvida poste...flw


entao Matioli....ele vem Selecionado e vem Aberto tbm.....isso acontece pq eu Marquei a propriedade SingleSel = True.... ele vem Selecionado e aberto ao mesmo tempo.....

ja Coloquei Tree.Nodes(1).Expended = False.....
mas nao funciona...continua do mesmo jeito...

Rodrigo valews pela ajuda....
USUARIO.EXCLUIDOS 30/11/2006 18:02:21
#187270
Saquei, mas vc tem duas opções, a primeira é colocar o código para encolher no Activate do form:

Private Sub Form_Activate()
Tree.Nodes("CAD").Expanded = False
End Sub



A segunda, é deixar o SingleSel = False, e expandir pelo evento Click:

Private Sub Tree_Click()
Tree.SelectedItem.Expanded = Not Tree.SelectedItem.Expanded
End Sub


Qualquer coisa tamo aí...flw
F001E 30/11/2006 18:12:35
#187272
Valews ae .....deu certo aki.....Falows Abraços
Tópico encerrado , respostas não são mais permitidas
Voltar