Tweet

buy clomid uk buy clomid tablets buy naltrexone online canada buy low dose naltrexone open naltrexone buy online canada 각 시리즈아이템 항목별로 다른 이미지를 세팅하여 그려본 이미지바 차트

    

C#

 
SeriesList sList = new SeriesList();
sList.ChartType = ChartType.ImageBar;
sList.GraphArea.Grid.GridDirection = GridDirection.None;

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

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

if (x == 0)
{
item.Column = new Column();
item.Column.ImagesBarPath = @"C:\Documents and Settings\Administrator\My Documents\My Pictures\kor.png";

item.Name = "한국";
}
if (x == 1)
{
item.Column = new Column();
item.Column.ImagesBarPath = @"C:\Documents and Settings\Administrator\My Documents\My Pictures\jap.png";

item.Name = "일본";
}
if (x == 2)
{
item.Column = new Column();
item.Column.ImagesBarPath = @"C:\Documents and Settings\Administrator\My Documents\My Pictures\nkor.png";

item.Name = "북한";
}
if (x == 3)
{
item.Column = new Column();
item.Column.ImagesBarPath = @"C:\Documents and Settings\Administrator\My Documents\My Pictures\nep.png";

item.Name = "네팔";
}
item.Column.WidthType = ColumnWidthType.Dynamic;

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

this.hHippoChart1.LegendBox.Visible = false;
this.hHippoChart1.SeriesListDictionary.Add(sList);
this.hHippoChart1.DrawChart();

VB

 
Dim sList As New. SeriesList()
sList.ChartType = ChartType.ImageBar
sList.GraphArea.Grid.GridDirection = GridDirection.None

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

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

If x = 0 Then
item.Column = New Column()
item.Column.ImagesBarPath = "C:\Documents and Settings\Administrator\My Documents\My Pictures\kor.png"

item.Name = "한국"
End If
If x = 1 Then
item.Column = New Column()
item.Column.ImagesBarPath = "C:\Documents and Settings\Administrator\My Documents\My Pictures\jap.png"

item.Name = "일본"
End If
If x = 2 Then
item.Column = New Column()
item.Column.ImagesBarPath = "C:\Documents and Settings\Administrator\My Documents\My Pictures\nkor.png"

item.Name = "북한"
End If
If x = 3 Then
item.Column = New Column()
item.Column.ImagesBarPath = "C:\Documents and Settings\Administrator\My Documents\My Pictures\nep.png"

item.Name = "네팔"
End If
item.Column.WidthType = ColumnWidthType.Dynamic

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

Me.hHippoChart1.LegendBox.Visible = False
Me.hHippoChart1.SeriesListDictionary.Add(sList)
Me.hHippoChart1.DrawChart()