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

    Public Class DefaultVB
        Inherits XhtmlPage
        Protected Label1 As System.Web.UI.WebControls.Label
        Protected Label2 As System.Web.UI.WebControls.Label
        Protected Button1 As System.Web.UI.WebControls.Button
        Protected ListBox1 As System.Web.UI.WebControls.ListBox
        Protected TextBox1 As System.Web.UI.WebControls.TextBox
        Protected CheckBoxList1 As System.Web.UI.WebControls.CheckBoxList
        Protected Image1 As System.Web.UI.WebControls.Image
        Protected Label3 As System.Web.UI.WebControls.Label
        Protected WithEvents Callbackbutton2 As Telerik.WebControls.CallbackButton
        Protected WithEvents LoadingPanel1 As Telerik.WebControls.LoadingPanel
        Protected WithEvents Img1 As System.Web.UI.HtmlControls.HtmlImage
        Protected WithEvents CallbackButton1 As Telerik.WebControls.CallbackButton


        Private Sub SetText()
            CallbackButton1.ClientEvents.OnRequestStart = String.Format("f1", Me.Label1.ClientID)
            CallbackButton1.ClientEvents.OnRequestSent = String.Format("f2", Me.Label1.ClientID)
            CallbackButton1.ClientEvents.OnResponseReceived = String.Format("f3", Me.Label1.ClientID)
            CallbackButton1.ClientEvents.OnResponseEnd = String.Format("f4", Me.Label1.ClientID)

            Callbackbutton2.ClientEvents.OnRequestStart = "ShowProgress"
            Callbackbutton2.ClientEvents.OnRequestSent = "DisableControls"
            Callbackbutton2.ClientEvents.OnResponseReceived = "EnableControls"
            Callbackbutton2.ClientEvents.OnResponseEnd = "HideProgress"
        End Sub 'SetText


        Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
            If Not Page.IsPostBack Then
                SetText()
            End If
        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


        '/ <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
            System.Threading.Thread.Sleep(3000)
        End Sub 'CallbackButton1_Click


        Private Sub Callbackbutton2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Callbackbutton2.Click
            Callbackbutton2.ResponseScript = String.Format("document.getElementById('{0}').innerHTML='[Info Label]';", Label1.ClientID)
        End Sub 'Callbackbutton2_Click
    End Class 'DefaultVB
End Namespace 'Telerik.CallbackExamplesVB.Functionality.ClientEvents