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.ChartExamplesVB.Configurator.Elements.YAxis
    '/ <summary>
    '/ Summary description for _Default.
    '/ </summary>

    Public Class DefaultVB
        Inherits XhtmlPage

        Protected Label2 As System.Web.UI.WebControls.Label
        Protected Label3 As System.Web.UI.WebControls.Label
        Protected Label4 As System.Web.UI.WebControls.Label
        Protected WithEvents Button1 As System.Web.UI.WebControls.Button
        Protected Label1 As System.Web.UI.WebControls.Label
        Protected Label5 As System.Web.UI.WebControls.Label
        Protected Label6 As System.Web.UI.WebControls.Label
        Protected Label7 As System.Web.UI.WebControls.Label
        Protected Label8 As System.Web.UI.WebControls.Label
        Protected Label9 As System.Web.UI.WebControls.Label
        Protected Label10 As System.Web.UI.WebControls.Label
        Protected cbAutoScale As System.Web.UI.WebControls.CheckBox
        Protected txtBoxMinDataValue As System.Web.UI.WebControls.TextBox
        Protected txtBoxMaxDataValue As System.Web.UI.WebControls.TextBox
        Protected txtBoxMinAxisValue As System.Web.UI.WebControls.TextBox
        Protected txtBoxMaxAxisValue As System.Web.UI.WebControls.TextBox
        Protected txtBoxStep As System.Web.UI.WebControls.TextBox
        Protected txtBox As System.Web.UI.WebControls.TextBox
        Protected ddlLabelAlign As System.Web.UI.WebControls.DropDownList
        Protected txtBoxMarkLength As System.Web.UI.WebControls.TextBox
        Protected txtBoxSpaceToItemLabels As System.Web.UI.WebControls.TextBox
        Protected txtBoxSpaceToAxisLabel As System.Web.UI.WebControls.TextBox
        Protected cbNegative As System.Web.UI.WebControls.CheckBox
        Protected cbZeroBased As System.Web.UI.WebControls.CheckBox
        Protected Label11 As System.Web.UI.WebControls.Label
        Protected txtBoxRotationAngle As System.Web.UI.WebControls.TextBox
        Protected ddlValueFormat As System.Web.UI.WebControls.DropDownList
        Protected txtBoxCustomFormat As System.Web.UI.WebControls.TextBox
        Protected txtBoxAxisLabel As System.Web.UI.WebControls.TextBox
        Protected lblIncorrectSettings As System.Web.UI.WebControls.Label
        Protected 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
                InitControls()
                SetControlValues()
            End If
        End Sub 'Page_Load


        Private Sub InitControls()
            InitControl(ddlLabelAlign, GetType(ChartVAlignment))
            InitControl(ddlValueFormat, GetType(ChartValueFormat))
        End Sub 'InitControls


        Private Sub SetControlValues()
            txtBoxMinDataValue.Text = GetMinValue().ToString()
            txtBoxMaxDataValue.Text = GetMaxValue().ToString()
            cbAutoScale.Checked = RadChart1.YAxis.AutoScale
            txtBoxMinAxisValue.Text = RadChart1.YAxis.MinValue.ToString()
            txtBoxMaxAxisValue.Text = RadChart1.YAxis.MaxValue.ToString()
            txtBoxStep.Text = RadChart1.YAxis.Step.ToString()
            txtBoxAxisLabel.Text = RadChart1.YAxis.Label.Text
            SetControlValue(ddlLabelAlign, RadChart1.YAxis.Label.VAlignment.ToString())
            txtBoxMarkLength.Text = RadChart1.YAxis.MarkLength.ToString()
            txtBoxSpaceToItemLabels.Text = RadChart1.YAxis.SpaceToItem.ToString()
            txtBoxSpaceToAxisLabel.Text = RadChart1.YAxis.SpaceToLabel.ToString()
            ' cbNegative.Checked = RadChart1.YAxis.IsAxisNegative;
            cbZeroBased.Checked = RadChart1.YAxis.IsZeroBased
        End Sub 'SetControlValues


        Private Sub InitControl(ByVal ddList As DropDownList, ByVal type As Type)
            Dim valueNames As String() = [Enum].GetNames(type)

            ddList.Items.Clear()

            Dim s As String
            For Each s In valueNames
                ddList.Items.Add(s)
            Next s
        End Sub 'InitControl


        Private Sub SetControlValue(ByVal ddList As DropDownList, ByVal val As String)
            ddList.Items.FindByValue(val).Selected = True
        End Sub 'SetControlValue


        Private Function GetMinValue() As Double
            Dim minValue As Double = Double.MaxValue

            Dim chartSeries As chartSeries
            For Each chartSeries In RadChart1.ChartSeriesCollection
                Dim item As ChartSeriesItem
                For Each item In chartSeries.Items
                    If item.YValue < minValue Then
                        minValue = item.YValue
                    End If
                Next item
            Next chartSeries

            Return minValue
        End Function 'GetMinValue


        Private Function GetMaxValue() As Double
            Dim maxValue As Double = Double.MinValue

            Dim chartSeries As chartSeries
            For Each chartSeries In RadChart1.ChartSeriesCollection
                Dim item As ChartSeriesItem
                For Each item In chartSeries.Items
                    If item.YValue > maxValue Then
                        maxValue = item.YValue
                    End If
                Next item
            Next chartSeries
            Return maxValue
        End Function 'GetMaxValue

#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 Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
            Try
                ApplySettings()
                lblIncorrectSettings.Visible = False
            Catch
                lblIncorrectSettings.Visible = True
            End Try
        End Sub 'Button1_Click


        Private Sub ApplySettings()
            SetNewValues()
            RadChart1.YAxis.AutoScale = cbAutoScale.Checked
            RadChart1.YAxis.MinValue = Double.Parse(txtBoxMinAxisValue.Text)
            RadChart1.YAxis.MaxValue = Double.Parse(txtBoxMaxAxisValue.Text)
            RadChart1.YAxis.Step = Double.Parse(txtBoxStep.Text)
            RadChart1.YAxis.Label.Text = txtBoxAxisLabel.Text
            RadChart1.YAxis.Label.VAlignment = CType([Enum].Parse(GetType(ChartVAlignment), ddlLabelAlign.SelectedItem.Value), ChartVAlignment)
            RadChart1.YAxis.MarkLength = Integer.Parse(txtBoxMarkLength.Text)
            RadChart1.YAxis.SpaceToItem = Integer.Parse(txtBoxSpaceToItemLabels.Text)
            RadChart1.YAxis.SpaceToLabel = Integer.Parse(txtBoxSpaceToAxisLabel.Text)
            RadChart1.YAxis.IsZeroBased = cbZeroBased.Checked
            RadChart1.YAxis.LabelRotationAngle = Double.Parse(txtBoxRotationAngle.Text)
            RadChart1.YAxis.ValueFormat = CType([Enum].Parse(GetType(ChartValueFormat), ddlValueFormat.SelectedItem.Value), ChartValueFormat)
            RadChart1.YAxis.CustomFormat = txtBoxCustomFormat.Text
        End Sub 'ApplySettings


        Private Sub SetNewValues()
            Dim r As New Random()

            Dim minValue As Double = Double.Parse(txtBoxMinDataValue.Text)
            Dim maxValue As Double = Double.Parse(txtBoxMaxDataValue.Text)

            Dim series As ChartSeries
            For Each series In RadChart1.ChartSeriesCollection
                Dim item As ChartSeriesItem
                For Each item In series.Items
                    item.YValue = r.Next(CInt(minValue), CInt(maxValue))
                Next item
            Next series
        End Sub 'SetNewValues
    End Class 'DefaultCS 
End Namespace 'Telerik.ChartExamplesCS.YAxis