How to make treeview folder name unique?

3 posts, 0 answers
  1. Richard
    Richard avatar
    2 posts
    Member since:
    Apr 2008

    Posted 09 Oct 2008 Link to this post


    Can anybody help me make the folder names unique in telerik Radtreeview ?

     
    Thanks In advance,

    Regards,
    Richard
  2. Simon
    Admin
    Simon avatar
    2281 posts

    Posted 09 Oct 2008 Link to this post

    Hi Richard,

    What do you mean by 'folder names'? Could you elaborate more on the issue?

    Thanks.

    Regards,
    Simon
    the Telerik team

    Check out Telerik Trainer, the state of the art learning tool for Telerik products.
  3. Colin Mulcahy
    Colin Mulcahy avatar
    13 posts
    Member since:
    Jul 2003

    Posted 23 Oct 2008 Link to this post

    Hi,

    Heres some code that may help you in the right direction.
     
            Private Function CreateNewFolder() As RadTreeNode  
     
                Dim newname As String = "Folder" 
     
                newname = CreateFolderName(treeview.Nodes, newname)  
     
                Dim node As New RadTreeNode(newname)  
     
                Return node  
     
            End Function 
     
            Private Function CreateFolderName(ByVal nodes As RadTreeNodeCollection, ByVal baseName As StringAs String 
     
                Dim newname As String = baseName  
     
                If Not CheckNameExists(nodes, newname) Then 
                    Return newname  
                End If 
     
                Dim i As Integer = 2  
                newname = String.Concat(baseName, " ({0})")  
                While (CheckNameExists(nodes, String.Format(newname, i)))  
                    i += 1  
                End While 
     
                Return String.Format(newname, i)  
     
            End Function 
     
            Private Function CheckNameExists(ByVal nodes As RadTreeNodeCollection, ByVal name As StringAs Boolean 
     
                For Each node As RadTreeNode In nodes  
                    If node.Text.ToLower() = name.ToLower() Then 
                        Return True 
                    End If 
                    If node.Nodes.Count > 0 Then 
                        If CheckNameExists(node.Nodes, name) Then 
                            Return True 
                        End If 
                    End If 
                Next 
     
                Return False 
     
            End Function 
Back to Top