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

名前

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

本文

プロパティなどで設定が可能かもしれませんが、
いろいろカスタマイズしたいのならPostPaintイベントで
追加で表示したい内容を描画するとよいと思います。
クリックされた場所にたいし縦横に線を引く例。
PostPaintで描画しているのは１組の線なので前回引いた線は
勝手に消えます。(描画しなおしなので)

Private m_click As Boolean = False
    Private m_x As Integer
    Private m_y As Integer
    Private Sub Chart1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Chart1.MouseClick
        m_click = True
        m_x = e.X
        m_y = e.Y
        Chart1.Invalidate()
    End Sub

Private Sub Chart1_PostPaint(sender As Object, e As System.Windows.Forms.DataVisualization.Charting.ChartPaintEventArgs) Handles Chart1.PostPaint
        If m_click Then
            Dim x1 = Chart1.ChartAreas(0).AxisX.ValueToPixelPosition(Chart1.ChartAreas(0).AxisX.Maximum)
            Dim x2 = Chart1.ChartAreas(0).AxisX.ValueToPixelPosition(Chart1.ChartAreas(0).AxisX.Minimum)
            e.ChartGraphics.Graphics.DrawLine(Pens.Cyan, CInt(x1), m_y, CInt(x2), m_y)
            Dim y1 = Chart1.ChartAreas(0).AxisY.ValueToPixelPosition(Chart1.ChartAreas(0).AxisY.Maximum)
            Dim y2 = Chart1.ChartAreas(0).AxisY.ValueToPixelPosition(Chart1.ChartAreas(0).AxisY.Minimum)
            e.ChartGraphics.Graphics.DrawLine(Pens.Cyan, m_x, CInt(y1), m_x, CInt(y2))
        End If
    End Sub

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

戻る