defaultvb.aspx.vb

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

Imports System
Imports System.IO
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.DirectoryStructure
    Public Class DefaultVB
        Inherits XhtmlPage
        Protected RadTree1 As Telerik.WebControls.RadTreeView


        Private Sub BindTreeToDirectory(ByVal dirPath As String, ByVal parentNode As RadTreeNode)
            Dim dirs As String() = Directory.GetDirectories(dirPath)
            Dim s As String
            For Each s In dirs
                Dim parts As String() = s.Split("\"c)
                Dim name As String = parts((parts.Length - 1))
                Dim node As New RadTreeNode(name)
                node.Image = "Folder.gif"
                node.Value = name
                node.Category = "Folder"
                parentNode.AddNode(node)

                BindTreeToDirectory(s, node)
            Next s

            Dim files As String() = Directory.GetFiles(dirPath)
            Dim s1 As String
            For Each s1 In files
                Dim parts As String() = s1.Split("\"c)
                Dim name As String = parts((parts.Length - 1))
                Dim node As New RadTreeNode(name)
                Dim fi As New FileInfo(s1)
                node.Image = "File.gif"
                node.Value = fi.Name & "@" & fi.Length & "@" & fi.LastWriteTime.ToString()
                node.Category = "File"
                parentNode.AddNode(node)
            Next s1
        End Sub 'BindTreeToDirectory


        Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
            If Not Page.IsPostBack Then
                Dim rootFolder As String = Server.MapPath("~/TreeView/")

                Dim rootNode As New RadTreeNode(rootFolder)
                rootNode.Image = "Folder.gif"
                rootNode.Category = "Folder"
                rootNode.Expanded = True
                RadTree1.AddNode(rootNode)

                BindTreeToDirectory(rootFolder, rootNode)
            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