SeriesList sList = new SeriesList();
sList.ChartType = ChartType.Bar;
sList.AxisFactor.BackColor = Color.Pink;
sList.AxisFactor.XAxis.Direction = AxisDirection.Right;
sList.AxisFactor.YAxis.IsInverseAxis = true;
sList.GraphArea.Grid.GridDirection = GridDirection.None;
Random r = new Random();
for(int i = 0; i < 1; i++)
{
Series sr = new Series();
sr.Name = "여";
sr.SeriesColor = Color.Red;
for(int x = 0; x < 20; x++)
{
SeriesItem item = new SeriesItem();
item.Name = x.ToString();
item.YValue = r.Next(90);
sr.items.Add(item);
}
sList.SeriesCollection.Add(sr);
}
SeriesList sList2 = new SeriesList();
sList2.ChartType = ChartType.Bar;
sList2.AxisFactor.BackColor = Color.SteelBlue;
sList2.GraphArea.Grid.GridDirection = GridDirection.None;
for(int i = 0; i < 1; i++)
{
Series sr = new Series();
sr.Name = "남";
sr.ChartType = ChartType.Bar;
sr.SeriesColor = Color.Blue;
for(int x = 0; x < 20; x++)
{
SeriesItem item = new SeriesItem();
item.Name = x.ToString();
item.YValue = r.Next(90);
sr.items.Add(item);
}
sList2.SeriesCollection.Add(sr);
}
this.hHippoChart1.LegendBox.Visible = true;
this.hHippoChart1.Direction = GraphAreaLocation.Horizontal;
this.hHippoChart1.DesignType = ChartDesignType.None;
this.hHippoChart1.SeriesListDictionary.Add(sList);
this.hHippoChart1.SeriesListDictionary.Add(sList2);
this.hHippoChart1.DrawChart();
Dim sList As New. SeriesList()
sList.ChartType = ChartType.Bar
sList.AxisFactor.BackColor = Color.Pink
sList.AxisFactor.XAxis.Direction = AxisDirection.Right
sList.AxisFactor.YAxis.IsInverseAxis = True
sList.GraphArea.Grid.GridDirection = GridDirection.None
Dim r As New. Random()
For i As Integer = 0 To 0
Dim sr As New. Series()
sr.Name = "여"
sr.SeriesColor = Color.Red
For x As Integer = 0 To 19
Dim item As New. SeriesItem()
item.Name = x.ToString()
item.YValue = r.[Next](90)
sr.items.Add(item)
Next
sList.SeriesCollection.Add(sr)
Next
Dim sList2 As New. SeriesList()
sList2.ChartType = ChartType.Bar
sList2.AxisFactor.BackColor = Color.SteelBlue
sList2.GraphArea.Grid.GridDirection = GridDirection.None
For i As Integer = 0 To 0
Dim sr As New. Series()
sr.Name = "남"
sr.ChartType = ChartType.Bar
sr.SeriesColor = Color.Blue
For x As Integer = 0 To 19
Dim item As New. SeriesItem()
item.Name = x.ToString()
item.YValue = r.[Next](90)
sr.items.Add(item)
Next
sList2.SeriesCollection.Add(sr)
Next
Me.hHippoChart1.LegendBox.Visible = True
Me.hHippoChart1.Direction = GraphAreaLocation.Horizontal
Me.hHippoChart1.DesignType = ChartDesignType.None
Me.hHippoChart1.SeriesListDictionary.Add(sList)
Me.hHippoChart1.SeriesListDictionary.Add(sList2)
Me.hHippoChart1.DrawChart()