Tweet

buy amoxicillin for dogs uk buy amoxicillin amoxil 500 side effects amoxicillin 500mg capsules side effects tamoxifen uk brands buy tamoxifen ireland go tamoxifen for men buy abortion pill online buy abortion pill uk click order abortion pill online uk 사용자의 문의가 있어 만들어본 샘플 코드입니다. 시리즈리스트 3개를 추가하여 1, 2, 3월 에 똑같은 데이터를 그룹화 하여 표시하는 팁입니다.

                                        

C#

 
SeriesList sList = new SeriesList();
SeriesList sList2 = new SeriesList();
SeriesList sList3 = new SeriesList();
sList.ChartType = ChartType.Column;
sList2.ChartType = ChartType.Column;
sList3.ChartType = ChartType.Column;

sList.GraphArea.Grid.GridDirection = GridDirection.Horizontal;
sList2.GraphArea.Grid.GridDirection = GridDirection.Horizontal;
sList3.GraphArea.Grid.GridDirection = GridDirection.Horizontal;

sList.GraphArea.Grid.IsBackGridColor = false;
sList2.AxisFactor.YAxis.Visible = false;
sList3.AxisFactor.YAxis.Visible = false;

sList.AxisFactor.XAxis.TitleLabel.Text = "1월";
sList2.AxisFactor.XAxis.TitleLabel.Text = "2월";
sList3.AxisFactor.XAxis.TitleLabel.Text = "3월";

sList.AxisFactor.YAxis.SetAxisStep(0, 90, 30);
sList2.AxisFactor.YAxis.SetAxisStep(0, 90, 30);
sList3.AxisFactor.YAxis.SetAxisStep(0, 90, 30);

Random r = new Random();
for(int i = 0; i < 2; i++)
{
Series sr = new Series();

if (i == 0)
{
sr.Name = "계획";
}
else
{
sr.Name = "매출";
}

for(int x = 0; x < 3; x++)
{
SeriesItem item = new SeriesItem();
item.Name = x.ToString();
item.YValue = r.Next(90);

sr.items.Add(item);
}

sList.SeriesCollection.Add(sr);
}

for(int i = 0; i < 2; i++)
{
Series sr = new Series();
sr.LegendVisible = false;

if (i == 0)
{
sr.Name = "계획";
}
else
{
sr.Name = "매출";
}

for(int x = 0; x < 3; x++)
{
SeriesItem item = new SeriesItem();
item.Name = x.ToString();
item.YValue = r.Next(90);

sr.items.Add(item);
}

sList2.SeriesCollection.Add(sr);
sList3.SeriesCollection.Add(sr);
}

this.hHippoChart1.Direction = GraphAreaLocation.Horizontal;
this.hHippoChart1.SeriesListDictionary.Add(sList);
this.hHippoChart1.SeriesListDictionary.Add(sList2);
this.hHippoChart1.SeriesListDictionary.Add(sList3);
this.hHippoChart1.DrawChart();

VB

 
Dim sList As New. SeriesList()
Dim sList2 As New. SeriesList()
Dim sList3 As New. SeriesList()
sList.ChartType = ChartType.Column
sList2.ChartType = ChartType.Column
sList3.ChartType = ChartType.Column

sList.GraphArea.Grid.GridDirection = GridDirection.Horizontal
sList2.GraphArea.Grid.GridDirection = GridDirection.Horizontal
sList3.GraphArea.Grid.GridDirection = GridDirection.Horizontal

sList.GraphArea.Grid.IsBackGridColor = False
sList2.AxisFactor.YAxis.Visible = False
sList3.AxisFactor.YAxis.Visible = False

sList.AxisFactor.XAxis.TitleLabel.Text = "1월"
sList2.AxisFactor.XAxis.TitleLabel.Text = "2월"
sList3.AxisFactor.XAxis.TitleLabel.Text = "3월"

sList.AxisFactor.YAxis.SetAxisStep(0, 90, 30)
sList2.AxisFactor.YAxis.SetAxisStep(0, 90, 30)
sList3.AxisFactor.YAxis.SetAxisStep(0, 90, 30)

Dim r As New. Random()
For i As Integer = 0 To 1
Dim sr As New. Series()

If i = 0 Then
sr.Name = "계획"
Else
sr.Name = "매출"
End If

For x As Integer = 0 To 2
Dim item As New. SeriesItem()
item.Name = x.ToString()
item.YValue = r.[Next](90)

sr.items.Add(item)
Next

sList.SeriesCollection.Add(sr)
Next

For i As Integer = 0 To 1
Dim sr As New. Series()
sr.LegendVisible = False

If i = 0 Then
sr.Name = "계획"
Else
sr.Name = "매출"
End If

For x As Integer = 0 To 2
Dim item As New. SeriesItem()
item.Name = x.ToString()
item.YValue = r.[Next](90)

sr.items.Add(item)
Next

sList2.SeriesCollection.Add(sr)
sList3.SeriesCollection.Add(sr)
Next

Me.hHippoChart1.Direction = GraphAreaLocation.Horizontal
Me.hHippoChart1.SeriesListDictionary.Add(sList)
Me.hHippoChart1.SeriesListDictionary.Add(sList2)
Me.hHippoChart1.SeriesListDictionary.Add(sList3)
Me.hHippoChart1.DrawChart()