defaultvb.aspx.vb

Telerik是很大的第三方软件制造商

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 Telerik.QuickStart
Imports Telerik.WebControls


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

Namespace Telerik.TreeViewExamplesVBNET.Sorting
    Public Class DefaultVB
        Inherits XhtmlPage
        Protected RadTree1 As RadTreeView
        Protected SortOrder As RadioButtonList


        Private Sub GenerateTreeView()
            Dim randomizer As New Random()
            RadTree1.Sort = RadTreeViewSort.Ascending

            Dim i As Integer
            For i = 1 To 5
                Dim node As New RadTreeNode("RootNode " + i.ToString())
                RadTree1.Nodes.Add(node)
                Dim j As Integer
                For j = 1 To 5
                    Dim childNode As New RadTreeNode("ChildNode " + i.ToString() + "." + j.ToString())
                    node.Nodes.Add(childNode)

                    Dim k As Integer
                    For k = 1 To 5
                        Dim innerNode As New RadTreeNode(randomizer.Next(10).ToString())
                        childNode.Nodes.Add(innerNode)
                    Next k
                Next j
            Next i

            RadTree1.ExpandAllNodes()
        End Sub 'GenerateTreeView


        Protected Sub SortOrderChanged(ByVal sender As Object, ByVal e As System.EventArgs)
            Select Case SortOrder.SelectedItem.Value
                Case "Ascending"
                    RadTree1.Sort = RadTreeViewSort.Ascending
                Case "Descending"
                    RadTree1.Sort = RadTreeViewSort.Descending
                Case Else
                    RadTree1.Sort = RadTreeViewSort.None
            End Select
        End Sub 'SortOrderChanged


        Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
            If Not Page.IsPostBack Then
                GenerateTreeView()
            End If
        End Sub 'Page_Load


#Region "Web Form Designer generated code"

        Protected Overrides Sub OnInit(ByVal e As EventArgs)
            '
            ' CODEGEN: This call is required by the ASP.NET Web Form Designer.
            '
            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