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.CheckBoxes
    Public Class DefaultVB
        Inherits XhtmlPage
        Protected WithEvents RadTree1 As Telerik.WebControls.RadTreeView
        Protected Button1 As System.Web.UI.WebControls.Button
        Protected WithEvents CheckBox1 As System.Web.UI.WebControls.CheckBox
        Protected nodes As Label


        Protected Sub ShowCheckedNodes(ByVal sender As Object, ByVal e As System.EventArgs)
            Dim message As String = String.Empty
            Dim nodeCollection As ArrayList = RadTree1.CheckedNodes
            Dim node As RadTreeNode
            For Each node In nodeCollection
                message += node.FullPath + "<nodes>"
            Next node
            nodes.Text = message
        End Sub 'ShowCheckedNodes


        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

        Private Sub RadTree1_OnCheck(ByVal sender As System.Object, ByVal e As Telerik.WebControls.RadTreeNodeEventArgs) Handles RadTree1.NodeCheck
            Dim node As RadTreeNode = e.NodeChecked
            nodes.Text = "You have just clicked the checkbox for node <b>" + node.Text + "</b> - current status: <b>" + node.Checked.ToString() + "</b>"
        End Sub

        Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
            RadTree1.AutoPostBackOnCheck = CheckBox1.Checked
        End Sub


    End Class 'DefaultVB
End Namespace