sample.aspx

掌握学习.net开发的非常好的资料

<%@ Page Language="VB" Debug="true" Trace="false" Description="dotnetChart Component"%>
<%@ Import Namespace="System.Web.UI" %>
<%@ Import Namespace="System.Drawing" %>
<%@ Import Namespace="System.Globalization" %>
<%@ Register TagPrefix="dotnet"  Namespace="dotnetCHARTING" Assembly="dotnetCHARTING"%>
<script runat="server">

    Sub Page_Load(sender As [Object], e As EventArgs)
   
   If Not IsPostBack Then
      Dim dt As DateTime = DateTime.Today
      Dim myListItem As ListItem
      
      DropDownShow.Items.Add("Sales")
      DropDownShow.Items.Add("Orders")
      DropDownShow.Items.Add("Items")
      
      DropDownBy.Items.Add("Hours")
      DropDownBy.Items.Add(New ListItem("Day/Hour", "Day"))
      DropDownBy.Items.Add("Days")
      DropDownBy.Items.Add(New ListItem("Week/Day", "Week"))
      DropDownBy.Items.Add("Weeks")
      DropDownBy.Items.Add(New ListItem("Month/Day", "Month"))
      DropDownBy.Items.Add("Months")
      DropDownBy.Items.Add("Quarters")
      DropDownBy.Items.Add(New ListItem("Year/Month", "Year"))
      DropDownBy.Items.Add(New ListItem("Year/Quarter", "Quarter"))
      DropDownBy.Items.Add("Years")
      DropDownBy.Items.Add("Customer")
      DropDownBy.SelectedIndex = 8
      
      
      myListItem = New ListItem("None", "")
      Month.Items.Add(myListItem)
      myListItem = New ListItem("Jan", "1")
      Month.Items.Add(myListItem)
      myListItem = New ListItem("Feb", "2")
      Month.Items.Add(myListItem)
      myListItem = New ListItem("Mar", "3")
      Month.Items.Add(myListItem)
      myListItem = New ListItem("Apr", "4")
      Month.Items.Add(myListItem)
      myListItem = New ListItem("May", "5")
      Month.Items.Add(myListItem)
      myListItem = New ListItem("Jun", "6")
      Month.Items.Add(myListItem)
      myListItem = New ListItem("Jul", "7")
      Month.Items.Add(myListItem)
      myListItem = New ListItem("Aug", "8")
      Month.Items.Add(myListItem)
      myListItem = New ListItem("Sep", "9")
      Month.Items.Add(myListItem)
      myListItem = New ListItem("Oct", "10")
      Month.Items.Add(myListItem)
      myListItem = New ListItem("Nov", "11")
      Month.Items.Add(myListItem)
      myListItem = New ListItem("Dec", "12")
      Month.Items.Add(myListItem)
      Month.SelectedIndex = dt.Month
      
      myListItem = New ListItem("None", "")
      Day.Items.Add(myListItem)
      Dim d As Integer
      For d = 1 To 31
         Day.Items.Add(d.ToString())
      Next d
      Day.SelectedIndex = dt.Day
      
      myListItem = New ListItem("None", "")
      Year.Items.Add(myListItem)
      Year.Items.Add("2001")
      Year.Items.Add("2002")
      Year.Items.Add("2003")
      Year.Items.Add("2004")
      Year.SelectedIndex = 2
      
      'Set FromDate
      myListItem = New ListItem("", "")
      MonthFrom.Items.Add(myListItem)
      myListItem = New ListItem("Jan", "1")
      MonthFrom.Items.Add(myListItem)
      myListItem = New ListItem("Feb", "2")
      MonthFrom.Items.Add(myListItem)
      myListItem = New ListItem("Mar", "3")
      MonthFrom.Items.Add(myListItem)
      myListItem = New ListItem("Apr", "4")
      MonthFrom.Items.Add(myListItem)
      myListItem = New ListItem("May", "5")
      MonthFrom.Items.Add(myListItem)
      myListItem = New ListItem("Jun", "6")
      MonthFrom.Items.Add(myListItem)
      myListItem = New ListItem("Jul", "7")
      MonthFrom.Items.Add(myListItem)
      myListItem = New ListItem("Aug", "8")
      MonthFrom.Items.Add(myListItem)
      myListItem = New ListItem("Sep", "9")
      MonthFrom.Items.Add(myListItem)
      myListItem = New ListItem("Oct", "10")
      MonthFrom.Items.Add(myListItem)
      myListItem = New ListItem("Nov", "11")
      MonthFrom.Items.Add(myListItem)
      myListItem = New ListItem("Dec", "12")
      MonthFrom.Items.Add(myListItem)
      
      
      myListItem = New ListItem("", "")
      DayFrom.Items.Add(myListItem)
      
      For d = 1 To 31
         DayFrom.Items.Add(d.ToString())
      Next d 
      
      myListItem = New ListItem("", "")
      YearFrom.Items.Add(myListItem)
      YearFrom.Items.Add("2001")
      YearFrom.Items.Add("2002")
      YearFrom.Items.Add("2003")
      YearFrom.Items.Add("2004")
      
      
      'Set ToDate
      myListItem = New ListItem("", "")
      MonthTo.Items.Add(myListItem)
      myListItem = New ListItem("Jan", "1")
      MonthTo.Items.Add(myListItem)
      myListItem = New ListItem("Feb", "2")
      MonthTo.Items.Add(myListItem)
      myListItem = New ListItem("Mar", "3")
      MonthTo.Items.Add(myListItem)
      myListItem = New ListItem("Apr", "4")
      MonthTo.Items.Add(myListItem)
      myListItem = New ListItem("May", "5")
      MonthTo.Items.Add(myListItem)
      myListItem = New ListItem("Jun", "6")
      MonthTo.Items.Add(myListItem)
      myListItem = New ListItem("Jul", "7")
      MonthTo.Items.Add(myListItem)
      myListItem = New ListItem("Aug", "8")
      MonthTo.Items.Add(myListItem)
      myListItem = New ListItem("Sep", "9")
      MonthTo.Items.Add(myListItem)
      myListItem = New ListItem("Oct", "10")
      MonthTo.Items.Add(myListItem)
      myListItem = New ListItem("Nov", "11")
      MonthTo.Items.Add(myListItem)
      myListItem = New ListItem("Dec", "12")
      MonthTo.Items.Add(myListItem)
      
      
      myListItem = New ListItem("", "")
      DayTo.Items.Add(myListItem)
      
      For d = 1 To 31
         DayTo.Items.Add(d.ToString())
      Next d 
      
      myListItem = New ListItem("", "")
      YearTo.Items.Add(myListItem)
      YearTo.Items.Add("2001")
      YearTo.Items.Add("2002")
      YearTo.Items.Add("2003")
      YearTo.Items.Add("2004")
      
      
      myListItem = New ListItem("None", "")
      SplitByDropdown.Items.Add(myListItem)
      SplitByDropdown.Items.Add("Customer")
      
      DropDownChartType.Items.Add("Combo")
      DropDownChartType.Items.Add("ComboSideBySide")
      DropDownChartType.Items.Add("ComboHorizontal")
      myListItem = New ListItem("Single Pie", "Pie")
      DropDownChartType.Items.Add(myListItem)
      myListItem = New ListItem("Multi Pie", "Pies")
      DropDownChartType.Items.Add(myListItem)
      myListItem = New ListItem("Single Donut", "Donut")
      DropDownChartType.Items.Add(myListItem)
      myListItem = New ListItem("Multi Donut", "Donuts")
      DropDownChartType.Items.Add(myListItem)
      myListItem = New ListItem("Single Radar", "radar")
      DropDownChartType.Items.Add(myListItem)
      myListItem = New ListItem("Multi Radar", "radars")
      DropDownChartType.Items.Add(myListItem)
      DropDownChartType.Items.Add("Scatter")
      DropDownChartType.Items.Add("Bubble")
      
      DropDownScale.Items.Add("Normal")
      DropDownScale.Items.Add("Range")
      DropDownScale.Items.Add("Logarithmic")
      DropDownScale.Items.Add("Stacked")
      DropDownScale.Items.Add("FullStacked")
      DropDownScale.Items.Add("LogarithmicStacked")
      
      myListItem = New ListItem("3D", "true")
      Chart3D.Items.Add(myListItem)
      myListItem = New ListItem("2D", "false")
      Chart3D.Items.Add(myListItem)
      
      DropDownSeriesType.Items.Add("Column")
      DropDownSeriesType.Items.Add("Cylinder")
      DropDownSeriesType.Items.Add("Marker")
      DropDownSeriesType.Items.Add("Line")
      DropDownSeriesType.Items.Add("AreaLine")
      DropDownSeriesType.Items.Add("Spline")
      
      
      myListItem = New ListItem("None", "")
      DropDownSeriesAggregation.Items.Add(myListItem)
      DropDownSeriesAggregation.Items.Add("Average")
      DropDownSeriesAggregation.Items.Add("Sum")
      DropDownSeriesAggregation.Items.Add("Mode")
      DropDownSeriesAggregation.Items.Add("Median")
      DropDownSeriesAggregation.Items.Add("Maximum")
      DropDownSeriesAggregation.Items.Add("Minimum")
      DropDownSeriesAggregation.Items.Add("RunningAverage")
      DropDownSeriesAggregation.Items.Add("RunningSum")
      DropDownSeriesAggregation.Items.Add("RunningMode")
      DropDownSeriesAggregation.Items.Add("RunningMedian")
      DropDownSeriesAggregation.Items.Add("RunningMaximum")
      DropDownSeriesAggregation.Items.Add("RunningMinimum")