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.DragAndDropBetweenTrees
    Public Class DefaultVB
        Inherits XhtmlPage
        Protected RadTree1 As RadTreeView
        Protected RadTree2 As RadTreeView
        Protected DragMessage As Label
        Protected prompt_result As HtmlInputHidden


        Protected Sub HandleDrop(ByVal sender As Object, ByVal NodeEvent As RadTreeNodeEventArgs)
            ' Fetch event data
            Dim sourceNode As RadTreeNode = NodeEvent.SourceDragNode
            Dim destNode As RadTreeNode = NodeEvent.DestDragNode

            ' Display info message			
            Dim s As String = String.Format("You dragged:<BR><b>{0}</b> / <b>{1}</b> <br>onto <BR><b>{2}</b> / <b>{3}</b>", sourceNode.Text, sourceNode.TreeViewParent.ID, destNode.Text, destNode.TreeViewParent.ID)
            DragMessage.Text = s
            ' Swap nodes in tree.
            If Not sourceNode Is destNode.Parent Then
                Dim nodeCollection As RadTreeNodeCollection = sourceNode.ParentNodeCollection
                nodeCollection.Remove(sourceNode)
                destNode.AddNode(sourceNode)
            End If
            ' Expand destination node to see result of swap immediately.
            sourceNode.Selected = False
            destNode.Expanded = True
        End Sub 'HandleDrop
        ' Clear last active selection.			



        Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
            RadTree1.ExpandAllNodes()
            RadTree2.ExpandAllNodes()
        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