HippoEngine en = new HippoEngine();
en.DataType = DataSourceType.Excel;
en.Query = " select * from [Sheet1$] ";
en.ConnectionString = @"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=F:\MY Docu\stock33.xls;Extended Properties=Excel 12.0;HDR=YES";
SeriesList sList = en.GetSeriesListOfStock(DataSourceType.Excel, "년/월", "시가", "종가", "저가", "고가");
sList.ChartType = ChartType.Stock;
sList.SeriesCollection[0].Name = "주가";
sList.GraphArea.Grid.Interval = 10;
sList.GraphArea.Grid.GridDirection = GridDirection.Vertical;
sList.AxisFactor.XAxis.LabelFormat.FormatFlags = StringFormatFlags.DirectionVertical;
sList.AxisFactor.XAxis.Interval = 10;
sList.AxisFactor.XAxis.IsVisibleFigures = false;
sList.AxisFactor.XAxis.IsShowTick = false;
sList.AxisFactor.YAxis.SetAxisStep(10000, 40000, 5000);
this.hHippoChart1.Direction = GraphAreaLocation.Vertical;
this.hHippoChart1.DesignType = ChartDesignType.Simple;
this.hHippoChart1.Titles.Label.ForeColor = Color.SteelBlue;
this.hHippoChart1.LegendBox.Visible = false;
this.hHippoChart1.SeriesListDictionary.Add(sList);
this.hHippoChart1.DrawChart();
Dim en As New. HippoEngine()
en.DataType = DataSourceType.Excel
en.Query = " select * from [Sheet1$] "
en.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=F:\MY Docu\stock33.xls;Extended Properties=Excel 12.0;HDR=YES"
Dim sList As SeriesList = en.GetSeriesListOfStock(DataSourceType.Excel, "년/월", "시가", "종가", "저가", "고가")
sList.ChartType = ChartType.Stock
sList.SeriesCollection(0).Name = "주가"
sList.GraphArea.Grid.Interval = 10
sList.GraphArea.Grid.GridDirection = GridDirection.Vertical
sList.AxisFactor.XAxis.LabelFormat.FormatFlags = StringFormatFlags.DirectionVertical
sList.AxisFactor.XAxis.Interval = 10
sList.AxisFactor.XAxis.IsVisibleFigures = False
sList.AxisFactor.XAxis.IsShowTick = False
sList.AxisFactor.YAxis.SetAxisStep(10000, 40000, 5000)
Me.hHippoChart1.Direction = GraphAreaLocation.Vertical
Me.hHippoChart1.DesignType = ChartDesignType.Simple
Me.hHippoChart1.Titles.Label.ForeColor = Color.SteelBlue
Me.hHippoChart1.LegendBox.Visible = False
Me.hHippoChart1.SeriesListDictionary.Add(sList)
Me.hHippoChart1.DrawChart()