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

名前

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

本文

何度もすみません。

Ｑ１、サンプルでは４日とも全ての日付が表示されますが、多数になると按分され全ては表示されませ

ん。
      この日付を、例えば週始めのみ、などと任意に指定して表示するには？
Ｑ２、x軸のカーソル（矢印）の位置から、該当する日付などを特定するには？
      その特定した日付などから、描画されてるローソク足の株価などを検索したいのです。
Ｑ３、折れ線の値が 0 の時には、線の描画がされないようにするには？
Ｑ４、折れ線で小数点以下の値も取り扱えるでしょうか？
      可能でしたらその方法も教えてください。

超初心者です。
どうぞよろしくお願いします。

'データの取得
        Dim ds As New DataSet
        Dim dt As New DataTable
        Dim dtRow As DataRow

'列の作成
        dt.Columns.Add("日付", Type.GetType("System.String"))
        dt.Columns.Add("高値", Type.GetType("System.Int32"))
        dt.Columns.Add("安値", Type.GetType("System.Int32"))
        dt.Columns.Add("始値", Type.GetType("System.Int32"))
        dt.Columns.Add("終値", Type.GetType("System.Int32"))
        dt.Columns.Add("指数①", Type.GetType("System.Int32"))
        ds.Tables.Add(dt)

'データの追加
        dtRow = ds.Tables(0).NewRow
        dtRow(0) = "2012/08/01" '日付
        dtRow(3) = "600"        '始値
        dtRow(1) = "700"        '高値
        dtRow(2) = "500"        '安値
        dtRow(4) = "550"        '終値
        dtRow(5) = "500"        '指数①
        ds.Tables(0).Rows.Add(dtRow)

dtRow = ds.Tables(0).NewRow
        dtRow(0) = "2012/08/2" '日付
        dtRow(3) = "850"        '始値
        dtRow(1) = "1100"       '高値
        dtRow(2) = "800"        '安値
        dtRow(4) = "800"        '終値
        dtRow(5) = "0"          '指数①
        ds.Tables(0).Rows.Add(dtRow)

dtRow = ds.Tables(0).NewRow
        dtRow(0) = "2012/08/7"  '日付
        dtRow(3) = "700"        '始値
        dtRow(1) = "800"        '高値
        dtRow(2) = "500"        '安値
        dtRow(4) = "750"        '終値
        dtRow(5) = "600"        '指数①
        ds.Tables(0).Rows.Add(dtRow)

dtRow = ds.Tables(0).NewRow
        dtRow(0) = "2012/08/8"  '日付
        dtRow(3) = "300"        '始値
        dtRow(1) = "800"        '高値
        dtRow(2) = "500"        '安値
        dtRow(4) = "600"        '終値
        dtRow(5) = "400"        '指数①
        ds.Tables(0).Rows.Add(dtRow)

'Chartコントロールにデータソースを設定
        Chart1.DataSource = ds

'初期化    
        Chart1.Series.Clear()
        'Chartコントロールにタイトルを設定
        Chart1.Titles.Add("株価 日足")

Chart1.ChartAreas(0).AxisX.MajorGrid.Enabled = False
        Chart1.ChartAreas(0).AxisX.MinorGrid.Enabled = False

'グラフの種類,系列,軸の設定
        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.DataBind()
    End Sub

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

戻る