defaultvb.aspx.vb

来自「Telerik是很大的第三方软件制造商」· VB 代码 · 共 71 行

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.QuickStart.Rotator.Examples.Programming.ServerEvents
    '/ <summary>
    '/ Summary description for DefaultVB.
    '/ </summary>
   
    Public Class DefaultVB
        Inherits XhtmlPage
        Protected Rotator1 As Telerik.WebControls.RadRotator
        Protected Div1, Div2, Div3 As HtmlGenericControl

        Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
            AddHandler Rotator1.ItemClicked, AddressOf Rotator1_ItemClicked
        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 HideDivs()
            Div1.Style("display") = "none"
            Div2.Style("display") = "none"
            Div3.Style("display") = "none"
        End Sub 'HideDivs


        Private Sub Rotator1_ItemClicked(ByVal o As Object, ByVal e As Telerik.WebControls.RadRotatorClickEventArgs)
            Dim frame As Telerik.WebControls.RadRotatorFrame = e.Item
            Dim index As Integer = frame.ItemIndex
            Me.HideDivs()
            Select Case frame.ItemIndex
                Case 0
                    Div1.Style("display") = "block"
                Case 1
                    Div2.Style("display") = "block"
                Case 2
                    Div3.Style("display") = "block"
            End Select
        End Sub 'Rotator1_ItemClicked
    End Class 'DefaultCS
End Namespace 'Telerik.QuickStart.Rotator.Examples.Programming.ServerEvents