defaultvb.aspx.vb

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

Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Xml
Imports System.IO
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.Data
    '/ <summary>
    '/ Summary description for _Default.
    '/ </summary>

    Public Class DefaultVB
        Inherits XhtmlPage
        Protected tbwidth As System.Web.UI.WebControls.TextBox
        Protected tbHeight As System.Web.UI.WebControls.TextBox
        Protected Xml1 As System.Web.UI.WebControls.Xml
        Protected RadChart1 As Telerik.WebControls.RadChart
        Protected Label23 As System.Web.UI.WebControls.Label
        Protected Label24 As System.Web.UI.WebControls.Label
        Protected Label25 As System.Web.UI.WebControls.Label
        Protected Label26 As System.Web.UI.WebControls.Label
        Protected labelTest As System.Web.UI.WebControls.Label
        Protected WithEvents btnRemoveSeries As System.Web.UI.WebControls.Button
        Protected WithEvents btnGenNewSeries As System.Web.UI.WebControls.Button
        Protected dataGridData As System.Web.UI.WebControls.DataGrid
        Protected dataGridSeries As System.Web.UI.WebControls.DataGrid
        Protected WithEvents btnUpdateChart As System.Web.UI.WebControls.Button
        Protected Label7 As System.Web.UI.WebControls.Label
        Protected Label8 As System.Web.UI.WebControls.Label
        Protected WithEvents btnAddCol As System.Web.UI.WebControls.Button
        Protected WithEvents btnRemoveCol As System.Web.UI.WebControls.Button
        Protected panelTitle_Legend As System.Web.UI.WebControls.Panel
        Protected panelData As System.Web.UI.WebControls.Panel
        Protected WithEvents Button1 As System.Web.UI.WebControls.Button
        Protected Panel1 As System.Web.UI.WebControls.Panel
        Protected Label9 As System.Web.UI.WebControls.Label
        Protected txtBoxBarWidthPercent As System.Web.UI.WebControls.TextBox
        Protected txtBoxBarOverlapPercent As System.Web.UI.WebControls.TextBox
        Protected lblIncorrectSettings As System.Web.UI.WebControls.Label
        Protected WithEvents Img1 As System.Web.UI.HtmlControls.HtmlImage
        Protected WithEvents Img2 As System.Web.UI.HtmlControls.HtmlImage
        Protected WithEvents Img3 As System.Web.UI.HtmlControls.HtmlImage
        Protected WithEvents Img4 As System.Web.UI.HtmlControls.HtmlImage
        Protected WithEvents Button2 As System.Web.UI.WebControls.Button

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

            RadChart1.Clear()

            RadChart1.XAxis.LayoutStyle = ChartAxisLayoutStyle.Between
            RadChart1.XAxis.AddItem("A")
            RadChart1.XAxis.AddItem("B")
            RadChart1.XAxis.AddItem("C")
            RadChart1.XAxis.AddItem("D")
            RadChart1.XAxis.AddItem("E")
            RadChart1.XAxis.AddItem("F")
            RadChart1.XAxis.AddItem("G")
            RadChart1.XAxis.AddItem("H")


            Dim s0 As ChartSeries = RadChart1.CreateSeries("r.a.d.chart", Color.FromArgb(139, 255, 0, 0), ChartSeriesType.Bar)
            s0.LabelAppearance.Background.BorderColor = Color.Black
            s0.LabelAppearance.Background.MainColor = Color.White
            s0.LabelAppearance.TextFont = New Font("Times New Roman", 8)
            s0.LabelAppearance.Background.FillStyle = FillStyle.Solid
            s0.Appearance.BorderColor = Color.Black
            s0.Appearance.FillStyle = FillStyle.Solid
            s0.ShowLabels = True
            s0.LabelAppearance.Distance = 5
            s0.SetValues(1, 2, 3, 4, 5, 6, 7.5)
            s0.SetLabels("t", "e", "l", "e", "r", "i", "k")


            Dim s1 As ChartSeries = RadChart1.CreateSeries("demo", Color.Lime, ChartSeriesType.Line)
            s1.LabelAppearance.Background.BorderColor = Color.Black
            s1.LabelAppearance.Background.MainColor = Color.White
            s1.LabelAppearance.Background.FillStyle = FillStyle.Solid
            s1.LabelAppearance.TextFont = New Font("Times New Roman", 8)
            s1.Appearance.BorderColor = Color.Black
            s1.Appearance.FillStyle = FillStyle.Solid
            ' s1.ShowValues = true;
            s1.LabelAppearance.Distance = 5
            s1.SetValues(0.5, 1, 1.5, 2, 2.5, 3, 3.75)
            s1.SetLabels("k", "i", "r", "e", "l", "e", "t")
        End Sub 'InitRadChart



        Private Sub InitComponents()
            RadChart1.YAxis.AutoScale = True
            RadChart1.XAxis.ShowLabels = True

            InitRadChart()

            InitDataGridData()

            InitDataGridSeries()

            panelData.Visible = True

            RadChart1.BarWidthPercent = 50

            txtBoxBarOverlapPercent.Text = RadChart1.BarOverlapPercent.ToString()
            txtBoxBarWidthPercent.Text = RadChart1.BarWidthPercent.ToString()
        End Sub 'InitComponents 
        ' txtBoxXml.Text = RadChart1.GetXml();

        Private Function CreateDataTable(ByVal cols As Integer, ByVal rows As Integer) As DataTable
            Dim dt As New DataTable()

            Dim i As Integer
            For i = 0 To cols - 1
                dt.Columns.Add("")
            Next i

            Dim objs As Object() = {Nothing}

            For i = 0 To rows - 1
                dt.Rows.Add(objs)
            Next i

            Return dt
        End Function 'CreateDataTable


        Private Sub InitDataGridSeries()
            UpdateDataGridSeries()
        End Sub 'InitDataGridSeries


        Private Sub UpdateDataGridSeries()
            dataGridSeries.DataSource = CreateDataTable(1, RadChart1.ChartSeriesCollection.Count)
            dataGridSeries.DataBind()

            Dim cc As New ColorConverter()

            Dim ddList As DropDownList
            Dim checkBox As checkBox
            Dim textBox As textBox

            Dim item As DataGridItem
            For Each item In dataGridSeries.Items
                Dim s As ChartSeries = RadChart1.GetChartSeries(item.ItemIndex)

                If Not (s Is Nothing) Then
                    ' GET SERIES NAME
                    CType(item.FindControl("txtBoxSeriesName"), textBox).Text = s.Name

                    ' GET SERIES COLOR
                    ddList = CType(item.FindControl("dropDownSeriesColor"), DropDownList)

                    Dim listItem As listItem
                    For Each listItem In ddList.Items
                        Dim colorName As String = cc.ConvertToString(s.MainColor)
                        If listItem.Text.Equals(colorName) Then
                            listItem.Selected = True
                            Exit For
                        End If
                    Next listItem

                    ' GET SERIES TYPE
                    ddList = CType(item.FindControl("dropDownSeriesType"), DropDownList)

                    Dim ec As New EnumConverter(GetType(ChartSeriesType))

                    For Each listItem In ddList.Items
                        Dim typeName As String = ec.ConvertToString(s.Type)

                        If listItem.Text.Equals(typeName) Then
                            listItem.Selected = True
                            Exit For
                        End If
                    Next listItem

                    ' GET SERIES SHOW LABELS
                    checkBox = CType(item.FindControl("checkBoxShowLabels"), checkBox)
                    checkBox.Checked = s.ShowLabels

                    ' GET SERIES SHOW VALUES
                    checkBox = CType(item.FindControl("checkBoxShowValues"), checkBox)
                    checkBox.Checked = s.ShowLabels

                    ' GET SERIES SHOW PERCENT
                    checkBox = CType(item.FindControl("checkBoxShowPercent"), checkBox)
                    ' checkBox.Checked = s.ShowPercent;
                    ' GET COLOR TRANSPARENCY
                    textBox = CType(item.FindControl("txtBoxTransparency"), textBox)
                    textBox.Text = s.MainColor.A.ToString()

                    ' GET LABEL OFFSET
                    textBox = CType(item.FindControl("txtBoxLabelOffset"), textBox)
                    textBox.Text = s.LabelAppearance.Distance.ToString()
                End If
            Next item
        End Sub 'UpdateDataGridSeries


        Private Sub InitDataGridData()
            UpdateDataGridData()
        End Sub 'InitDataGridData


        Private Sub UpdateDataGridData()
            dataGridData.DataSource = CreateDataTable(1, RadChart1.ChartSeriesCollection.Count)
            dataGridData.DataBind()

            Dim txtBox As TextBox = Nothing
            Dim s As ChartSeries

            Dim item As DataGridItem
            For Each item In dataGridData.Items
                Dim itemIndex As Integer = 0

                s = RadChart1.GetChartSeries(item.ItemIndex)

                Dim l As Label = CType(item.FindControl("labelSeriesName"), Label)

                If Not (s Is Nothing) Then
                    l.Text = s.Name
                Else
                    l.Text = item.ItemIndex.ToString()
                End If

                Dim tc As TableCell
                For Each tc In item.Cells
                    Dim c As System.Web.UI.Control
                    For Each c In tc.Controls
                        If TypeOf c Is TextBox Then
                            If Not (s Is Nothing) Then
                                txtBox = CType(c, TextBox)
                                Try
                                    Dim seriesItem As ChartSeriesItem = s.GetSeriesItem(itemIndex)
                                    itemIndex = itemIndex + 1
                                    If Not (seriesItem Is Nothing) Then
                                        txtBox.Text = seriesItem.YValue.ToString()
                                    End If
                                Catch
                                    txtBox.Text = ""
                                End Try
                            End If
                        End If
                    Next c
                Next tc
            Next item
        End Sub 'UpdateDataGridData


        Private Function GetFormatedXml(ByVal content As String) As String
            Dim doc As New XmlDocument()
            doc.LoadXml(content)
            Dim stringWriter As New stringWriter()
            Dim xmlWriter As New XmlTextWriter(stringWriter)
            xmlWriter.Formatting = Formatting.Indented
            doc.WriteTo(xmlWriter)
            xmlWriter.Flush()
            Dim result As String = stringWriter.ToString()
            stringWriter.Close()
            Return result
        End Function 'GetFormatedXml



        Protected Overrides Sub OnPreRender(ByVal e As EventArgs)
            If Not (ViewState("XmlLabel") Is Nothing) Then
                Label9.Visible = CBool(ViewState("XmlLabel"))
                If Label9.Visible Then