Skip to content

Commit ab82a90

Browse files
DevExpressExampleBotDevExpressExampleBot
DevExpressExampleBot
authored and
DevExpressExampleBot
committed
Source auto update [skip ci]
1 parent 1381770 commit ab82a90

File tree

5 files changed

+339
-0
lines changed

5 files changed

+339
-0
lines changed

‎VB/Solution.sln

+34
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,34 @@
1+
Microsoft Visual Studio Solution File, Format Version 11.00
2+
# Visual Studio 2010
3+
Project("{E24C65DC-7377-472B-9ABA-BC803B73C61A}") = "WebSite\", "WebSite\", "{E7100136-FDA4-46DF-B114-8F6ECC7C2DF8}"
4+
ProjectSection(WebsiteProperties) = preProject
5+
Debug.AspNetCompiler.VirtualPath = "/WebSite"
6+
Debug.AspNetCompiler.PhysicalPath = "WebSite\"
7+
Debug.AspNetCompiler.TargetPath = "PrecompiledWeb\WebSite\"
8+
Debug.AspNetCompiler.Updateable = "true"
9+
Debug.AspNetCompiler.ForceOverwrite = "true"
10+
Debug.AspNetCompiler.FixedNames = "false"
11+
Debug.AspNetCompiler.Debug = "True"
12+
Release.AspNetCompiler.VirtualPath = "/WebSite"
13+
Release.AspNetCompiler.PhysicalPath = "WebSite\"
14+
Release.AspNetCompiler.TargetPath = "PrecompiledWeb\WebSite\"
15+
Release.AspNetCompiler.Updateable = "true"
16+
Release.AspNetCompiler.ForceOverwrite = "true"
17+
Release.AspNetCompiler.FixedNames = "false"
18+
Release.AspNetCompiler.Debug = "False"
19+
VWDPort = "2101"
20+
TargetFrameworkMoniker = ".NETFramework,Version%3Dv4.0"
21+
EndProjectSection
22+
EndProject
23+
Global
24+
GlobalSection(SolutionConfigurationPlatforms) = preSolution
25+
Debug|.NET = Debug|.NET
26+
EndGlobalSection
27+
GlobalSection(ProjectConfigurationPlatforms) = postSolution
28+
{E7100136-FDA4-46DF-B114-8F6ECC7C2DF8}.Debug|.NET.ActiveCfg = Debug|.NET
29+
{E7100136-FDA4-46DF-B114-8F6ECC7C2DF8}.Debug|.NET.Build.0 = Debug|.NET
30+
EndGlobalSection
31+
GlobalSection(SolutionProperties) = preSolution
32+
HideSolutionNode = FALSE
33+
EndGlobalSection
34+
EndGlobal

‎VB/WebSite/App_Code/GanttData.vb

+61
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,61 @@
1+
Imports System
2+
Imports System.Data
3+
Imports System.Configuration
4+
Imports System.Web
5+
Imports System.Web.Security
6+
Imports System.Web.UI
7+
Imports System.Web.UI.WebControls
8+
Imports System.Web.UI.WebControls.WebParts
9+
Imports System.Web.UI.HtmlControls
10+
Imports System.ComponentModel
11+
12+
''' <summary>
13+
''' Summary description for GanttData
14+
''' </summary>
15+
Public Class GanttData
16+
Inherits DataSet
17+
18+
Public Sub New()
19+
Dim table As New DataTable("table")
20+
21+
table.Columns.Add("GanntTask", GetType(String))
22+
table.Columns.Add("GanntStart", GetType(DateTime))
23+
table.Columns.Add("GanntEnd", GetType(DateTime))
24+
table.Columns.Add("GanttPercentageComplete", GetType(Int32))
25+
table.Columns.Add("GanttOwner", GetType(String))
26+
27+
Tables.AddRange(New DataTable() { table })
28+
End Sub
29+
30+
Public Shared Function CreateData() As GanttData
31+
Dim ds As New GanttData()
32+
Dim table As DataTable = ds.Tables("table")
33+
34+
table.Rows.Add(New Object() { "Analysing", New DateTime(2009,1,1), New DateTime(2009,1,5), 90, "John"})
35+
table.Rows.Add(New Object() { "Planning", New DateTime(2009,1,5), New DateTime(2009,1,10), 80, "Williams" })
36+
table.Rows.Add(New Object() { "Implementation", New DateTime(2009,1,10), New DateTime(2009,1,25), 85, "Iverson" })
37+
table.Rows.Add(New Object() { "Maintaince", New DateTime(2009,1,25), New DateTime(2009,2,5), 90, "Young" })
38+
39+
Return ds
40+
End Function
41+
42+
#Region "Disable Serialization for Tables and Relations"
43+
<DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>
44+
Public Shadows ReadOnly Property Tables() As DataTableCollection
45+
Get
46+
Return MyBase.Tables
47+
End Get
48+
End Property
49+
50+
<DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>
51+
Public Shadows ReadOnly Property Relations() As DataRelationCollection
52+
Get
53+
Return MyBase.Relations
54+
End Get
55+
End Property
56+
#End Region ' Disable Serialization for Tables and Relations
57+
58+
End Class
59+
60+
61+

‎VB/WebSite/Default.aspx

+95
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,95 @@
1+
<%@ Page Language="VB" AutoEventWireup="true" CodeFile="Default.aspx.vb" Inherits="_Default" %>
2+
3+
<%@ Register Assembly="DevExpress.XtraCharts.v15.1.Web, Version=15.1.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a"
4+
Namespace="DevExpress.XtraCharts.Web" TagPrefix="dxchartsui" %>
5+
<%@ Register Assembly="DevExpress.XtraCharts.v15.1, Version=15.1.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a"
6+
Namespace="DevExpress.XtraCharts" TagPrefix="cc1" %>
7+
8+
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
9+
10+
<html xmlns="http://www.w3.org/1999/xhtml" >
11+
<head runat="server">
12+
<title>Untitled Page</title>
13+
</head>
14+
<body>
15+
<form id="form1" runat="server">
16+
<div>
17+
<dxchartsui:WebChartControl ID="WebChartControl1" runat="server" ClientInstanceName="chart"
18+
Height="283px" Width="924px" OnCustomDrawSeriesPoint="WebChartControl1_CustomDrawSeriesPoint">
19+
<SeriesSerializable>
20+
<cc1:Series Name="Planned"
21+
ValueScaleType="DateTime">
22+
<ViewSerializable>
23+
<cc1:OverlappedGanttSeriesView barwidth="0.8" hiddenserializablestring="to be serialized"></cc1:OverlappedGanttSeriesView>
24+
</ViewSerializable>
25+
<LabelSerializable>
26+
<cc1:RangeBarSeriesLabel hiddenserializablestring="to be serialized">
27+
</cc1:RangeBarSeriesLabel>
28+
</LabelSerializable>
29+
<PointOptionsSerializable>
30+
<cc1:RangeBarPointOptions hiddenserializablestring="to be serialized"></cc1:RangeBarPointOptions>
31+
</PointOptionsSerializable>
32+
<LegendPointOptionsSerializable>
33+
<cc1:RangeBarPointOptions hiddenserializablestring="to be serialized"></cc1:RangeBarPointOptions>
34+
</LegendPointOptionsSerializable>
35+
</cc1:Series>
36+
<cc1:Series Name="Actual"
37+
ValueScaleType="DateTime">
38+
<ViewSerializable>
39+
<cc1:OverlappedGanttSeriesView hiddenserializablestring="to be serialized"></cc1:OverlappedGanttSeriesView>
40+
</ViewSerializable>
41+
<LabelSerializable>
42+
<cc1:RangeBarSeriesLabel hiddenserializablestring="to be serialized">
43+
</cc1:RangeBarSeriesLabel>
44+
</LabelSerializable>
45+
<PointOptionsSerializable>
46+
<cc1:RangeBarPointOptions hiddenserializablestring="to be serialized"></cc1:RangeBarPointOptions>
47+
</PointOptionsSerializable>
48+
<LegendPointOptionsSerializable>
49+
<cc1:RangeBarPointOptions hiddenserializablestring="to be serialized"></cc1:RangeBarPointOptions>
50+
</LegendPointOptionsSerializable>
51+
</cc1:Series>
52+
</SeriesSerializable>
53+
<SeriesTemplate
54+
>
55+
<PointOptionsSerializable>
56+
<cc1:PointOptions HiddenSerializableString="to be serialized">
57+
</cc1:PointOptions>
58+
</PointOptionsSerializable>
59+
<LabelSerializable>
60+
<cc1:SideBySideBarSeriesLabel HiddenSerializableString="to be serialized" LineVisible="True">
61+
</cc1:SideBySideBarSeriesLabel>
62+
</LabelSerializable>
63+
<LegendPointOptionsSerializable>
64+
<cc1:PointOptions HiddenSerializableString="to be serialized">
65+
</cc1:PointOptions>
66+
</LegendPointOptionsSerializable>
67+
<ViewSerializable>
68+
<cc1:SideBySideBarSeriesView HiddenSerializableString="to be serialized">
69+
</cc1:SideBySideBarSeriesView>
70+
</ViewSerializable>
71+
</SeriesTemplate>
72+
<DiagramSerializable>
73+
<cc1:GanttDiagram>
74+
<axisx visibleinpanesserializable="-1">
75+
<Range SideMarginsEnabled="True"></Range>
76+
</axisx>
77+
<axisy visibleinpanesserializable="-1">
78+
<Label Angle="90"></Label>
79+
80+
<Range SideMarginsEnabled="True"></Range>
81+
</axisy>
82+
</cc1:GanttDiagram>
83+
</DiagramSerializable>
84+
<FillStyle >
85+
<OptionsSerializable>
86+
<cc1:SolidFillOptions HiddenSerializableString="to be serialized" />
87+
</OptionsSerializable>
88+
</FillStyle>
89+
</dxchartsui:WebChartControl>
90+
&nbsp;
91+
92+
</div>
93+
</form>
94+
</body>
95+
</html>

‎VB/WebSite/Default.aspx.vb

+69
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,69 @@
1+
Imports System
2+
Imports System.Data
3+
Imports System.Web
4+
Imports System.Web.UI
5+
Imports System.Web.UI.WebControls
6+
Imports DevExpress.XtraCharts
7+
8+
Partial Public Class _Default
9+
Inherits System.Web.UI.Page
10+
11+
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
12+
' Cpecify ScaleTypes
13+
WebChartControl1.Series(0).ArgumentScaleType = ScaleType.Qualitative
14+
WebChartControl1.Series(0).ValueScaleType = ScaleType.DateTime
15+
WebChartControl1.Series(1).ArgumentScaleType = ScaleType.Qualitative
16+
WebChartControl1.Series(1).ValueScaleType = ScaleType.DateTime
17+
TryCast(WebChartControl1.Series(1).Label, RangeBarSeriesLabel).Position = RangeBarLabelPosition.Inside
18+
19+
' Bound series to data
20+
WebChartControl1.DataSource = GanttData.CreateData()
21+
WebChartControl1.Series(0).ArgumentDataMember = "GanntTask"
22+
WebChartControl1.Series(0).ValueDataMembers.AddRange(New String() { "GanntStart", "GanntEnd" })
23+
24+
' Create argument descriptions for the summary function.
25+
Dim argument1Description As New SummaryFunctionArgumentDescription("GanntStart", ScaleType.DateTime)
26+
Dim argument2Description As New SummaryFunctionArgumentDescription("GanntEnd", ScaleType.DateTime)
27+
Dim argument3Description As New SummaryFunctionArgumentDescription("GanttPercentageComplete", ScaleType.Numerical)
28+
29+
' Register the summary function in a chart.
30+
WebChartControl1.RegisterSummaryFunction("CalcPercentageComplete", "CalcPercentageComplete", 2, New SummaryFunctionArgumentDescription() { argument1Description, argument2Description, argument3Description}, AddressOf CalcPercentageComplete)
31+
32+
WebChartControl1.Series(1).ArgumentDataMember = "GanntTask"
33+
WebChartControl1.Series(1).SummaryFunction = "CalcPercentageComplete([GanntStart], [GanntEnd], [GanttPercentageComplete])"
34+
35+
' Don't forget this !:)
36+
WebChartControl1.DataBind()
37+
End Sub
38+
39+
' Declare the summary function.
40+
Private Shared Function CalcPercentageComplete(ByVal series As Series, ByVal argument As Object, ByVal functionArguments() As String, ByVal values() As DataSourceValues, ByVal colors() As Object) As SeriesPoint()
41+
42+
' Create an array of the resulting series points.
43+
Dim points() As SeriesPoint = { New SeriesPoint(argument.ToString(), New DateTime() { New DateTime(), New DateTime() }) }
44+
45+
' Calculate values
46+
Dim start As DateTime = Convert.ToDateTime(values(0)(functionArguments(0)))
47+
Dim [end] As DateTime = Convert.ToDateTime(values(0)(functionArguments(1)))
48+
Dim ganttPercentageComplete As Double = Convert.ToDouble(values(0)(functionArguments(2)))
49+
50+
Dim ts As TimeSpan = [end].Subtract(start)
51+
52+
points(0).DateTimeValues(0) = start
53+
points(0).DateTimeValues(1) = start.Add(TimeSpan.FromHours(ts.TotalHours * ganttPercentageComplete/100))
54+
55+
Dim ob As Object = values(0)("")
56+
57+
points(0).Tag = (TryCast(ob, DataRowView)).Row("GanttOwner").ToString() & "|" & ganttPercentageComplete.ToString()
58+
59+
Return points
60+
End Function
61+
62+
Protected Sub WebChartControl1_CustomDrawSeriesPoint(ByVal sender As Object, ByVal e As CustomDrawSeriesPointEventArgs)
63+
If e.Series.Name = "Actual" Then
64+
e.LabelText = e.SeriesPoint.Tag.ToString().Split("|"c)(0)
65+
e.SecondLabelText = e.SeriesPoint.Tag.ToString().Split("|"c)(1) & "%"
66+
End If
67+
End Sub
68+
69+
End Class

‎VB/WebSite/Web.Config

+80
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,80 @@
1+
<?xml version="1.0" encoding="utf-8"?>
2+
<!--
3+
Note: As an alternative to hand editing this file you can use the
4+
web admin tool to configure settings for your application. Use
5+
the Website->Asp.Net Configuration option in Visual Studio.
6+
A full list of settings and comments can be found in
7+
machine.config.comments usually located in
8+
\Windows\Microsoft.Net\Framework\v2.x\Config
9+
-->
10+
<configuration>
11+
<appSettings />
12+
<connectionStrings />
13+
<system.web>
14+
<!--
15+
Set compilation debug="true" to insert debugging
16+
symbols into the compiled page. Because this
17+
affects performance, set this value to true only
18+
during development.
19+
-->
20+
<compilation targetFramework="4.0" debug="true">
21+
<assemblies>
22+
<add assembly="DevExpress.XtraCharts.v15.1.Web, Version=15.1.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
23+
<add assembly="DevExpress.XtraCharts.v15.1, Version=15.1.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
24+
<add assembly="DevExpress.Web.v15.1, Version=15.1.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
25+
<add assembly="DevExpress.Charts.v15.1.Core, Version=15.1.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
26+
<add assembly="DevExpress.Printing.v15.1.Core, Version=15.1.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
27+
<add assembly="DevExpress.Data.v15.1, Version=15.1.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
28+
<add assembly="DevExpress.Utils.v15.1, Version=15.1.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
29+
<add assembly="System.Design, Version=2.0.0.0, Culture=neutral, PublicKeyToken=B03F5F7F11D50A3A" />
30+
<add assembly="DevExpress.XtraEditors.v15.1, Version=15.1.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
31+
<add assembly="System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=B77A5C561934E089" />
32+
<add assembly="System.Web, Version=2.0.0.0, Culture=neutral, PublicKeyToken=B03F5F7F11D50A3A" />
33+
<add assembly="System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=B77A5C561934E089" />
34+
<add assembly="System.Configuration, Version=2.0.0.0, Culture=neutral, PublicKeyToken=B03F5F7F11D50A3A" />
35+
<add assembly="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=B03F5F7F11D50A3A" />
36+
<add assembly="System.Xml, Version=2.0.0.0, Culture=neutral, PublicKeyToken=B77A5C561934E089" />
37+
<add assembly="System.Data, Version=2.0.0.0, Culture=neutral, PublicKeyToken=B77A5C561934E089" />
38+
<add assembly="System.Web.Services, Version=2.0.0.0, Culture=neutral, PublicKeyToken=B03F5F7F11D50A3A" />
39+
<add assembly="System.DirectoryServices, Version=2.0.0.0, Culture=neutral, PublicKeyToken=B03F5F7F11D50A3A" />
40+
<add assembly="System.DirectoryServices.Protocols, Version=2.0.0.0, Culture=neutral, PublicKeyToken=B03F5F7F11D50A3A" />
41+
<add assembly="System.EnterpriseServices, Version=2.0.0.0, Culture=neutral, PublicKeyToken=B03F5F7F11D50A3A" />
42+
<add assembly="System.ServiceProcess, Version=2.0.0.0, Culture=neutral, PublicKeyToken=B03F5F7F11D50A3A" />
43+
<add assembly="System.Web.RegularExpressions, Version=2.0.0.0, Culture=neutral, PublicKeyToken=B03F5F7F11D50A3A" />
44+
<add assembly="DevExpress.RichEdit.v15.1.Core, Version=15.1.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
45+
</assemblies>
46+
</compilation>
47+
<!--
48+
The <authentication> section enables configuration
49+
of the security authentication mode used by
50+
ASP.NET to identify an incoming user.
51+
-->
52+
<authentication mode="Windows" />
53+
<!--
54+
The <customErrors> section enables configuration
55+
of what to do if/when an unhandled error occurs
56+
during the execution of a request. Specifically,
57+
it enables developers to configure html error pages
58+
to be displayed in place of a error stack trace.
59+
60+
<customErrors mode="RemoteOnly" defaultRedirect="GenericErrorPage.htm">
61+
<error statusCode="403" redirect="NoAccess.htm" />
62+
<error statusCode="404" redirect="FileNotFound.htm" />
63+
</customErrors>
64+
-->
65+
<httpModules>
66+
<add name="ASPxHttpHandlerModule" type="DevExpress.Web.ASPxHttpHandlerModule, DevExpress.Web.v15.1, Version=15.1.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
67+
</httpModules>
68+
<httpHandlers>
69+
<add verb="GET,POST" path="ASPxUploadProgressHandlerPage.ashx" type="DevExpress.Web.ASPxUploadProgressHttpHandler, DevExpress.Web.v15.1, Version=15.1.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" validate="false" />
70+
</httpHandlers>
71+
</system.web>
72+
<system.webServer>
73+
<modules>
74+
<add name="ASPxHttpHandlerModule" type="DevExpress.Web.ASPxHttpHandlerModule, DevExpress.Web.v15.1, Version=15.1.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
75+
</modules>
76+
<handlers>
77+
<add name="ASPxUploadProgressHandler" preCondition="integratedMode" verb="GET,POST" path="ASPxUploadProgressHandlerPage.ashx" type="DevExpress.Web.ASPxUploadProgressHttpHandler, DevExpress.Web.v15.1, Version=15.1.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
78+
</handlers>
79+
</system.webServer>
80+
</configuration>

0 commit comments

Comments
 (0)