defaultvb.aspx.vb

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

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.ProgrammaticBinding
    Public Class DefaultVB
        Inherits XhtmlPage
        Protected RadTree1 As RadTreeView

        Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
            If Not Page.IsPostBack Then
                GenerateTreeView()
                RadTree1.ExpandAllNodes()
            End If
        End Sub 'Page_Load
#Region "Web Form Designer generated code"

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

        Private Sub InitializeComponent()
        End Sub 'InitializeComponent
#End Region

        Private Sub GenerateTreeView()
            Dim currentTime As New RadTreeNode("Current Time")
            RadTree1.AddNode(currentTime)

            Dim currentHour As New RadTreeNode("Hour : " + System.DateTime.Now.Hour.ToString())
            currentTime.AddNode(currentHour)
            Dim currentMin As New RadTreeNode("Minute : " + System.DateTime.Now.Minute.ToString())
            currentTime.AddNode(currentMin)
            Dim currentSec As New RadTreeNode("Second : " + System.DateTime.Now.Second.ToString())
            currentTime.AddNode(currentSec)

            Dim currentDate As New RadTreeNode("Current Date")
            RadTree1.AddNode(currentDate)

            Dim currentYear As New RadTreeNode("Year : " + System.DateTime.Now.Year.ToString())
            currentDate.AddNode(currentYear)
            Dim currentMonth As New RadTreeNode("Month : " + System.DateTime.Now.Month.ToString())
            currentDate.AddNode(currentMonth)
            Dim currentDay As New RadTreeNode("Day: " + System.DateTime.Now.Day.ToString())
            currentDate.AddNode(currentDay)
        End Sub 'GenerateTreeView
    End Class 'DefaultCS 
End Namespace