VB2010 Chartでの表示と収得の方法？ (ID：147846)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

Q1,Q3に関するサンプル
Q2はChart.Hittestで出来るのではないでしょうか。
Q4出来ます。型をIntegerではなく小数点を扱える型にするだけ。

Dim tbl As New DataTable
        With tbl.Columns
            .Add("日付", GetType(Date))
            .Add("高値", GetType(Integer))
            .Add("安値", GetType(Integer))
            .Add("始値", GetType(Integer))
            .Add("終値", GetType(Integer))
            .Add("指数1", GetType(Integer))
        End With

tbl.Rows.Add({#8/1/2012#, 700, 500, 600, 550, 500})
        tbl.Rows.Add({#8/2/2012#, 1100, 800, 850, 800, DBNull.Value})
        tbl.Rows.Add({#8/7/2012#, 800, 500, 700, 750, 600})
        tbl.Rows.Add({#8/9/2012#, 800, 500, 300, 600, 400})
        'tbl.Rows.Add({#8/31/2012#, DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value})

Chart1.Series.Clear()
        Chart1.Titles.Add("株価 日足")

With Chart1.ChartAreas(0).AxisX
            .MajorGrid.Enabled = False
            .MinorGrid.Enabled = False
            .Minimum = #8/1/2012#.Subtract(#1/1/1900#).TotalDays + 1
            .Maximum = .Minimum + 31
            .Interval = 7
            .IntervalAutoMode = DataVisualization.Charting.IntervalAutoMode.VariableCount
        End With

Dim rosoku = Chart1.Series.Add("ローソク足")
        With rosoku
            .ChartType = DataVisualization.Charting.SeriesChartType.Candlestick
            .XValueMember = "日付"
            .YValueMembers = "高値, 安値, 始値, 終値"
            '.IsVisibleInLegend = False
        End With

Dim ore1 = Chart1.Series.Add("折れ線①")
        With ore1
            .ChartType = DataVisualization.Charting.SeriesChartType.Line
            .XValueMember = "日付"
            .YValueMembers = "指数①"
            '.IsVisibleInLegend = False
        End With
        Chart1.DataSource = tbl
        Chart1.DataBind()

←解決時は質問者本人がここをチェックしてください。

戻る