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

    Public Class DefaultVB
        Inherits XhtmlPage
        Protected Image1 As System.Web.UI.WebControls.Image
        Protected WithEvents btnFirst As Telerik.WebControls.CallbackButton
        Protected WithEvents btnStart As Telerik.WebControls.CallbackButton
        Protected WithEvents btnLast As Telerik.WebControls.CallbackButton
        Protected WithEvents CallbackTimer1 As Telerik.WebControls.CallbackTimer
        Protected Label1 As System.Web.UI.WebControls.Label


        Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
            Dim s As String = String.Empty
        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 [Next]()
            ImageIndex += 1
            If ImageIndex = 9 Then
                ImageIndex = 1
            End If
            SetImage()
        End Sub 'Next


        Private Sub btnFirst_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnFirst.Click
            ImageIndex = 1
            SetImage()
        End Sub 'btnFirst_Click


        Private Sub btnLast_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLast.Click
            ImageIndex = 8
            SetImage()
        End Sub 'btnLast_Click


        Private Sub SetImage()
            Image1.ImageUrl = "Image" + ImageIndex.ToString() + ".jpg"
            Label1.Text = Image1.ImageUrl
        End Sub 'SetImage


        Private Sub btnStart_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnStart.Click
            If btnStart.Text.Equals("Start") Then
                CallbackTimer1.Start()
                btnStart.Text = "Stop"
            Else
                CallbackTimer1.Stop()
                btnStart.Text = "Start"
            End If
        End Sub 'btnStart_Click


        Private Sub CallbackTimer1_Tick(ByVal sender As Object, ByVal args As System.EventArgs) Handles CallbackTimer1.Tick
            [Next]()
        End Sub 'CallbackTimer1_Tick


        Private Property ImageIndex() As Integer
            Get
                If ViewState("ImageIndex") Is Nothing Then
                    ViewState("ImageIndex") = 1
                End If
                Return CInt(ViewState("ImageIndex"))
            End Get
            Set(ByVal Value As Integer)
                ViewState("ImageIndex") = Value
            End Set
        End Property
    End Class 'DefaultCS 
End Namespace 'Telerik.CallbackExamplesCSharp.Demos.Gallery