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