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


Namespace Telerik.TreeViewExamplesVB.DragAndDropToHtmlElement
   '/ <summary>
   '/ Summary description for _Default.
   '/ </summary>
   
   Public Class DefaultVB
      Inherits XhtmlPage
      Protected RadTree1 As RadTreeView
      Protected DragMessage As Label
      Protected NodeText As System.Web.UI.WebControls.TextBox
      Protected WithEvents SubmitButton As System.Web.UI.WebControls.Button
      Protected prompt_result As System.Web.UI.HtmlControls.HtmlInputHidden
      Protected DataGrid1 As DataGrid
      
      
      Private Sub PopulateGrid()
         Dim values As String() =  {"One", "Two", "Three"}
         
         Dim dt As New DataTable()
         dt.Columns.Add("Text")
         dt.Columns.Add("Value")
         dt.Columns.Add("Category")
         dt.Rows.Add(values)
         dt.Rows.Add(values)
         dt.Rows.Add(values)
         Session("DataTable") = dt
         
         DataGrid1.DataSource = dt
         DataGrid1.DataBind()
      End Sub 'PopulateGrid
      
      
      Private Sub AddRowToGrid(dt As DataTable, node As RadTreeNode)
         Dim values As String() =  {node.Text, node.Value, node.Category}
         dt.Rows.Add(values)
         
         DataGrid1.DataSource = dt
         DataGrid1.DataBind()
      End Sub 'AddRowToGrid
      
      
      Protected Sub HandleDrop(sender As Object, NodeEvent As RadTreeNodeEventArgs)
         Dim sourceNode As RadTreeNode = NodeEvent.SourceDragNode
         If NodeEvent.HtmlElementID = "Grid" Then
            Dim dt As DataTable = CType(Session("DataTable"), DataTable)
            AddRowToGrid(dt, sourceNode)
            DragMessage.Text = "You added <b>" + sourceNode.Text + "</b> to the Grid."
         End If
      End Sub 'HandleDrop
      
      
      Private Sub Page_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
         If Not Page.IsPostBack Then
            PopulateGrid()
         End If
         
         DragMessage.Text = "Text-field is <b>empty</b>"
      End Sub 'Page_Load
      
      #Region "Web Form Designer generated code"
      
      Protected Overrides Sub OnInit(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
      
      
      Private Sub SubmitButton_Click(sender As Object, e As System.EventArgs) Handles SubmitButton.Click
         If NodeText.Text <> String.Empty Then
            DragMessage.Text = "The text-field contains the value: <b>" + NodeText.Text + "</b>"
         End If
      End Sub 'SubmitButton_Click 
   End Class 'DefaultCS 
End Namespace 'Telerik.TreeViewExamplesCSharp.DragAndDropToHtmlElement