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