Chart上でマーカーを付けえるには？ (ID:147916)

名前

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

本文

何度もすみません。

クリックをしたグラフ棒の直ぐ上に…、
Ｑ１，▽や○などの形の、小さいマーカー（目印）を付ける事は可能でしょうか？
      出来れば色も指定したいです。

Ｑ２，更にその上部に、日付などの文字表示も出来れば有り難いです。

これは上の二つとは関係ないのですが…、
Ｑ３，クリックした位置の、グラフ棒の色と背景の色を取得する方法を教えてください。

どうぞよろしくお願いします。

Imports System.Windows.Forms.DataVisualization.Charting
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim tbl As New DataTable
        '列の作成
        With tbl.Columns
            .Add("日付", GetType(String))
            .Add("指数", GetType(Integer))
        End With
        'データの追加
        tbl.Rows.Add("2012/08/1", 40)
        tbl.Rows.Add("2012/08/2", 60)
        tbl.Rows.Add("2012/08/7", 30)
        tbl.Rows.Add("2012/08/8", 80)
        '初期化    
        Chart1.Series.Clear()
        'グラフの種類,系列,軸の設定
        Dim rosoku = Chart1.Series.Add("棒グラフ")
        With rosoku
            .ChartType = DataVisualization.Charting.SeriesChartType.Column
            .XValueMember = "日付"
            .YValueMembers = "指数"
            .IsVisibleInLegend = False
        End With
        Chart1.DataSource = tbl
        Chart1.DataBind()

With Chart1.ChartAreas(0)
            .AxisX.MajorGrid.Enabled = False
            .AxisX.MinorGrid.Enabled = False
            .BackColor = Color.Gainsboro                 '背景の色
        End With
    End Sub
    Private Sub Chart1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Chart1.MouseClick
        'クリックした位置の要素を取得
        Dim htrResult As HitTestResult = Chart1.HitTest(e.X, e.Y)
        If htrResult.ChartElementType = ChartElementType.DataPoint Then
            Dim i As Integer = htrResult.PointIndex
            Dim dp As DataPoint = htrResult.Series.Points(i)
            For j As Integer = 0 To Chart1.Series.Count - 1
                If Chart1.Series(j).Name = htrResult.Series.Name Then
                    Dim SeriesNo As Integer = j
                    Exit For
                End If
            Next
            'クリックした位置の要素を表示
            MessageBox.Show(String.Format("{0}({1}) : {2}", htrResult.Series.Name, dp.AxisLabel, dp.YValues(0)))
        End If
    End Sub
End Class

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

戻る