✔ Programação GLOBAL®: VBA Access - Selecionando o Nó do Treeview

VBA Access - Selecionando o Nó do Treeview - Select the Treeview Root Node.

| Blog Office VBA | Blog Excel | Blog Access |

Ao usar uma Treeview, talvez deseje saber como pode selecionar um nó. Para fazer isso você só precisa usar o seguinte trecho de código.

Me!TreeviewControlName.Nodes(1).Selected = True

A seleção de nós nem sempre produz o resultado desejado. A razão é que, se a classificação for realizada após os nós adicionados, estes talvez não fiquem posicionado na parte superior. Então o que vamos fazer agora?

Há uma solução, e eu não vou reinventar a roda. UtterAccess tem um banco de dados de amostra com um procedimento chamado GotoFirstNode() que funciona em torno do problema mencionado acima. Também abrange muitas outras funcionalidades e é muito a pena conferir.

Public Function GotoFirstNode (tv As MSComctlLib.TreeView) As MSComctlLib.Node

   Dim nodNode As MSComctlLib.Node



   Set nodNode = tv.SelectedItem

   If nodNode Is Nothing And tv.Nodes.Count > 0 Then _

   Set nodNode = tv.Nodes.Item(1)



   If tv.Nodes.Count > 0 Then

   Do Until nodNode.Parent Is Nothing

   Set nodNode = nodNode.Parent

   Loop

   Do Until nodNode.Previous Is Nothing

   Set nodNode = nodNode.Previous

   Loop



   nodNode.Selected = True

   nodNode.EnsureVisible

   End If

   Set GotoFirstNode = nodNode

End Function