C# と VB.NET の質問掲示板

■No77297 (ぶなっぷ さん) に返信

ありがとうございます。

私のレベルではこんな感じかな？ と思ったのですがこれでは、
'ChartGraphics' は 'System.Windows.Forms.MouseEventArgs' のメンバーではありません。
のエラー出てしまいます（^^;

    Private Sub Chart1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Chart1.MouseMove 
        If Chart1.ChartAreas(0).AxisY.Minimum > 0 And Chart1.ChartAreas(0).AxisY.Maximum > 0 Then  
            Dim axx = Chart1.ChartAreas(0).AxisX
            Dim axy = Chart1.ChartAreas(0).AxisY
            Dim x1 = axx.ValueToPixelPosition(axx.Minimum)  'グラフ領域右端のX座標
            Dim y1 = axy.ValueToPixelPosition(axy.Maximum)  'グラフ領域上部のY座標
            Dim x2 = axx.ValueToPixelPosition(axx.Maximum)  'グラフ領域左端のX座標
            Dim y2 = axy.ValueToPixelPosition(axy.Minimum)  'グラフ領域下部のY座標
            e.ChartGraphics.Graphics.DrawLine(Pens.Gold, x1, CInt(y1), x1, CInt(y2))
            e.ChartGraphics.Graphics.DrawLine(Pens.Gold, y1, CInt(x1), y1, CInt(x2))
        End If
    End Sub

■No77310 (ゆい さん) に返信
> ■No77297 (ぶなっぷ さん) に返信
> 
> ありがとうございます。
> 
> 私のレベルではこんな感じかな？ と思ったのですがこれでは、
> 'ChartGraphics' は 'System.Windows.Forms.MouseEventArgs' のメンバーではありません。
> のエラー出てしまいます（^^;
> 
>     Private Sub Chart1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Chart1.MouseMove 
>         If Chart1.ChartAreas(0).AxisY.Minimum > 0 And Chart1.ChartAreas(0).AxisY.Maximum > 0 Then  
>             Dim axx = Chart1.ChartAreas(0).AxisX
>             Dim axy = Chart1.ChartAreas(0).AxisY
>             Dim x1 = axx.ValueToPixelPosition(axx.Minimum)  'グラフ領域右端のX座標
>             Dim y1 = axy.ValueToPixelPosition(axy.Maximum)  'グラフ領域上部のY座標
>             Dim x2 = axx.ValueToPixelPosition(axx.Maximum)  'グラフ領域左端のX座標
>             Dim y2 = axy.ValueToPixelPosition(axy.Minimum)  'グラフ領域下部のY座標
>             e.ChartGraphics.Graphics.DrawLine(Pens.Gold, x1, CInt(y1), x1, CInt(y2))
>             e.ChartGraphics.Graphics.DrawLine(Pens.Gold, y1, CInt(x1), y1, CInt(x2))
>         End If
>     End Sub

MouseEventArgsクラスに”ChartGraphics”がないためですが。。
https://msdn.microsoft.com/ja-jp/library/system.windows.forms.mouseeventargs(v=vs.100).aspx

Chart1（Chartコントロール？）には"ChartGraphics.Graphics.DrawLine"できるのでしょうか。

引数
  ByVal e As System.Windows.Forms.MouseEventArgs
の e が属するMouseEventArgsクラスには、ChartGraphicsというメンバはいません。
エラーになるのは当たり前です。
基本ですが、大丈夫ですか？

何らかの方法で、Chartから Graphicsオブジェクトを引っ張ってくる必要があります。
Windows Formsに詳しくないもので正確なことは言えませんが、、、
  Fromなんちゃら()
とかいうメソッドで引っ張ってくるんじゃないかな？

こんなんでどうでしょう？

    Private _mp As Point
    Private Sub Chart1_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Chart1.MouseMove
        _mp = e.Location
        Chart1.Invalidate()
    End Sub

    Private Sub Chart1_PostPaint(sender As Object, e As System.Windows.Forms.DataVisualization.Charting.ChartPaintEventArgs) Handles Chart1.PostPaint
        Dim g = e.ChartGraphics.Graphics

        '---> 既存の処理
        '<--- 既存の処理

        Dim axx = Chart1.ChartAreas(0).AxisX
        Dim axy = Chart1.ChartAreas(0).AxisY
        Dim x1 = axx.ValueToPixelPosition(axx.Minimum)  'グラフ領域右端のX座標
        Dim y1 = axy.ValueToPixelPosition(axy.Maximum)  'グラフ領域上部のY座標
        Dim x2 = axx.ValueToPixelPosition(axx.Maximum)  'グラフ領域左端のX座標
        Dim y2 = axy.ValueToPixelPosition(axy.Minimum)  'グラフ領域下部のY座標
        g.DrawLine(Pens.Gold, _mp.X, CInt(y1), _mp.X, CInt(y2))
        g.DrawLine(Pens.Gold, CInt(x1), _mp.Y, CInt(x2), _mp.Y)
    End Sub