defaultvb.aspx.vb

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

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


        Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Dim sb As New StringBuilder()
            sb.Append("<Tree>")
            sb.Append("      <Node Text='Dynamic' Expanded='True'>")
            sb.Append("            <Node Text='String' />")
            sb.Append("            <Node Text='Binding' />")
            sb.Append("      </Node>")
            sb.Append("      <Node Text='Unlimited' Expanded='True'>")
            sb.Append("            <Node Text='Flexibility' />")
            sb.Append("            <Node Text='At runtime' />")
            sb.Append("      </Node>")
            sb.Append("</Tree>")

            Dim xmlString As String = sb.ToString()
            RadTree1.LoadXmlString(xmlString)
        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


        Private Sub InitializeComponent()
        End Sub 'InitializeComponent
#End Region
    End Class 'DefaultCS 
End Namespace