C#

 
           SeriesList sList = new SeriesList();
            sList.ChartType = ChartType.Spline;

            AxisArea ar = new AxisArea("", 10, 20);
            ar.BackColor = Color.FromArgb(40, Color.SteelBlue);
            ar.LegendVisible = false;
            sList.AxisFactor.XAxis.Areas.Add(ar); 
            //.. 영역마커를 하나 만들고 두개의 시리즈리스트에 동시에 추가합니다.

            SeriesList sList2 = new SeriesList();
            sList2.AxisFactor.XAxis.SetAxisStep(10, 20, 1);  //.. 여기서 수동 조절해줌
            sList2.AxisFactor.XAxis.Areas.Add(ar);   //.. 영역마커를 요기도 똑같이 추가

            sList.AxisFactor.XAxis.DataType = AxisDataType.Number;
            sList2.AxisFactor.XAxis.DataType = AxisDataType.Number;

            Random r = new Random();
            Series sr = new Series();

            sList.Margin = 30;

            for (int x = 0; x < 40; x++)
            {
                SeriesItem item = new SeriesItem();
                item.YValue = r.Next(110) * x;
                item.Name = x.ToString();
                item.XValue = x;

                sr.items.Add(item);
            }

            sList.SeriesCollection.Add(sr);
            sList2.SeriesCollection.Add(sr); //... 시리스리스트를 새로 하나 만들고 같은 시리즈를 추가합니다.

            this.hHippoChart1.SeriesListDictionary.Add(sList);
            this.hHippoChart1.SeriesListDictionary.Add(sList2);
            this.hHippoChart1.Titles.Label.ForeColor = Color.SteelBlue;
            this.hHippoChart1.DesignType = ChartDesignType.Simple;
            this.hHippoChart1.Direction = GraphAreaLocation.Vertical;

            this.hHippoChart1.DrawChart(); 


VB

 Dim sList As New SeriesList()
sList.ChartType = ChartType.Spline

Dim ar As New AxisArea("", 10, 20)
ar.BackColor = Color.FromArgb(40, Color.SteelBlue)
ar.LegendVisible = False
sList.AxisFactor.XAxis.Areas.Add(ar)
'.. 영역마커를 하나 만들고 두개의 시리즈리스트에 동시에 추가합니다.
Dim sList2 As New SeriesList()
sList2.AxisFactor.XAxis.SetAxisStep(10, 20, 1)
'.. 여기서 수동 조절해줌
sList2.AxisFactor.XAxis.Areas.Add(ar)
'.. 영역마커를 요기도 똑같이 추가
sList.AxisFactor.XAxis.DataType = AxisDataType.Number
sList2.AxisFactor.XAxis.DataType = AxisDataType.Number

Dim r As New Random()
Dim sr As New Series()

sList.Margin = 30

For x As Integer = 0 To 39
    Dim item As New SeriesItem()
    item.YValue = r.[Next](110) * x
    item.Name = x.ToString()
    item.XValue = x
   
    sr.items.Add(item)
Next

sList.SeriesCollection.Add(sr)
sList2.SeriesCollection.Add(sr)
'... 시리스리스트를 새로 하나 만들고 같은 시리즈를 추가합니다.
Me.hHippoChart1.SeriesListDictionary.Add(sList)
Me.hHippoChart1.SeriesListDictionary.Add(sList2)
Me.hHippoChart1.Titles.Label.ForeColor = Color.SteelBlue
Me.hHippoChart1.DesignType = ChartDesignType.Simple
Me.hHippoChart1.Direction = GraphAreaLocation.Vertical
Me.hHippoChart1.DrawChart()


사업자 정보 표시
히포차트 | 하영대 | 경기도 성남시 수정구 복정동 631-5 401 | 사업자 등록번호 : 129-34-55719 | TEL : 031-751-6673 | Mail : hippochart@gmail.com | 통신판매신고번호 : 제 2010-경기성남-1203호 | 사이버몰의 이용약관 바로가기

Posted by 리바이 병장

댓글을 달아 주세요



/* 다음 웹인사이드 로그 분석*/