21-01-20, 01:57 AM
هذا الكود يحذف أفرع الفرع ان تم عمل Checked
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
For i = TreeView1.Nodes.Count - 1 To 0 Step -1
If TreeView1.Nodes(i).Checked Then
TreeView1.Nodes(i).Remove()
Else
RemoveTreeNodes(TreeView1.Nodes(i))
End If
Next
End Sub
Private Sub RemoveTreeNodes(node As TreeNode)
For i = node.Nodes.Count - 1 To 0 Step -1
If node.Nodes(i).Nodes.Count > 0 Then
RemoveTreeNodes(node.Nodes(i))
Else
If node.Nodes(i).Checked Then
node.Nodes(i).Remove()
End If
End If
Next
End Sub