defaultvb.aspx.vb

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

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

Namespace Telerik.ChartExamplesVB.Programming.LiveDataFeed
    Public Class DefaultVB
        Inherits XhtmlPage
        Protected RadChart1 As Telerik.WebControls.RadChart


        Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            ' Put user code to initialize the page here
            If Not IsPostBack Then
                Dim ds As New DataSet()
                ds.ReadXml("http://store.rabbitvalley.org/rss_feed.rss")

                Dim s As ChartSeries = RadChart1.GetChartSeries(0)

                s.Clear()
                s.ShowLabels = True
                s.ShowLabelConnectors = False
                s.ValueFormat = "'#'##"
                s.LabelAppearance.Distance = 3
                s.LabelAppearance.RotationAngle = 0.00000001
                s.LabelAppearance.TextFont = New Font("Areal", 8)
                s.LabelAppearance.Background.BorderColor = Color.LightGray
                RadChart1.BarWidthPercent = 60
                RadChart1.YAxis.AutoScale = False
                RadChart1.YAxis.AddRange(0, 11, 1)
                RadChart1.YAxis.Label.Visible = False
                RadChart1.YAxis.ShowMarks = False
                RadChart1.YAxis.ShowLabels = False
                RadChart1.XAxis.LayoutStyle = ChartAxisLayoutStyle.Inside

                Dim i As Integer = 10

                Dim dr As DataRow
                For Each dr In ds.Tables(2).Rows
                    s.AddItem(i, CStr(dr("Title"))) 'ToDo: -- operator not supported within expressions
                    i = i - 1
                Next dr

                RadChart1.Title1.Text = "Rabbit Valley 10 Ten Moving Items"
            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

    End Class
End Namespace