Tweet

buy amoxicillin for chickens amoxicillin female viagra drops female viagra pills fiorentina.info female viagra name buy naltrexone where to buy naltrexone in uk tonydyson.co.uk naltrexone uk abortion pill abortion pill online usa 입체 투명, 멀티 시리즈 피라미드 차트

      

C#

 
SeriesList sList = new SeriesList();
sList.ChartType = ChartType.Pylamid;
sList.IsShow3D = true;
sList.Transparency = 60;

Random r = new Random();
for(int i = 0; i < 4; i++)
{
Series sr = new Series();
sr.UnAxisFactor.TextLocation = UnAxisFigureTextLocation.Outer;

for(int x = 0; x < 5; x++)
{
SeriesItem item = new SeriesItem();
item.Name = "item" + x.ToString();
item.YValue = r.Next(90);
if (i == 0 || i == 3) item.IsShowFigureText = true;

sr.items.Add(item);
}
sList.SeriesCollection.Add(sr);
}

this.hHippoChart1.SeriesListDictionary.Add(sList);
this.hHippoChart1.DrawChart();

VB

 
Dim sList As New. SeriesList()
sList.ChartType = ChartType.Pylamid
sList.IsShow3D = True
sList.Transparency = 60

Dim r As New. Random()
For i As Integer = 0 To 3
Dim sr As New. Series()
sr.UnAxisFactor.TextLocation = UnAxisFigureTextLocation.Outer

For x As Integer = 0 To 4
Dim item As New. SeriesItem()
item.Name = "item" & x.ToString()
item.YValue = r.[Next](90)
If i = 0 OrElse i = 3 Then
item.IsShowFigureText = True
End If

sr.items.Add(item)
Next
sList.SeriesCollection.Add(sr)
Next

Me.hHippoChart1.SeriesListDictionary.Add(sList)
Me.hHippoChart1.DrawChart()