|
|
|
|
|
|
|
|
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
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
|
|
|
|
|
