SeriesList sList = new SeriesList();
sList.ChartType = ChartType.Scatter;
sList.AxisFactor.BackColor = Color.Ivory;
sList.AxisFactor.XAxis.DataType = AxisDataType.DateTime;
sList.AxisFactor.XAxis.DateTimeLabelType = DateTimeLabelType.Week;
sList.AxisFactor.XAxis.AxisUnitText = "주";
Random r = new Random();
for(int i = 0; i < 1; i++)
{
Series sr = new Series();
sr.Points.Width = 5;
for(int x = 0; x < 30; x++)
{
SeriesItem item = new SeriesItem();
item.Name = x.ToString();
item.XDateTimeValue = DateTime.Parse("2015-01-01").AddDays(x);
item.YValue = r.Next(99);
if (item.XDateTimeValue > DateTime.Parse("2015-01-05") && item.XDateTimeValue < DateTime.Parse("2015-01-21"))
{
item.Points = new Points();
item.Points.Width = 15;
}
sr.items.Add(item);
}
sList.SeriesCollection.Add(sr);
}
this.hHippoChart1.Titles.Label.Text = "히포차트 4.3 - 날짜형 X축 (Week 타입)";
this.hHippoChart1.SeriesListDictionary.Add(sList);
this.hHippoChart1.DrawChart();
Dim sList As New. SeriesList()
sList.ChartType = ChartType.Scatter
sList.AxisFactor.BackColor = Color.Ivory
sList.AxisFactor.XAxis.DataType = AxisDataType.DateTime
sList.AxisFactor.XAxis.DateTimeLabelType = DateTimeLabelType.Week
sList.AxisFactor.XAxis.AxisUnitText = "주"
Dim r As New. Random()
For i As Integer = 0 To 0
Dim sr As New. Series()
sr.Points.Width = 5
For x As Integer = 0 To 29
Dim item As New. SeriesItem()
item.Name = x.ToString()
item.XDateTimeValue = DateTime.Parse("2015-01-01").AddDays(x)
item.YValue = r.[Next](99)
If item.XDateTimeValue > DateTime.Parse("2015-01-05") AndAlso item.XDateTimeValue < DateTime.Parse("2015-01-21") Then
item.Points = New Points()
item.Points.Width = 15
End If
sr.items.Add(item)
Next
sList.SeriesCollection.Add(sr)
Next
Me.hHippoChart1.Titles.Label.Text = "히포차트 4.3 - 날짜형 X축 (Week 타입)"
Me.hHippoChart1.SeriesListDictionary.Add(sList)
Me.hHippoChart1.DrawChart()