VB2010 Chartでローソク足と折れ線を表示するには？ (ID:147779)

名前

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

本文

ローソク足チャートに折れ線も表示したいのですが上手く行きません。
１、---の部分を追加しますとローソク足が消えてしまいます。
２、Y軸の基点が０になってるのを４００など株価に合わせて調整したい。
超初心者です。
よろしくお願いします。

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 'データの取得
 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) = "550"        '指数
 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) = "700"        '指数
 ds.Tables(0).Rows.Add(dtRow)

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

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

'初期化    
 Chart1.Series.Clear()
 'Chartコントロールにタイトルを設定
 Chart1.Titles.Add("株価 ローソク足")
 'グラフの種類,系列,軸の設定
 For I As Integer = 1 To ds.Tables(0).Columns.Count - 1
     '列名の取得
     Dim columnName As String = ds.Tables(0).Columns(I).ColumnName
     '系列の設定
     Chart1.Series.Add(columnName)
     'グラフの種類（ローソク足チャート ）
     Chart1.Series(columnName).ChartType = DataVisualization.Charting.SeriesChartType.Candlestick
     'X軸
     Chart1.Series(columnName).XValueMember = ds.Tables(0).Columns(0).ColumnName.ToString
     Chart1.ChartAreas(0).AxisX.MajorGrid.Enabled = False
     Chart1.ChartAreas(0).AxisX.MinorGrid.Enabled = False
     'Y軸
     Chart1.Series(columnName).YValueMembers = "高値, 安値, 始値, 終値"
     '凡例の非表示
     Chart1.Series(columnName).IsVisibleInLegend = False

'---------------------------
     'グラフの種類（折れ線）
     Chart1.Series(columnName).ChartType = DataVisualization.Charting.SeriesChartType.Line
     'Y軸
     Chart1.Series(columnName).YValueMembers = "指数"
     '---------------------------
 Next
 Chart1.DataBind()
End Sub

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

戻る