defaultvb.aspx.vb

Telerik是很大的第三方软件制造商

Imports Telerik.QuickStart
Imports System.Data.OleDb
Imports Telerik.WebControls

Namespace Telerik.ChartExamplesVB.Programming.MultilanguageSupport
    Public Class DefaultVB
        Inherits XhtmlPage

        Protected Label1 As System.Web.UI.WebControls.Label
        Protected WithEvents dropDownLanguage As System.Web.UI.WebControls.DropDownList
        Protected WithEvents RadChart1 As Telerik.WebControls.RadChart


        Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
            If Not Page.IsPostBack Then
                RadChart1.LoadFromXml("chart_en.xml")
                SetExplode(0)
            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


        '/		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 dropDownLanguage_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dropDownLanguage.SelectedIndexChanged
            Select Case dropDownLanguage.SelectedIndex
                Case 0
                    RadChart1.LoadFromXml("chart_en.xml")
                    SetExplode(0)

                    Exit Select
                Case 1
                    RadChart1.LoadFromXml("chart_fr.xml")
                    SetExplode(3)
                    Exit Select
                Case 2
                    RadChart1.LoadFromXml("chart_ge.xml")
                    SetExplode(1)
                    Exit Select
                Case 3
                    RadChart1.LoadFromXml("chart_sp.xml")
                    SetExplode(2)
                    Exit Select
            End Select
        End Sub 'dropDownLanguage_SelectedIndexChanged


        Private Sub SetDDList()
        End Sub 'SetDDList



        Private Sub SetExplode(ByVal itemIndex As Integer)
            Dim s As ChartSeries = RadChart1.GetChartSeries(0)
            Dim index As Integer = 0

            Dim seriesItem As ChartSeriesItem
            For Each seriesItem In s.Items
                If index <> itemIndex Then
                    seriesItem.Exploded = False
                Else
                    seriesItem.Exploded = True
                End If
                index += 1
            Next seriesItem
        End Sub 'SetExplode


        Private Sub RadChart1_Click(ByVal sender As Object, ByVal args As Telerik.WebControls.ChartClickEventArgs) Handles RadChart1.Click
            Select Case args.SeriesItem.Index
                Case 0
                    RadChart1.LoadFromXml("chart_en.xml")
                    dropDownLanguage.SelectedIndex = 0
                    SetExplode(0)
                    Exit Select
                Case 1
                    RadChart1.LoadFromXml("chart_ge.xml")
                    SetExplode(1)
                    dropDownLanguage.SelectedIndex = 2
                    Exit Select
                Case 2
                    RadChart1.LoadFromXml("chart_sp.xml")
                    SetExplode(2)
                    dropDownLanguage.SelectedIndex = 3
                    Exit Select
                Case 3
                    RadChart1.LoadFromXml("chart_fr.xml")
                    SetExplode(3)
                    dropDownLanguage.SelectedIndex = 1
                    Exit Select
            End Select
        End Sub 'RadChart1_Click

    End Class
End Namespace