منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(21-01-20, 01:12 AM)جميل5 كتب : [ -> ]هذا الكود يحف الفرع ان تم عمل Checked

PHP كود :

       For p = TreeView1.Nodes.Count - 1 To 0 Step -1
            If TreeView1.Nodes(p).Checked Then
                TreeView1.Nodes.RemoveAt(p)
            Else
                For c = TreeView1.Nodes(p).Nodes.Count - 1 To 0 Step -1
                    If TreeView1.Nodes(p).Nodes(c).Checked Then
                        TreeView1.Nodes(p).Nodes(c).Remove()
                    End If
                Next
            End If
        Next 


(21-01-20, 01:57 AM)جميل5 كتب : [ -> ]هذا الكود يحذف أفرع الفرع ان تم عمل 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