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:  Marcar os filhos de um determinado pai na tree view
Postada em 14/7/2007 por Jailton Sampaio      Clique aqui para enviar email para o autor  jailton_sampaio@hotmail.com
Public Sub NodeCheck(Tree As TreeView, ByVal Node As MSComctlLib.Node)
    
    Tree.SelectedItem = Node
    
    Dim idx As Integer
    Dim Idx2 As Integer
    On Error GoTo ErrStat
    '***************************  Quando marcar os filhos marca o pai  **********************************
    If Tree.SelectedItem.Children Then
        For idx = Tree.SelectedItem.Child.MinSibling.Index To Tree.SelectedItem.Child.MaxSibling.Index
            Tree.Nodes.Item(idx).Checked = Tree.SelectedItem.Checked
            If Tree.Nodes.Item(idx).Children Then
                For Idx2 = Tree.Nodes.Item(idx).Child.MinSibling.Index To Tree.Nodes.Item(idx).Child.MaxSibling.Index
                    Tree.Nodes.Item(Idx2).Checked = Tree.Nodes.Item(idx).Checked
                Next
            End If
        Next
    End If

    '**************  Quando eu marcar o pai, os filhos daquele pai serão marcados também  **************
    If Node.Checked Then
        If Not Node.Parent Is Nothing Then
            Node.Parent.Checked = True
            If Not Node.Parent.Parent Is Nothing Then
                Node.Parent.Parent.Checked = True
            End If
        End If
    End If
    
    Exit Sub
ErrStat:
    If err.Number = 91 And InStr(1, Tree.SelectedItem, "Store") Then
         MsgBox Tree.SelectedItem & " não possui filho(s) !", vbCritical, "Erro"
    ElseIf err.Number = 91 Then
         MsgBox "O nodo não está selecionado !", vbCritical, "Erro"
    End If
    
End Sub
 


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