C#

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

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

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

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

            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.Horizontal;
            this.hHippoChart1.DrawChart(); 


VB

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

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

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.Horizontal
Me.hHippoChart1.DrawChart()

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

Posted by 리바이 병장

댓글을 달아 주세요

  1. 지송 2009.09.23 15:04  댓글주소  수정/삭제  댓글쓰기

    음 날로 기능이 추가되는군요 ^^;

    감기 조심하세요 .

  2. vb 2011.10.07 16:45  댓글주소  수정/삭제  댓글쓰기

    이 구간 차트 기능이요 vb에 붙여논다음에 하면 되는건가요?
    아니면 히포 프로그램상에서 되는건가요??
    vb에서 차트 확대 기능이 지금 절실하게 필요한데 오류나네요...
    제가 vb초보자라서 그런지 수정하는법을 모르겠습니다 ㅜㅜ



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