SeriesList sList = new SeriesList();
sList.ChartType = ChartType.Column;
Random r = new Random();
for(int i = 0; i < 1; i++)
{
Series sr = new Series();
for(int x = 0; x < 3; x++)
{
SeriesItem item = new SeriesItem();
item.Name = "item" + x.ToString();
item.YValue = r.Next(999);
if (x == 1)
{
item.Balloon = new Balloon();
item.Balloon.Label.Text = "히포차트는 \r\n풍선도움말 기능으로 \r\n데이터에 다양한 \r\n코멘트를 달 수 \r\n있습니다. ";
item.Balloon.BalloonType = BalloonType.Rectangle;
item.Balloon.BackColor = Color.White;
item.Balloon.HeightType = HeightType.Bottom;
item.Balloon.IsShadow = false;
}
sr.items.Add(item);
}
sList.SeriesCollection.Add(sr);
}
this.hHippoChart1.DesignType = ChartDesignType.Simple;
this.hHippoChart1.PaletteType = PaletteType.Soft;
this.hHippoChart1.SeriesListDictionary.Add(sList);
this.hHippoChart1.DrawChart();
Dim sList As New. SeriesList()
sList.ChartType = ChartType.Column
Dim r As New. Random()
Dim i As Integer = 0
While i < 1
Dim sr As New. Series()
Dim x As Integer = 0
While x < 3
Dim item As New. SeriesItem()
item.Name = "item" + x.ToString()
item.YValue = r.[Next](999)
If x = 1 Then
item.Balloon = New Balloon()
item.Balloon.Label.Text = "히포차트는 " & vbCr & vbLf & "풍선도움말 기능으로 " & vbCr & vbLf & "데이터에 다양한 " & vbCr & vbLf & "코멘트를 달 수 " & vbCr & vbLf & "있습니다. "
item.Balloon.BalloonType = BalloonType.Rectangle
item.Balloon.BackColor = Color.White
item.Balloon.HeightType = HeightType.Bottom
item.Balloon.IsShadow = False
End If
sr.items.Add(item)
System.Math.Max(System.Threading.Interlocked.Increment(x),x - 1)
End While
sList.SeriesCollection.Add(sr)
System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While
Me.hHippoChart1.DesignType = ChartDesignType.Simple
Me.hHippoChart1.PaletteType = PaletteType.Soft
Me.hHippoChart1.SeriesListDictionary.Add(sList)
Me.hHippoChart1.DrawChart()