📄 pagingseries.aspx
字号:
<%@ Import Namespace="System.Drawing" %>
<%@ Register TagPrefix="dotnet" Namespace="dotnetCHARTING" Assembly="dotnetCHARTING"%>
<%@ Page Language="VB" Debug="true" Trace="false" EnableSessionState="true" Description="dotnetCHARTING Component" %>
<HTML>
<HEAD>
<TITLE>Paging series</TITLE>
<script runat="server">
Dim currentPage As Integer = 1
Dim pageSize As Integer = 5
Sub Page_Load(sender As [Object], e As EventArgs)
Chart.Type = ChartType.Combo
Chart.Width = Unit.Parse(600)
Chart.Height = Unit.Parse(300)
Chart.TempDirectory = "temp"
Chart.Debug = True
Chart.Title = "Item sales"
Chart.TitleBox.Position = TitleBoxPosition.Right
Chart.TitleBox.ClearColors()
Chart.XAxis.Label.Text = "Year"
' Get the page from the query string.
If Not (Request.QueryString("CurrentPage") Is Nothing) Then
currentPage = Convert.ToInt32(Request.QueryString("CurrentPage"))
End If
Chart.PaletteName = CType(currentPage, Palette)
'set global database properties
Chart.DefaultSeries.ConnectionString = Server.MapPath("../../database/chartsample.mdb")
Chart.DateGrouping = TimeInterval.Years
'Add a series
Chart.Series.Name = "Items 1"
Chart.Series.StartDate = New System.DateTime(2002, 1, 1, 0, 0, 0)
Chart.Series.EndDate = New System.DateTime(2002, 12, 31, 23, 59, 59)
Chart.Series.SqlStatement = "SELECT OrderDate,Sum(Quantity),Name FROM Orders WHERE OrderDate >= #STARTDATE# AND OrderDate <= #ENDDATE# GROUP BY Orders.OrderDate,Name ORDER BY Orders.OrderDate"
Chart.SeriesCollection.Add()
Chart.DefaultSeries.SplitByLimit = currentPage.ToString() + "x" + pageSize.ToString()
Chart.DefaultSeries.LimitMode = dotnetCHARTING.LimitMode.Top
Chart.DefaultSeries.ShowOther = False
' Create an annotation button
Dim an2 As New Annotation(" < Previous")
setAnnotation(an2)
an2.Position = New Point(49, 20)
an2.CornerTopLeft = BoxCorner.Cut
an2.CornerTopRight = BoxCorner.Square
an2.Size = New Size(85, 16)
Chart.Annotations.Add(an2)
' Activate it
If currentPage > 1 Then
an2.URL = "Pagingseries.aspx?CurrentPage=" + Convert.ToString((currentPage - 1))
Else
an2.Label.Color = Color.Gray
End If
AddHandler Chart.PostDataProcessing, AddressOf OnPostDataProcessing
End Sub 'Page_Load
Sub setAnnotation(an As Annotation)
' Set default annotation properties
an.DefaultCorner = BoxCorner.Square
an.Size = New Size(66, 16)
an.Background = New Background(Color.FromArgb(241, 250, 180), Color.White, 90)
an.Label.Font = New Font("verdana", 7.7F, FontStyle.Bold)
an.CornerTopRight = BoxCorner.Cut
an.Padding = 2
End Sub 'setAnnotation
Sub OnPostDataProcessing(sender As [Object])
Dim totalPage As Integer = 2'Chart.TotalSeries / pageSize
If Chart.TotalSeries Mod pageSize <> 0 Then
totalPage = totalPage+1
End If
'Create the next button annotation
Dim an As New Annotation("Next >")
setAnnotation(an)
an.Position = New Point(224, 20)
' Activate it
If totalPage > currentPage Then
an.URL = "Pagingseries.aspx?CurrentPage=" + Convert.ToString((currentPage + 1))
Else
an.Label.Color = Color.Gray
End If
'
Dim an2 As New Annotation("(Page " + currentPage.ToString() + " of " + totalPage.ToString() + ")")
setAnnotation(an2)
an2.Size = New Size(90, 16)
an2.Position = New Point(134, 20)
an2.CornerTopRight = BoxCorner.Square
an2.Label.Font = New Font("arial", 7.7F)
an2.Label.Color = Color.DarkBlue
Chart.Annotations.Add(an, an2)
End Sub 'OnPostDataProcessing
</script>
</HEAD>
<body topmargin="0" leftmargin="0" marginheight="0" marginwidth="0">
<DIV align="center">
<dotnet:Chart id="Chart" runat="server" />
</DIV>
</body>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -