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






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


Referências: Utteraccess.com, Devhut.net


Tags: VBA, Access, diretório, pasta, directory, folder, validation



Nenhum comentário:

Postar um comentário

diHITT - Notícias