RadTreeView

void Page_Load(object sender, EventArgs e)
{
RadTreeView RadTreeView1 = new RadTreeView();
RadTreeView1.ID = "RadTreeView1";

if (!Page.IsPostBack)
{
//RadTreeView persist its nodes in ViewState (if EnableViewState is true).
//Hence nodes should be created only on initial load.

RadTreeNode sportNode = new RadTreeNode("Sport");
RadTreeView1.Nodes.Add(sportNode);

RadTreeNode newsNode = new RadTreeNode("News");
RadTreeView1.Nodes.Add(newsNode);
}

PlaceHolder1.Controls.Add(RadTreeView1);
}

Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim RadTreeView1 As RadTreeView = New RadTreeView()
RadTreeView1.ID = "RadTreeView1"

If Not Page.IsPostBack Then
'RadTreeView persist its nodes in ViewState (if EnableViewState is true).
'Hence nodes should be created only on initial load.

Dim sportNode As RadTreeNode = New RadTreeNode("Sport")
RadTreeView1.Nodes.Add(sportNode)

Dim newsNode As RadTreeNode = New RadTreeNode("News")
RadTreeView1.Nodes.Add(newsNode)
End If

PlaceHolder1.Controls.Add(RadTreeView1)
End Sub

<radT:RadTreeView
ID="RadTree1"
Runat="server"
AllowNodeEditing="True"
OnNodeEdit="HandleNodeEdit"
/>

Protected Sub HandleNodeEdit(ByVal sender As Object, ByVal NodeEvents As RadTreeNodeEventArgs)
Dim nodeEdited As RadTreeNode = NodeEvents.NodeEdited
Dim newText As String = NodeEvents.NewText

nodeEdited.Text = newText
End Sub

<radT:RadTreeView
ID="RadTree1"
Runat="server"
AllowNodeEditing="True"
OnNodeEdit="HandleNodeEdit"
/>

protected void HandleNodeEdit(object sender, RadTreeNodeEventArgs NodeEvents)
{
RadTreeNode nodeEdited = NodeEvents.NodeEdited;
string newText = NodeEvents.NewText;

nodeEdited.Text = newText;
}

Protected Sub ShowCheckedNodes(ByVal sender As Object, ByVal e As System.EventArgs)
Dim message As String = String.Empty
Dim node As RadTreeNode
For Each node In RadTree1.CheckedNodes
message += node.FullPath
Next node
nodes.Text = message
End Sub

protected void ShowCheckedNodes(object sender, System.EventArgs e)
{
string message = string.Empty;
foreach (RadTreeNode node in RadTree1.CheckedNodes)
{
message += node.FullPath + "<br/>";
}
nodes.Text = message;
}

foreach (ClientOperation<RadTreeNode> operation in RadTreeView1.ClientChanges)
{
RadTreeNode node = operation.Item;

switch (operation.Type)
{
case ClientOperationType.Insert:
//A node has been inserted - operation.Item contains the inserted node
break;
case ClientOperationType.Remove:
//A node has been inserted - operation.Item contains the removed node.
//Keep in mind the node has been removed from the treeview.
break;
case ClientOperationType.Update:
UpdateClientOperation<RadTreeNode> update = operation as UpdateClientOperation<RadTreeNode>
//The "UpdateOperation" provides an additional property "PropertyName". This is the property whose value was changed from the client side.
break;
case ClientOperationType.Clear:
//All children of have been removed - operation.Item contains the parent node whose children have been removed. If operation.Item is null then the root nodes have been removed.
break;
}
}

For Each operation As ClientOperation(Of RadTreeNode) In RadTreeView1.ClientChanges
Dim node As RadTreeNode = operation.Item
Select Case operation.Type
Case ClientOperationType.Insert
'A node has been inserted - operation.Item contains the inserted node
Exit Select
Case ClientOperationType.Remove
'A node has been inserted - operation.Item contains the removed node.
'Keep in mind the node has been removed from the treeview.
Exit Select
Case ClientOperationType.Update
Dim update As UpdateClientOperation(Of RadTreeNode) = TryCast(operation, UpdateClientOperation(Of RadTreeNode))
'The "UpdateOperation" provides an additional property "PropertyName". This is the property whose value was changed from the client side.
Exit Select
Case ClientOperationType.Clear
'All children of have been removed - operation.Item contains the parent node whose children have been removed. If operation.Item is Nothing then the root nodes have been removed.
Exist Select
End Select
Next

void Page_Load(object sender, EventArgs e)
{
RadTreeView1.CollapseAnimation.Type = AnimationType.Linear;
RadTreeView1.CollapseAnimation.Duration = 300;
}

Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
RadTreeView1.CollapseAnimation.Type = AnimationType.Linear
RadTreeView1.CollapseAnimation.Duration = 300
End Sub

void Page_Load(object sender, EventArgs e)
{
RadTreeView1.ExpandAnimation.Type = AnimationType.Linear;
RadTreeView1.ExpandAnimation.Duration = 300;
}

Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
RadTreeView1.ExpandAnimation.Type = AnimationType.Linear
RadTreeView1.ExpandAnimation.Duration = 300
End Sub

Protected Sub LoadingMessagePositionChanged(ByVal sender As Object, ByVal e As System.EventArgs)
Select Case LoadingMessagePos.SelectedItem.Value
Case "Before"
RadTree1.LoadingStatusPosition = TreeViewLoadingStatusPosition.BeforeNodeText
RadTree1.LoadingMessage = "(loading ..)"
Case "After"
RadTree1.LoadingStatusPosition = TreeViewLoadingStatusPosition.AfterNodeText
RadTree1.LoadingMessage = "(loading ...)"
Case "Below"
RadTree1.LoadingStatusPosition = TreeViewLoadingStatusPosition.BelowNodeText
RadTree1.LoadingMessage = "(loading ...)"
Case "None"
RadTree1.LoadingStatusPosition = TreeViewLoadingStatusPosition.None
End Select
End Sub

protected void LoadingMessagePositionChanged(object sender, System.EventArgs e)
{
switch (LoadingMessagePos.SelectedItem.Value)
{
case "Before" :
RadTree1.LoadingStatusPosition = TreeViewLoadingStatusPosition.BeforeNodeText;
RadTree1.LoadingMessage = "(loading ..)";
break;
case "After" :
RadTree1.LoadingStatusPosition = TreeViewLoadingStatusPosition.AfterNodeText;
RadTree1.LoadingMessage = "(loading ...)";
break;
case "Below" :
RadTree1.LoadingStatusPosition = TreeViewLoadingStatusPosition.BelowNodeText;
RadTree1.LoadingMessage = "(loading ...)";
break;
case "None" :
RadTree1.LoadingStatusPosition = TreeViewLoadingStatusPosition.None;
break;
}
}

Protected Sub LoadingMessagePositionChanged(ByVal sender As Object, ByVal e As System.EventArgs)
Select Case LoadingMessagePos.SelectedItem.Value
Case "Before"
RadTree1.LoadingStatusPosition = TreeViewLoadingStatusPosition.BeforeNodeText
RadTree1.LoadingMessage = "(loading ..)"
Case "After"
RadTree1.LoadingStatusPosition = TreeViewLoadingStatusPosition.AfterNodeText
RadTree1.LoadingMessage = "(loading ...)"
Case "Below"
RadTree1.LoadingStatusPosition = TreeViewLoadingStatusPosition.BelowNodeText
RadTree1.LoadingMessage = "(loading ...)"
Case "None"
RadTree1.LoadingStatusPosition = TreeViewLoadingStatusPosition.None
End Select
End Sub

protected void LoadingMessagePositionChanged(object sender, System.EventArgs e)
{
switch (LoadingMessagePos.SelectedItem.Value)
{
case "Before" :
RadTree1.LoadingStatusPosition = TreeViewLoadingStatusPosition.BeforeNodeText;
RadTree1.LoadingMessage = "(loading ...)";
break;
case "After" :
RadTree1.LoadingStatusPosition = TreeViewLoadingStatusPosition.AfterNodeText;
RadTree1.LoadingMessage = "(loading ...)";
break;
case "Below" :
RadTree1.LoadingStatusPosition = TreeViewLoadingStatusPosition.BelowNodeText;
RadTree1.LoadingMessage = "(loading ...)";
break;
case "None" :
RadTree1.LoadingStatusPosition = TreeViewLoadingStatusPosition.None;
break;
}
}

RadTreeView1.Nodes[0].Text = "Example";
RadTreeView1.Nodes[0].NavigateUrl = "http://www.example.com";

RadTreeView1.Nodes(0).Text = "Example"
RadTreeView1.Nodes(0).NavigateUrl = "http://www.example.com"

<radT:RadTreeView
ID="RadTree1"
runat="server"
OnNodeClick="NodeClick"
/>

Protected Sub NodeClick(ByVal sender As Object, ByVal NodeEventArgs As RadTreeNodeEventArgs)
info.Text = String.Empty
Dim NodeClicked As RadTreeNode = NodeEventArgs.NodeClicked
info.Text = NodeClicked.Text
End Sub

<radT:RadTreeView
ID="RadTree1"
runat="server"
OnNodeClick="NodeClick"
/>

protected void NodeClick(object sender, RadTreeNodeEventArgs NodeEventArgs)
{
info.Text = string.Empty;
RadTreeNode NodeClicked = NodeEventArgs.NodeClicked;
info.Text = NodeClicked.Text;
}

void Page_Load(object sender, EventArgs e)
{
RadTreeView1.FindNode(NodeWithEqualsTextAndValue);
}
private static bool NodeWithEqualsTextAndValue(RadTreeNode node)
{
if (node.Text == node.Value)
{
return true;
}
else
{
return false;
}
}

Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
RadTreeView1.FindNode(NodeWithEqualsTextAndValue)
End Sub
Private Shared Function NodeWithEqualsTextAndValue(ByVal node As RadTreeNode) As Boolean
If node.Text = node.Value Then
Return True
Else
Return False
End If
End Function

protected void RadTreeView1_NodeClick(object sender, Telerik.Web.UI.RadTreeNodeEventArgs e)
{
Response.Write("Clicked node is " + e.Node.Text);
}

Sub RadTreeView1_NodeClick(ByVal sender As Object, ByVal e As Telerik.Web.UI.RadTreeNodeEventArgs) Handles RadTreeView1.NodeClick
Response.Write("Clicked node is " & e.Node.Text)
End Sub

protected void RadTreeView1_NodeCreated(object sender, Telerik.Web.UI.RadTreeNodeEventArgs e)
{
e.Node.ToolTip = e.Node.Text;
}

Sub RadTreeView1_NodeCreated(ByVal sender As Object, ByVal e As Telerik.Web.UI.RadTreeNodeEventArgs) Handles RadTreeView1.NodeCreated
e.Node.ToolTip = e.Node.Text
End Sub

protected void RadTreeView1_NodeDataBound(object sender, Telerik.Web.UI.RadTreeNodeEventArgs e)
{
e.Node.ImageUrl = "image" + (string)DataBinder.Eval(e.Node.DataItem, "ID") + ".gif";
e.Node.NavigateUrl = (string)DataBinder.Eval(e.Node.DataItem, "URL");
}

Sub RadTreeView1_NodeDataBound(ByVal sender As Object, ByVal e As Telerik.Web.UI.RadTreeNodeEventArgs) Handles RadTreeView1.NodeDataBound
e.Node.ImageUrl = "image" & DataBinder.Eval(e.Node.DataItem, "ID") & ".gif"
e.Node.NavigateUrl = CStr(DataBinder.Eval(e.Node.DataItem, "URL"))
End Sub

protected void RadTreeView1_NodeDrop(object sender, RadTreeNodeDragDropEventArgs e)
{
foreach (RadTreeNode sourceNode in e.DraggedNodes)
{
if (!sourceNode.IsAncestorOf(e.DestDragNode))
{
sourceNode.Remove();
e.DestDragNode.Nodes.Add(sourceNode);
}
}
}

Protected Sub RadTreeView1_NodeDrop(ByVal sender As Object, ByVal e As RadTreeNodeDragDropEventArgs) Handles RadTreeView1.NodeDrop
For Each sourceNode As RadTreeNode In e.DraggedNodes
If Not sourceNode.IsAncestorOf(e.DestDragNode) Then
sourceNode.Remove()
e.DestDragNode.Nodes.Add(sourceNode)
End If
Next
End Sub

protected void RadTreeView1_NodeEdit(object sender, RadTreeNodeEditEventArgs e)
{
RadTreeNode nodeEdited = e.Node;
string newText = e.Text;
nodeEdited.Text = newText;
}

Protected Sub HandleNodeEdit(ByVal sender As Object, ByVal e As RadTreeNodeEditEventArgs) Handles RadTreeView1.NodeEdit
Dim nodeEdited As RadTreeNode = e.Node
Dim newText As String = e.Text
nodeEdited.Text = newText
End Sub

protected void RadTreeView1_NodeExpanded(object sender, Telerik.Web.UI.RadTreeNodeEventArgs e)
{
RadTreeNode nodeCreatedOnDemand = new RadTreeNode("Node created on demand");
e.Node.Nodes.Add(nodeCreatedOnDemand);
}

Sub RadTreeView1_NodeExpanded(ByVal sender As Object, ByVal e As Telerik.Web.UI.RadTreeNodeEventArgs) Handles RadTreeView1.NodeExpanded
Dim nodeCreatedOnDemand As RadTreeNode = New RadTreeNode("Node created on demand")
e.Node.Nodes.Add(nodeCreatedOnDemand)
End Sub