defaultvb.aspx.vb

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

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


        Protected Sub TreeViewAction(ByVal sender As Object, ByVal NodeEvent As RadTreeNodeEventArgs)
            Dim clickedNode As RadTreeNode = NodeEvent.NodeClicked

            If Not (clickedNode.Parent Is Nothing) Then
                Select Case clickedNode.Parent.Value
                    Case "Add"
                        Dim newNode As New RadTreeNode()
                        newNode.Text = clickedNode.Text + " (Clone)"
                        clickedNode.Parent.AddNode(newNode)
                    Case "Delete"
                        clickedNode.Remove()
                    Case "Disable"
                        clickedNode.Enabled = False
                End Select
            End If
        End Sub 'TreeViewAction


        Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        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