defaultvb.aspx.vb

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

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


        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

            Dim result As String = String.Empty
            If RadTree1.SelectedNodes.Count > 0 Then
                Dim node As RadTreeNode
                For Each node In RadTree1.SelectedNodes
                    result += "<b>" + node.Text + "</b>" + ";"

                    If Not node Is destNode.Parent Then
                        Dim nodeCollection As RadTreeNodeCollection = node.ParentNodeCollection
                        nodeCollection.Remove(node)
                        destNode.AddNode(node)
                    End If
                    node.Selected = False
                Next node
            Else
                result = "<b>" + sourceNode.Text + "</b>"
                If Not sourceNode Is destNode.Parent Then
                    Dim nodeCollection As RadTreeNodeCollection = sourceNode.ParentNodeCollection
                    nodeCollection.Remove(sourceNode)
                    destNode.AddNode(sourceNode)
                End If

                sourceNode.Selected = False
            End If
            destNode.Expanded = True

            DragMessage.Text = "You dragged node(s)" + result + " onto node <b>" + destNode.Text + "</b>"
            RadTree1.ClearSelectedNodes()
        End Sub 'HandleDrop


        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