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.CallbackExamplesCSharp.Functionality.ViewState
   '/ <summary>
   '/ Summary description for _Default.
   '/ </summary>
   
    Public Class DefaultVB
        Inherits XhtmlPage
        Protected WithEvents CallbackButton1 As Telerik.WebControls.CallbackButton
        Protected Label1 As System.Web.UI.WebControls.Label
        Protected Label2 As System.Web.UI.WebControls.Label
        Protected WithEvents Button1 As System.Web.UI.WebControls.Button
        Protected WithEvents CallbackCheckBox1 As Telerik.WebControls.CallbackCheckBox
        Protected WithEvents LoadingPanel1 As Telerik.WebControls.LoadingPanel
        Protected WithEvents Img1 As System.Web.UI.HtmlControls.HtmlImage
        Protected Callbackbutton2 As Telerik.WebControls.CallbackButton


        Private Property Count() As Integer
            Get
                If Not (ViewState("count") Is Nothing) Then
                    Return CInt(ViewState("count"))
                Else
                    Return 0
                End If
            End Get
            Set(ByVal Value As Integer)
                ViewState("count") = Value
            End Set
        End Property


        Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
			Me.EnableViewState = CallbackCheckBox1.Checked
			CallbackCheckBox1.Text = "ViewState enabled: " & Me.EnableViewState.ToString()
        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
            Me.Count = Me.Count + 1
            Label1.Text = Count.ToString()
        End Sub 'CallbackButton1_Click


        Private Sub CallbackCheckBox1_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CallbackCheckBox1.CheckedChanged
			Me.EnableViewState = CallbackCheckBox1.Checked
			CallbackCheckBox1.Text = "ViewState enabled: " & Me.EnableViewState.ToString()
        End Sub 'CallbackCheckBox1_CheckedChanged


        Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
            Me.Count = Me.Count + 1
            Label1.Text = Count.ToString()
        End Sub 'Button1_Click
    End Class 'DefaultCS
End Namespace 'Telerik.CallbackExamplesCSharp.Functionality.ViewState