defaultvb.aspx.vb

来自「Telerik是很大的第三方软件制造商」· VB 代码 · 共 76 行

Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports System.Xml
Imports Telerik.QuickStart
Imports Telerik.WebControls


'/ <summary>
'/ Summary description for _Default.
'/ </summary>

Namespace Telerik.TreeViewExamplesVBNET.LoadOnDemandXml
    Public Class DefaultVB
        Inherits XhtmlPage
        Protected WithEvents RadTree1 As Telerik.WebControls.RadTreeView


        Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
            If Not Page.IsPostBack Then
                Dim xmlDoc As New XmlDocument()
                xmlDoc.Load(Server.MapPath("~/TreeView/Data/LargeTree.xml"))
                Cache("XmlDocument") = xmlDoc

                Dim node As XmlNode
                For Each node In xmlDoc.SelectNodes("/Tree/Node")
                    Dim treeNode As New RadTreeNode(node.Attributes("Text").Value)
                    treeNode.ExpandMode = ExpandMode.ServerSide
                    RadTree1.Nodes.Add(treeNode)
                Next node
            End If
        End Sub 'Page_Load


        Private Sub RadTree1_NodeExpand(ByVal o As Object, ByVal e As Telerik.WebControls.RadTreeNodeEventArgs) Handles RadTree1.NodeExpand
            Dim nodeText As String = e.NodeClicked.Text
            Dim xmlDoc As XmlDocument = CType(Cache("XmlDocument"), XmlDocument)

            e.NodeClicked.Nodes.Clear()
            Dim expandedNode As XmlNode = xmlDoc.SelectSingleNode(("//Node[@Text='" + nodeText + "']"))
            Dim node As XmlNode
            For Each node In expandedNode.ChildNodes
                Dim treeNode As New RadTreeNode(node.Attributes("Text").Value)
                If node.ChildNodes.Count > 0 Then
                    treeNode.ExpandMode = ExpandMode.ServerSide
                End If

                e.NodeClicked.Nodes.Add(treeNode)
            Next node

            e.NodeClicked.Expanded = True
        End Sub 'RadTree1_NodeExpand

#Region "Web Form Designer generated code"

        Protected Overrides Sub OnInit(ByVal e As EventArgs)
            InitializeComponent()
            MyBase.OnInit(e)
        End Sub 'OnInit


        '/		Required method for Designer support - do not modify
        '/		the contents of this method with the code editor.
        '/ </summary>
        Private Sub InitializeComponent()
        End Sub 'InitializeComponent
#End Region
    End Class 'DefaultCS 
End Namespace