defaultvb.aspx.vb

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

Imports Telerik.QuickStart
Imports Telerik.WebControls

Namespace Telerik.ChartExamplesVB.Functionality.PostbackEvents2
    Public Class DefaultVB
        Inherits XhtmlPage

        Protected WithEvents RadChart1 As Telerik.WebControls.RadChart
        Protected RadChart2 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
                Dim s As ChartSeries = RadChart2.GetChartSeries(0)

                Dim item As ChartSeriesItem
                For Each item In s.Items
                    item.YValue = 0
                Next item

                s.ShowLabels = False
            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 sales(,) As Double = New Double(2, 2) {{30, 50, 20}, {20, 30, 50}, {50, 20, 30}}


        Private Sub RadChart1_Click(ByVal sender As Object, ByVal args As Telerik.WebControls.ChartClickEventArgs) Handles RadChart1.Click
            RadChart2.GetChartSeries(0).Appearance.MainColor = args.SeriesItem.Appearance.MainColor
            RadChart2.GetChartSeries(0).Appearance.SecondColor = args.SeriesItem.Appearance.SecondColor
            RadChart2.Title1.Text = args.SeriesItem.Name.ToUpper() + " sales by region"

            Dim r As New Random()

            Dim itemIndex As Integer = 0

            Dim s As ChartSeries = RadChart2.GetChartSeries(0)

            s.ShowLabels = True

            Dim item As ChartSeriesItem
            For Each item In s.Items
                item.YValue = sales(args.SeriesItem.Index, itemIndex)
                itemIndex = itemIndex + 1
            Next item

            For Each item In RadChart1.GetChartSeries(0).Items
                item.Exploded = False
            Next item

            args.SeriesItem.Exploded = True
        End Sub 'RadChart1_Click

    End Class
End Namespace