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.SeriesItems
    '/ <summary>
    '/ Summary description for _Default.
    '/ </summary>

    Public Class DefaultVB
        Inherits XhtmlPage
        Protected Label1 As System.Web.UI.WebControls.Label
        Protected Label2 As System.Web.UI.WebControls.Label
        Protected Label3 As System.Web.UI.WebControls.Label
        Protected WithEvents Button1 As System.Web.UI.WebControls.Button
        Protected WithEvents ddlSeries As System.Web.UI.WebControls.DropDownList
        Protected WithEvents ddlItems As System.Web.UI.WebControls.DropDownList
        Protected tbValue As System.Web.UI.WebControls.TextBox
        Protected Label4 As System.Web.UI.WebControls.Label
        Protected WithEvents Button2 As System.Web.UI.WebControls.Button
        Protected WithEvents Button3 As System.Web.UI.WebControls.Button
        Protected tbLabel 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
                SetControlValues()
            End If
        End Sub 'Page_Load


        Private Sub SetControlValues()
            ddlSeries.Items.Clear()
            Dim series As ChartSeries
            For Each series In RadChart1.ChartSeriesCollection
                ddlSeries.Items.Add(series.Name)
            Next series

            SetItems(GetCurrentSeries())
            SetItemValues()
        End Sub 'SetControlValues


        Private Sub SetControlValue(ByVal ddList As DropDownList, ByVal val As String)
            If Not (ddList.SelectedItem Is Nothing) Then
                ddList.SelectedItem.Selected = False
            End If
            Dim selectedItem As ListItem = ddList.Items.FindByValue(val)
            If Not (selectedItem Is Nothing) Then
                selectedItem.Selected = True
            End If
        End Sub 'SetControlValue


        Private Sub SetItems(ByVal series As ChartSeries)
            ddlItems.Items.Clear()

            Dim counter As Integer = 0

            Dim seriesItem As ChartSeriesItem
            For Each seriesItem In series.Items
                counter = counter + 1
                ddlItems.Items.Add(counter.ToString())
            Next seriesItem
        End Sub 'SetItems


        Private Sub SetItemValues()
            Dim seriesItem As ChartSeriesItem = GetCurrentItem()
            tbValue.Text = seriesItem.YValue.ToString()
            tbLabel.Text = seriesItem.Label
            ResetAppearance()
            seriesItem.Appearance.BorderColor = Color.Red
        End Sub 'SetItemValues


        Private Sub ResetAppearance()
            Dim series As ChartSeries
            For Each series In RadChart1.ChartSeriesCollection
                Dim item As ChartSeriesItem
                For Each item In series.Items
                    item.Appearance.CopyFrom(series.Appearance)
                Next item
            Next series
        End Sub 'ResetAppearance


        Private Function GetCurrentSeries() As ChartSeries
            Return RadChart1.ChartSeriesCollection(ddlSeries.SelectedIndex)
        End Function 'GetCurrentSeries


        Private Function GetCurrentItem() As ChartSeriesItem
            Dim series As ChartSeries = GetCurrentSeries()
            Return series.Items(ddlItems.SelectedIndex)
        End Function 'GetCurrentItem


#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 ddlItems_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlItems.SelectedIndexChanged
            SetItemValues()
        End Sub 'ddlItems_SelectedIndexChanged


        Private Sub ddlSeries_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlSeries.SelectedIndexChanged
            SetItems(GetCurrentSeries())
            SetItemValues()
        End Sub 'ddlSeries_SelectedIndexChanged


        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()
            Dim item As ChartSeriesItem = GetCurrentItem()

            item.YValue = Double.Parse(tbValue.Text)
            item.Label = tbLabel.Text
        End Sub 'ApplySettings


        Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
            Dim series As ChartSeries = GetCurrentSeries()

            series.AddItem(Double.Parse(tbValue.Text), tbLabel.Text)
        End Sub 'Button2_Click


        Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
            Dim series As ChartSeries = GetCurrentSeries()

            If series.Items.Count > 1 Then
                series.Items.RemoveAt(ddlItems.SelectedIndex)

                SetControlValues()
            End If
        End Sub 'Button3_Click
    End Class 'DefaultCS 
End Namespace 'Telerik.ChartExamplesCS.SeriesItems