defaultvb.aspx.vb

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

Imports Telerik.QuickStart
Imports Telerik.WebControls

Namespace Telerik.ChartExamplesVB.Functionality.ImageMaps
    Public Class DefaultVB
        Inherits XhtmlPage

        Protected RadChart1 As Telerik.WebControls.RadChart

        Private Function BubbleItem(ByVal x As Double, ByVal y As Double, ByVal width As Double, ByVal height As Double) As ChartSeriesItem
            Dim item As New ChartSeriesItem()

            item.XValue = x
            item.YValue = y
            item.XValue2 = width
            item.YValue2 = height

            Return item
        End Function 'BubbleItem


        Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            If Not Page.IsPostBack Then
                Dim s As New ChartSeries()

                s.Type = ChartSeriesType.Bubble

                s.Items.Add(BubbleItem(-10, -10, 5, 5))
                s.Items.Add(BubbleItem(10, -10, 5, 10))
                s.Items.Add(BubbleItem(-10, 10, 10, 5))
                s.Items.Add(BubbleItem(10, 10, 2, 3))
                s.Items.Add(BubbleItem(0, 0, 3, 2))

                s.Name = "Series 1"
                s.ImageMap.ToolTip = "Bubble series"
                s.ImageMap.HRef = "http://www.telerik.com"

                s.Items(0).Appearance.MainColor = Color.Red
                s.Items(0).Appearance.FillStyle = FillStyle.Solid

                s.Items(0).ItemMap.HRef = "../../ChartTypes/Spline/DefaultVB.aspx"
                s.Items(0).ItemMap.ToolTip = "Links to the Spline chart type description."


                s.Items(1).Appearance.MainColor = Color.Blue
                s.Items(1).Appearance.FillStyle = FillStyle.Solid
                s.Items(1).ItemMap.HRef = "../../ChartTypes/Bubble/DefaultVB.aspx"
                s.Items(1).ItemMap.ToolTip = "Links to the Bubble chart type description."

                s.Items(2).Appearance.MainColor = Color.Green
                s.Items(2).Appearance.FillStyle = FillStyle.Solid
                s.Items(2).ItemMap.HRef = "../../ChartTypes/Gantt/DefaultVB.aspx"
                s.Items(2).ItemMap.ToolTip = "Links to the Gantt chart type description."

                s.Items(3).Appearance.MainColor = Color.Yellow
                s.Items(3).Appearance.FillStyle = FillStyle.Solid
                s.Items(3).ItemMap.HRef = "../../ChartTypes/Bar/DefaultVB.aspx"
                s.Items(3).ItemMap.ToolTip = "Links to the Bars chart type description."

                s.Items(4).Appearance.MainColor = Color.Lime
                s.Items(4).Appearance.FillStyle = FillStyle.Solid
                s.Items(4).ItemMap.HRef = "../../ChartTypes/BarStacked/DefaultVB.aspx"
                s.Items(4).ItemMap.ToolTip = "Links to the Stacked Bars type description."

                RadChart1.AddChartSeries(s)

                RadChart1.XAxis.AutoScale = False
                RadChart1.XAxis.LayoutStyle = ChartAxisLayoutStyle.Normal
                RadChart1.XAxis.AddRange(-20, 20, 10)
                RadChart1.YAxis.AutoScale = False
                RadChart1.YAxis.AddRange(-20, 20, 10)
            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