USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  Desmarcar todos os Nodos de uma TREEVIEW
Postada em 14/7/2007 por Jailton Sampaio      Clique aqui para enviar email para o autor  jailton_sampaio@hotmail.com
Public Sub Descheca_Arvores(Tree As TreeView)
On Error GoTo Try
  Dim cont As Integer
  cont = 1
    '***********************   Limpa a treeview *******************************************
    While cont <= Tree.Nodes.Count     ' Pego o total de nodos na treeview
        If Tree.Nodes(cont).Checked = True Then    ' Pego so os checados
            Tree.Nodes(cont).Checked = False
        End If
        cont = cont + 1
    Wend
    cont = 1
Exit Sub
Try:
MsgBox "Erro ao tentar limpar a árvore !", vbCritical, "Erro"
End Sub
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página