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.Appe鄏ance.Images
    '/ <summary>
    '/ Summary description for _Default.
    '/ </summary>

    Public Class DefaultVB
        Inherits XhtmlPage

        Protected Label1 As System.Web.UI.WebControls.Label
        Protected Label3 As System.Web.UI.WebControls.Label
        Protected WithEvents Button1 As System.Web.UI.WebControls.Button
        Protected Label4 As System.Web.UI.WebControls.Label
        Protected Label5 As System.Web.UI.WebControls.Label
        Protected Label2 As System.Web.UI.WebControls.Label
        Protected WithEvents ddlImageUrl As System.Web.UI.WebControls.DropDownList
        Protected txtBoxBorderWidth As System.Web.UI.WebControls.TextBox
        Protected txtBoxRoundSize As System.Web.UI.WebControls.TextBox
        Protected ddlBorderColor As System.Web.UI.WebControls.DropDownList
        Protected cbTopLeft As System.Web.UI.WebControls.CheckBox
        Protected cbTopRight As System.Web.UI.WebControls.CheckBox
        Protected cbBottomLeft As System.Web.UI.WebControls.CheckBox
        Protected cbBottomRight As System.Web.UI.WebControls.CheckBox
        Protected WithEvents ddlMainColor As System.Web.UI.WebControls.DropDownList
        Protected WithEvents ddlImageMode As System.Web.UI.WebControls.DropDownList
        Protected WithEvents ddlImageAlign As System.Web.UI.WebControls.DropDownList
        Protected RadChart1 As Telerik.WebControls.RadChart
        Protected WithEvents ddlChartElement As System.Web.UI.WebControls.DropDownList

        Private chartElementsHash As System.Collections.Hashtable

        Private keyNames As String() = {"Background", "Plot area", "Title", "Legend", "Series 1", "Series 2", "Item 1", "Item 2"}


        Private Sub BuildHashTable()
            chartElementsHash = New System.Collections.Hashtable()
            chartElementsHash.Add(keyNames(0), RadChart1.Background)
            chartElementsHash.Add(keyNames(1), RadChart1.PlotArea)
            chartElementsHash.Add(keyNames(2), RadChart1.Title1.Background)
            chartElementsHash.Add(keyNames(3), RadChart1.Legend.Background)
            chartElementsHash.Add(keyNames(4), RadChart1.GetChartSeries(0).Appearance)
            chartElementsHash.Add(keyNames(5), RadChart1.GetChartSeries(1).Appearance)
            chartElementsHash.Add(keyNames(6), RadChart1.GetChartSeries(0).Items(0).Appearance)
            chartElementsHash.Add(keyNames(7), RadChart1.GetChartSeries(1).Items(0).Appearance)
        End Sub 'BuildHashTable


        Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
            BuildHashTable()
            If Not Page.IsPostBack Then
                InitControls()
                SetControlValues(GetCurrentAppearance())
            End If
        End Sub 'Page_Load


        Private Sub InitControls()
            Dim valueNames() As String

            ' Init Colors
            valueNames = [Enum].GetNames(GetType(KnownColor))

            ddlMainColor.Items.Clear()

            Dim s As String
            For Each s In valueNames
                ddlMainColor.Items.Add(s)
            Next s

            ' Init image modes:
            valueNames = [Enum].GetNames(GetType(ImageMode))


            ddlImageMode.Items.Clear()

            For Each s In valueNames
                ddlImageMode.Items.Add(s)
            Next s

            ' Init image aligns:
            valueNames = [Enum].GetNames(GetType(Telerik.WebControls.ImageAlign))

            ddlImageAlign.Items.Clear()

            For Each s In valueNames
                ddlImageAlign.Items.Add(s)
            Next s

            ddlChartElement.Items.Clear()

            For Each s In keyNames
                ddlChartElement.Items.Add(s)
            Next s
        End Sub 'InitControls


        Private Sub SetControlValues(ByVal appearance As ChartRectShape)
            If Not (appearance Is Nothing) Then
                ddlMainColor.SelectedIndex = ddlMainColor.Items.IndexOf(ddlMainColor.Items.FindByText(appearance.MainColor.ToKnownColor().ToString()))
                ddlImageMode.SelectedIndex = ddlImageMode.Items.IndexOf(ddlImageMode.Items.FindByText(appearance.ImageMode.ToString()))
                ddlImageAlign.SelectedIndex = ddlImageAlign.Items.IndexOf(ddlImageAlign.Items.FindByText(appearance.ImageAlign.ToString()))

                If appearance.FillStyle = FillStyle.Image Then
                    SetDllImageUrl(appearance)
                Else
                    ddlImageUrl.SelectedIndex = 1
                End If
            End If
        End Sub 'SetControlValues


        Private Sub SetDllImageUrl(ByVal appearance As ChartRectShape)
            Dim index As Integer = 0
            Dim found As Boolean = False
            Dim li As ListItem
            For Each li In ddlImageUrl.Items
                If li.Value.ToUpper().Equals(appearance.ImageUrl.ToUpper()) Then
                    found = True
                    Exit For
                End If
                index += 1
            Next li

            If found Then
                ddlImageUrl.SelectedIndex = index
            End If
        End Sub 'SetDllImageUrl


        Private Function GetImageUrl() As String
            Return ddlImageUrl.SelectedItem.Value
        End Function 'GetImageUrl


        Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
            SetChartAppearance()
        End Sub 'Button1_Click


        Private Function GetCurrentAppearance() As ChartRectShape
            Return CType(chartElementsHash(ddlChartElement.SelectedItem.Value), ChartRectShape)
        End Function 'GetCurrentAppearance

#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 ddlChartElement_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlChartElement.SelectedIndexChanged
            SetControlValues(GetCurrentAppearance())
        End Sub 'ddlChartElement_SelectedIndexChanged


        Private Sub SetChartAppearance()
            Dim elementAppearance As ChartRectShape = GetCurrentAppearance()
            elementAppearance.ImageAlign = CType([Enum].Parse(GetType(Telerik.WebControls.ImageAlign), ddlImageAlign.SelectedItem.Value, True), Telerik.WebControls.ImageAlign)
            elementAppearance.ImageMode = CType([Enum].Parse(GetType(ImageMode), ddlImageMode.SelectedItem.Value, True), ImageMode)
            elementAppearance.MainColor = Color.FromName(ddlMainColor.SelectedItem.Value)
            elementAppearance.ImageUrl = GetImageUrl()
            elementAppearance.FillStyle = FillStyle.Image
        End Sub 'SetChartAppearance


        Private Sub ddlImageAlign_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlImageAlign.SelectedIndexChanged
            SetChartAppearance()
        End Sub 'ddlImageAlign_SelectedIndexChanged


        Private Sub ddlImageMode_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlImageMode.SelectedIndexChanged
            SetChartAppearance()
        End Sub 'ddlImageMode_SelectedIndexChanged


        Private Sub ddlMainColor_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlMainColor.SelectedIndexChanged
            SetChartAppearance()
        End Sub 'ddlMainColor_SelectedIndexChanged


        Private Sub ddlImageUrl_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlImageUrl.SelectedIndexChanged
            SetChartAppearance()
        End Sub 'ddlImageUrl_SelectedIndexChanged
    End Class 'DefaultCS 
End Namespace 'Telerik.ChartExamplesCS.Images