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.CallbackExamplesVB.Functionality.GettingSettingValues
    '/ <summary>
    '/ Summary description for _Default.
    '/ </summary>

    Public Class DefaultVB
        Inherits XhtmlPage
        Protected CheckBox1 As System.Web.UI.WebControls.CheckBox
        Protected CheckBoxList1 As System.Web.UI.WebControls.CheckBoxList
        Protected DropDownList1 As System.Web.UI.WebControls.DropDownList
        Protected ListBox1 As System.Web.UI.WebControls.ListBox
        Protected RadioButtonList1 As System.Web.UI.WebControls.RadioButtonList
        Protected TextBox1 As System.Web.UI.WebControls.TextBox
        Protected CheckBox2 As System.Web.UI.WebControls.CheckBox
        Protected DropDownList2 As System.Web.UI.WebControls.DropDownList
        Protected ListBox2 As System.Web.UI.WebControls.ListBox
        Protected RadioButtonList2 As System.Web.UI.WebControls.RadioButtonList
        Protected TextBox2 As System.Web.UI.WebControls.TextBox
        Protected CheckBoxList2 As System.Web.UI.WebControls.CheckBoxList
        Protected Label1 As System.Web.UI.WebControls.Label
        Protected Label2 As System.Web.UI.WebControls.Label
        Protected WithEvents LoadingPanel1 As Telerik.WebControls.LoadingPanel
        Protected WithEvents Img1 As System.Web.UI.HtmlControls.HtmlImage
        Protected WithEvents LoadingPanel2 As Telerik.WebControls.LoadingPanel
        Protected WithEvents Img2 As System.Web.UI.HtmlControls.HtmlImage
        Protected WithEvents CallbackButton1 As Telerik.WebControls.CallbackButton


        Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        End Sub 'Page_Load
        ' Put user code to initialize the page here

#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


        '/ <summary>
        '/		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 CallbackButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CallbackButton1.Click
            CheckBox2.Checked = CheckBox1.Checked

            Dim itemIndex As Integer = 0
            Dim item As ListItem
            For Each item In CheckBoxList1.Items
                CheckBoxList2.Items(itemIndex).Selected = item.Selected
                itemIndex = itemIndex + 1
            Next item

            itemIndex = 0
            For Each item In DropDownList1.Items
                DropDownList2.Items(itemIndex).Selected = item.Selected
                itemIndex = itemIndex + 1
            Next item

            itemIndex = 0
            For Each item In ListBox1.Items
                ListBox2.Items(itemIndex).Selected = item.Selected
                itemIndex = itemIndex + 1
            Next item

            itemIndex = 0
            For Each item In RadioButtonList1.Items
                RadioButtonList2.Items(itemIndex).Selected = item.Selected
                itemIndex = itemIndex + 1
            Next item

            TextBox2.Text = TextBox1.Text
        End Sub 'CallbackButton1_Click
    End Class 'DefaultVB 
End Namespace 'Telerik.CallbackExamplesVB.Functionality.GettingSettingValues