📄 ganttadvanced.aspx
字号:
<%@ Page Language="VB" Description="dotnetCHARTING Component" %>
<%@ Register TagPrefix="dotnet" Namespace="dotnetCHARTING" Assembly="dotnetCHARTING"%>
<%@ Import Namespace="System.Drawing" %>
<HTML>
<HEAD>
<TITLE>Gallery Sample (Time Gantt Chart in 2D)</TITLE>
<script runat="server">
Sub Page_Load(sender As [Object], e As EventArgs)
Chart.Type = ChartType.ComboHorizontal
Chart.Width = Unit.Parse(600)
Chart.Height = Unit.Parse(350)
Chart.Debug = True
Chart.TempDirectory = "temp"
Chart.Title = "Advanced Gantt Chart"
' This sample will take advantage of an invisible y axis to place two series on the same column. Without
' two axes, the elements would appear side by side.
' *DYNAMIC DATA NOTE*
' This sample uses static data to populate the chart. To populate
' a chart with database data see the following resources:
' - Classic samples folder
' - Help File > Data Tutorials
' - Sample: features/DataEngine.aspx
Dim sc As SeriesCollection = getData()
' Because the series dont have the same number of elements and are on two different category* axes the
' columns will be offset. To remedy this we'll group the seriescollection by names. This will make the two
' seires have the same number of elements with like names.
sc.GroupByElements()
' We'll give the second series a new axis so it's not drawn side by side the with the first one and clear it
' so it's not visible.
sc(1).YAxis = New Axis()
sc(1).YAxis.Clear()
' Add the random data.
Chart.SeriesCollection.Add(sc)
End Sub 'Page_Load
' * Category axes are ones that display element names.
Function getData() As SeriesCollection
' Create two series one for Jack and Jenny. Notice Jack only has two tasks while Jenny has three.
Dim SC As New SeriesCollection()
Dim s1 As New Series("Jack")
Dim s2 As New Series("Jenny")
Dim e1 As New Element()
e1.Name = "Task 1"
e1.YDateTimeStart = New DateTime(2000, 1, 1)
e1.YDateTime = New DateTime(2000, 1, 5)
e1.Complete = 100
Dim e2 As New Element()
e2.Name = "Task 2"
e2.YDateTimeStart = New DateTime(2000, 1, 5)
e2.YDateTime = New DateTime(2000, 1, 10)
e2.Complete = 20
s1.Elements.Add(e1)
s1.Elements.Add(e2)
Dim e3 As New Element()
e3.Name = "Task 1"
e3.YDateTimeStart = New DateTime(2000, 1, 5)
e3.YDateTime = New DateTime(2000, 1, 10)
e3.Complete = 25
Dim e4 As New Element()
e4.Name = "Task 2"
e4.YDateTimeStart = New DateTime(2000, 1, 10)
e4.YDateTime = New DateTime(2000, 1, 15)
Dim e5 As New Element()
e5.Name = "Task 2"
e5.YDateTimeStart = New DateTime(2000, 1, 15)
e5.YDateTime = New DateTime(2000, 1, 20)
s2.Elements.Add(e3)
s2.Elements.Add(e4)
s2.Elements.Add(e5)
SC.Add(s1)
SC.Add(s2)
Return SC
End Function 'getData
</script>
</HEAD>
<BODY>
<DIV align="center">
<dotnet:Chart id="Chart" runat="server" Width="568px" Height="344px">
</dotnet:Chart>
</DIV>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -