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


Namespace Telerik.CallbackExamplesVB.Functionality.Validation

    '/ <summary>
    '/ Summary description for DefaultCS.
    '/ </summary>

    Public Class DefaultVB
        Inherits XhtmlPage
        Protected RequiredFieldValidator1 As System.Web.UI.WebControls.RequiredFieldValidator
        Protected WithEvents CallbackButton1 As Telerik.WebControls.CallbackButton
        Protected Label1 As System.Web.UI.WebControls.Label
        Protected Label2 As System.Web.UI.WebControls.Label
        Protected ValidationSummary1 As System.Web.UI.WebControls.ValidationSummary
        Protected Label3 As System.Web.UI.WebControls.Label
        Protected tbFirstName As System.Web.UI.WebControls.TextBox
        Protected tbLastName As System.Web.UI.WebControls.TextBox
        Protected Label4 As System.Web.UI.WebControls.Label
        Protected Panel1 As System.Web.UI.WebControls.Panel
        Protected Panel2 As System.Web.UI.WebControls.Panel
        Protected Panel3 As System.Web.UI.WebControls.Panel
        Protected Image1 As System.Web.UI.WebControls.Image
        Protected LoadingPanel1 As Telerik.WebControls.LoadingPanel
        Protected WithEvents RadioButtonList1 As System.Web.UI.WebControls.RadioButtonList
        Protected RequiredFieldValidator2 As System.Web.UI.WebControls.RequiredFieldValidator


        Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load            
            InitControls()
        End Sub 'Page_Load

        Private Sub InitControls()
            Label3.Text = String.Empty
            Label4.Text = String.Empty

        End Sub 'InitControls


        Private Sub CallbackButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CallbackButton1.Click
            If Page.IsValid Then
                Label3.Text = "Registered name: "
                Label4.Text = tbFirstName.Text + " " + tbLastName.Text
            Else                                
                Label3.Text = "Account not registered! Validation Error."
            End If
            If RadioButtonList1.SelectedIndex = 1 Then ' Update the panels with validators only if server-side validation is performed.
                CallbackButton1.ControlsToUpdate.Add(Panel1)
                CallbackButton1.ControlsToUpdate.Add(Panel2)
                CallbackButton1.ControlsToUpdate.Add(Panel3)
            End If
        End Sub 'CallbackButton1_Click


        Private Sub RadioButtonList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButtonList1.SelectedIndexChanged
            Select Case RadioButtonList1.SelectedIndex
                Case 0
                    Dim validator As BaseValidator
                    For Each validator In Me.Validators
                        validator.EnableClientScript = True
                    Next validator
                Case 1
                    Dim validator As BaseValidator
                    For Each validator In Me.Validators
                        validator.EnableClientScript = False
                    Next validator
            End Select

        End Sub 'RadioButtonList1_SelectedIndexChanged
    End Class 'DefaultCS
End Namespace