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

    Public Class DefaultVB
        Inherits XhtmlPage
        Protected Panel1 As System.Web.UI.WebControls.Panel
        Protected WithEvents Button1 As Telerik.WebControls.CallbackButton
        Protected WithEvents CheckBoxList1 As Telerik.WebControls.CallbackCheckBoxList
        Protected WithEvents ddlCountry As Telerik.WebControls.CallbackDropDownList
        Protected Label1 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 CallbackRadioButtonList1 As Telerik.WebControls.CallbackRadioButtonList


        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 CallbackRadioButtonList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CallbackRadioButtonList1.SelectedIndexChanged
            Select Case CallbackRadioButtonList1.SelectedIndex
                Case 0
                    Button1.Visible = True
                    CheckBoxList1.Visible = False
                    ddlCountry.Visible = False
                    Exit Select
                Case 1
                    Button1.Visible = False
                    CheckBoxList1.Visible = True
                    ddlCountry.Visible = False
                    Exit Select
                Case 2
                    Button1.Visible = False
                    CheckBoxList1.Visible = False
                    ddlCountry.Visible = True
                    Exit Select
            End Select
            UpdateLabel()
        End Sub 'CallbackRadioButtonList1_SelectedIndexChanged


        Private Sub UpdateLabel()
            Label1.Text = String.Empty
            If ddlCountry.Visible Then
                Label1.Text = ddlCountry.SelectedItem.Value
            ElseIf CheckBoxList1.Visible Then
                Label1.Text = String.Empty
                Dim item As ListItem
                For Each item In CheckBoxList1.Items
                    If item.Selected Then
                        Label1.Text += item.Text + " "
                    End If
                Next item
            End If
        End Sub 'UpdateLabel


        Private Sub ddlCountry_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
            UpdateLabel()
        End Sub 'ddlCountry_SelectedIndexChanged


        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Label1.Text = "Submitted."
        End Sub 'Button1_Click


        Private Sub CheckBoxList1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
            Label1.Text = String.Empty
            Dim item As ListItem
            For Each item In CheckBoxList1.Items
                If item.Selected Then
                    Label1.Text += item.Text + " "
                End If
            Next item
        End Sub 'CheckBoxList1_SelectedIndexChanged

        Private Sub CheckBoxList1_SelectedIndexChanged1(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBoxList1.SelectedIndexChanged
            UpdateLabel()
        End Sub

        Private Sub ddlCountry_SelectedIndexChanged1(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlCountry.SelectedIndexChanged
            UpdateLabel()
        End Sub
    End Class 'DefaultVB
End Namespace 'Telerik.CallbackExamplesVB.Functionality.LoadUnloadWebControls