This is a migrated thread and some comments may be shown as answers.

RadTreeNode.Clone()

8 Answers 208 Views

TreeView

This is a migrated thread and some comments may be shown as answers.

8 Answers, 1 is accepted

answered on 02 Jan 2008, 06:02 AM

Here you go. I added Remove() because it's also missing. Just import the MyExtensions namespace where you use Clone or Delete. I am not sure if the Clone method works exactly like the original. In my case it works. .NET 3.5 is required.

    
            Imports System.Runtime.CompilerServices 
        
            Imports Telerik.Web.UI 
        
            Imports System.Reflection 
        
            Namespace MyExtensions 
        
                Public Module TreeNodeExtensions 
        
                    <Extension()> _ 
        
                    Public Function Clone(ByVal node As RadTreeNode) As RadTreeNode 
        
                        Dim copy As New RadTreeNode 
        
                        For Each prop As PropertyInfo In GetType(RadTreeNode).GetProperties() 
        
                            If prop.CanRead And prop.CanWrite Then 
        
                                prop.SetValue(copy, prop.GetValue(node, Nothing), Nothing) 
        
                            End If 
        
                        Next 
        
                        Return copy 
        
                    End Function 
        
                    <Extension()> _ 
        
                    Public Sub Remove(ByVal node As RadTreeNode) 
        
                        If node.ParentNode Is Nothing Then 
        
                            node.TreeView.Nodes.Remove(node) 
        
                        Else 
        
                            node.ParentNode.Nodes.Remove(node) 
        
                        End If 
        
                    End Sub 
        
                End Module 
        
            End Namespace