TestPage.aspx
[code]<%@ Page Language="VB" AutoEventWireup="false" CodeFile="TestPage.aspx.vb" Inherits="TestPage" %>
<%@ Register Assembly="Infragistics4.Web.v11.1, Version=11.1.20111.2064, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb"
Namespace="Infragistics.Web.UI.NavigationControls" TagPrefix="ig" %>
[/code]
TestPage.aspx.vb
[code]
Imports Infragistics.Web.UI.NavigationControls
Partial Class TestPage
Inherits System.Web.UI.Page
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Response.Cache.SetCacheability(HttpCacheability.NoCache)
If Not IsPostBack Then
BindTree(WebDataTree1)
BindTree(WebDataTree2)
BindTree(WebDataTree3)
BindTree(WebDataTree4)
BindTree(WebDataTree5)
BindTree(WebDataTree6)
End If
End Sub
Private Sub BindTree(tree As WebDataTree)
Dim itmParent As DataTreeNode
itmParent = New DataTreeNode
itmParent.Text = "Parent Item 1"
tree.Nodes.Add(itmParent)
itmParent.Nodes.Add("Child Item 1")
itmParent.Nodes.Add("Child Item 2")
itmParent.Nodes.Add("Child Item 3")
itmParent = New DataTreeNode
itmParent.Text = "Parent Item 2"
tree.Nodes.Add(itmParent)
itmParent.Nodes.Add("Child Item 1")
itmParent.Nodes.Add("Child Item 2")
itmParent.Nodes.Add("Child Item 3")
tree.InitialExpandDepth = 1
End Sub
Protected Sub WebDataTree1_NodeClick(sender As Object, e As Infragistics.Web.UI.NavigationControls.DataTreeNodeClickEventArgs) Handles WebDataTree1.NodeClick
Me.lblDataTree1.Text &= "NodeClick Fired: " & Now.ToShortTimeString & " "
End Sub
Protected Sub WebDataTree2_SelectionChanged(sender As Object, e As Infragistics.Web.UI.NavigationControls.DataTreeSelectionEventArgs) Handles WebDataTree2.SelectionChanged
Me.lblDataTree2.Text &= "SelectionChanged Fired: " & Now.ToShortTimeString & " "
End Sub
Protected Sub WebDataTree3_NodeClick(sender As Object, e As Infragistics.Web.UI.NavigationControls.DataTreeNodeClickEventArgs) Handles WebDataTree3.NodeClick
Me.lblDataTree3.Text &= "NodeClick Fired: " & Now.ToShortTimeString & " "
End Sub
Protected Sub WebDataTree3_SelectionChanged(sender As Object, e As Infragistics.Web.UI.NavigationControls.DataTreeSelectionEventArgs) Handles WebDataTree3.SelectionChanged
Me.lblDataTree3.Text &= "SelectionChanged Fired: " & Now.ToShortTimeString & " "
End Sub
Protected Sub WebDataTree4_NodeClick(sender As Object, e As Infragistics.Web.UI.NavigationControls.DataTreeNodeClickEventArgs) Handles WebDataTree4.NodeClick
Me.lblDataTree4.Text &= "NodeClick Fired: " & Now.ToShortTimeString & " "
End Sub
Protected Sub WebDataTree5_SelectionChanged(sender As Object, e As Infragistics.Web.UI.NavigationControls.DataTreeSelectionEventArgs) Handles WebDataTree5.SelectionChanged
Me.lblDataTree5.Text &= "SelectionChanged Fired: " & Now.ToShortTimeString & " "
End Sub
Protected Sub WebDataTree6_NodeClick(sender As Object, e As Infragistics.Web.UI.NavigationControls.DataTreeNodeClickEventArgs) Handles WebDataTree6.NodeClick
Me.lblDataTree6.Text &= "NodeClick Fired: " & Now.ToShortTimeString & " "
End Sub
Protected Sub WebDataTree6_SelectionChanged(sender As Object, e As Infragistics.Web.UI.NavigationControls.DataTreeSelectionEventArgs) Handles WebDataTree6.SelectionChanged
Me.lblDataTree6.Text &= "SelectionChanged Fired: " & Now.ToShortTimeString & " "
End Sub
End Class
[/code]