[Tip] 차트 구간 확대 기능 만들기(x축)

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()