defaultvb.aspx.vb

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

Imports Telerik.QuickStart
Imports Telerik.WebControls

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

        Protected RadioButtonList1 As System.Web.UI.WebControls.RadioButtonList
        Protected Radchart2 As Telerik.WebControls.RadChart
        Protected RadChart1 As Telerik.WebControls.RadChart


        Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        End Sub 'Page_Load
        ' Put user code to initialize the page here

#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 RadioButtonList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
            Select Case RadioButtonList1.SelectedIndex
                Case 0
                    RadChart1.SeriesOrientation = ChartSeriesOrientation.Vertical
                    Dim series As ChartSeries
                    For Each series In RadChart1.ChartSeriesCollection
                        series.LabelAppearance.Alignment = ContentAlignment.TopCenter
                        series.Appearance.GradientFillStyle = GradientFillStyle.Horizontal
                    Next series
                    Exit Select
                Case 1
                    RadChart1.SeriesOrientation = ChartSeriesOrientation.Horizontal
                    RadChart1.ChartSeriesCollection(0).Appearance.GradientFillStyle = GradientFillStyle.Vertical
                    RadChart1.ChartSeriesCollection(1).Appearance.GradientFillStyle = GradientFillStyle.Vertical
                    RadChart1.ChartSeriesCollection(0).LabelAppearance.Alignment = ContentAlignment.MiddleCenter
                    RadChart1.ChartSeriesCollection(1).LabelAppearance.Alignment = ContentAlignment.MiddleCenter
                    Exit Select
            End Select
        End Sub 'RadioButtonList1_SelectedIndexChanged

    End Class
End Namespace