defaultvb.aspx.vb

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

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

Namespace Telerik.ChartExamplesVB.Programming.Poll
    Public Class DefaultVB
        Inherits XhtmlPage
        Protected WithEvents RadChart1 As Telerik.WebControls.RadChart
        Protected WithEvents radioBtnListCarMakes As System.Web.UI.WebControls.RadioButtonList
        Protected Label1 As System.Web.UI.WebControls.Label
        Protected WithEvents radioButtonsDisplayKind As System.Web.UI.WebControls.RadioButtonList
        Protected WithEvents Button1 As System.Web.UI.WebControls.Button


        Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Dim colors As String() = {"#EB5D2D", "#42AE18", "#FF9C40", "#B99A72", "#9BC0FF", "#98CC88", "#C3B600", "#FFDA43", "#2F89C2", "#F267CD", "#79E364"}

            If Not Page.IsPostBack Then
                Dim s As ChartSeries = RadChart1.GetChartSeries(0)

                s.Clear()
                s.DiameterScale = 0.4
                s.ShowLabelConnectors = False
                s.ShowLabels = True
                s.LabelAppearance.Distance = 7
                s.LabelAppearance.TextFont = New Font("Verdana", 7)
                s.NotOverlapLabels = True

                Dim r As New Random()

                Dim i As Integer = 0

                Dim cc As New ColorConverter()

                Dim listItem As listItem
                For Each listItem In radioBtnListCarMakes.Items
                    Dim seriesItem As New ChartSeriesItem()

                    seriesItem.YValue = 12
                    seriesItem.Label = "#%"
                    seriesItem.ItemMap.ToolTip = listItem.Value
                    seriesItem.Appearance.MainColor = CType(cc.ConvertFromString(colors(i)), Color) 'ToDo: ++ operator not supported within expressions
                    i = i + 1

                    seriesItem.Appearance.BorderColor = Color.DimGray
                    seriesItem.Appearance.FillStyle = FillStyle.Solid

                    s.Items.Add(seriesItem)
                Next listItem
            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 Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
            If radioBtnListCarMakes.SelectedIndex > -1 Then
                Dim s As ChartSeries = RadChart1.GetChartSeries(0)

                Dim item As ChartSeriesItem = s(radioBtnListCarMakes.SelectedIndex)

                If Not (item Is Nothing) Then
                    item.YValue = item.YValue + 1
                End If
            End If
        End Sub 'Button1_Click


        Private Sub radioBtnListCarMakes_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles radioBtnListCarMakes.SelectedIndexChanged
            Dim s As ChartSeries = RadChart1.GetChartSeries(0)

            If radioBtnListCarMakes.SelectedIndex > -1 Then
                Dim item As ChartSeriesItem
                For Each item In s.Items
                    If s.Items.IndexOf(item) = radioBtnListCarMakes.SelectedIndex Then
                        item.Exploded = True
                    Else
                        item.Exploded = False
                    End If
                Next item
            End If
        End Sub 'radioBtnListCarMakes_SelectedIndexChanged


        Private Sub RadioButtonList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles radioButtonsDisplayKind.SelectedIndexChanged
            Dim s As ChartSeries = RadChart1.GetChartSeries(0)

            Select Case radioButtonsDisplayKind.SelectedIndex
                Case 0
                    Dim item As ChartSeriesItem
                    For Each item In s.Items
                        item.Label = "#%"
                    Next item
                    Exit Select
                Case 1
                    Dim item As ChartSeriesItem
                    For Each item In s.Items
                        item.Label = "#Y"
                    Next item
                    Exit Select
            End Select
        End Sub 'RadioButtonList1_SelectedIndexChanged


        Private Sub RadChart1_Click(ByVal sender As Object, ByVal args As Telerik.WebControls.ChartClickEventArgs) Handles RadChart1.Click
            Dim item As ChartSeriesItem
            For Each item In args.Series.Items
                If item.Exploded AndAlso (item Is args.SeriesItem) Then
                    item.YValue += 1
                Else
                    item.Exploded = False
                End If
            Next item

            If Not args.SeriesItem.Exploded Then
                args.SeriesItem.Exploded = True
            End If
        End Sub 'RadChart1_Click

    End Class
End Namespace