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

VB初心者ですがお願いします。

Chart1の下に同じサイズとx軸を持つのChart2作り、
Chart1上でマウスの移動と共に引かれる罫線をChart2にも同じx軸で引きたいです。
よろしくお願いします。

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dat As DataTable = New DataTable
        With dat.Columns
            .Add("件数", GetType(Integer))
            .Add("数量", GetType(Integer))
        End With
        For i = 0 To 100
            dat.Rows.Add(i, i * 10)
        Next
        Chart1.DataSource = dat
        Chart1.Series.Clear()
        Dim oresen = Chart1.Series.Add("折れ線")
        With oresen
            .ChartType = DataVisualization.Charting.SeriesChartType.Line
            .XValueMember = "件数"
            .YValueMembers = "数量"
            .IsVisibleInLegend = False
        End With
        Chart2.DataSource = dat
        Chart2.Series.Clear()
        Dim oresen2 = Chart2.Series.Add("折れ線")
        With oresen2
            .ChartType = DataVisualization.Charting.SeriesChartType.Line
            .XValueMember = "件数"
            .YValueMembers = "数量"
            .IsVisibleInLegend = False
        End With
    End Sub

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

    Private Sub Chart1_PostPaint(ByVal sender As Object, ByVal e As System.Windows.Forms.DataVisualization.Charting.ChartPaintEventArgs) Handles Chart1.PostPaint
        Dim g = e.ChartGraphics.Graphics
        Dim axy = Chart1.ChartAreas(0).AxisY
        Dim y1 = axy.ValueToPixelPosition(axy.Maximum)
        Dim y2 = axy.ValueToPixelPosition(axy.Minimum)
        If _mp1.Y >= y1 And _mp1.Y <= y2 Then
            g.DrawLine(Pens.Gold, _mp1.X, CInt(y1), _mp1.X, CInt(y2))
        End If
    End Sub
End Class

■No82084 (佐伯 さん) に返信

>     Private Sub Chart1_PostPaint(ByVal sender As Object, ByVal e As System.Windows.Forms.DataVisualization.Charting.ChartPaintEventArgs) Handles Chart1.PostPaint
>         Dim g = e.ChartGraphics.Graphics
>         Dim axy = Chart1.ChartAreas(0).AxisY
>         Dim y1 = axy.ValueToPixelPosition(axy.Maximum)
>         Dim y2 = axy.ValueToPixelPosition(axy.Minimum)
>         If _mp1.Y >= y1 And _mp1.Y <= y2 Then
>             g.DrawLine(Pens.Gold, _mp1.X, CInt(y1), _mp1.X, CInt(y2))
>         End If
>     End Sub

これと同じように
Chart2のPostPaintイベントを実装するとよいかと思います。
    Private Sub Chart2_PostPaint(〜 同じ引数 〜) Handles Chart2.PostPaint

        < Char1をChart2に変更 >

    End Sub

■No82100 (shu さん) に返信
ありがとうございます。

実は、既にChart2上でのマウスの移動と共に、同じChart2上に罫線を引くのに使ってしまってまして、ダブってしまい使えない状態となっています。
　　
> これと同じように
> Chart2のPostPaintイベントを実装するとよいかと思います。
>     Private Sub Chart2_PostPaint(〜 同じ引数 〜) Handles Chart2.PostPaint
> 
>         < Char1をChart2に変更 >
> 
>     End Sub
> 

■No82102 (佐伯 さん) に返信
> ■No82100 (shu さん) に返信
> ありがとうございます。
> 
> 実は、既にChart2上でのマウスの移動と共に、同じChart2上に罫線を引くのに使ってしまってまして、ダブってしまい使えない状態となっています。
> 　　

    Private Sub Chart2_PostPaint(〜 同じ引数 〜) Handles Chart2.PostPaint

        <既にある処理>        

        < Chart1_PostPaintの処理を　Char1をChart2に変更 >

    End Sub

これでどうでしょうか？

■No82109 (shu さん) に返信

ありがとうございます。

>     <既にある処理>        
>
>     < Chart1_PostPaintの処理を　Char1をChart2に変更 >
どのような意味でしょう？
そのままChar1をChart2に変更するとエラーが出てしまいます。

ちなみに下記のようにし、Chart1上にマウスがある時にはChart1に罫線を引き、Chart2上にマウスがある時にはChart2に罫線を引いています。
今回はそれプラス・・、
Chart1上でマウスの移動と共に引かれる罫線をChart2にも同じx軸で引きたいです。
また逆に、
Chart2上でマウスの移動と共に引かれる罫線をChart1にも。　

    'Chart1上にマウスがある時の処理　
    Dim _mp1 As Point
    Private Sub Chart1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Chart1.MouseMove
        _mp1 = e.Location
        Chart1.Invalidate()
    End Sub
    Private Sub Chart1_PostPaint(ByVal sender As Object, ByVal e As System.Windows.Forms.DataVisualization.Charting.ChartPaintEventArgs) Handles Chart1.PostPaint
        Dim g = e.ChartGraphics.Graphics
        Dim axy = Chart1.ChartAreas(0).AxisY
        Dim y1 = axy.ValueToPixelPosition(axy.Maximum)
        Dim y2 = axy.ValueToPixelPosition(axy.Minimum)
        If _mp1.Y >= y1 And _mp1.Y <= y2 Then
            g.DrawLine(Pens.Gold, _mp1.X, CInt(y1), _mp1.X, CInt(y2))
        End If
    End Sub

    'Chart2上にマウスがある時の処理　
    Dim _mp2 As Point
    Private Sub Chart2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Chart2.MouseMove
        _mp2 = e.Location
        Chart2.Invalidate()
    End Sub
    Private Sub Chart2_PostPaint(ByVal sender As Object, ByVal e As System.Windows.Forms.DataVisualization.Charting.ChartPaintEventArgs) Handles Chart2.PostPaint
        Dim g = e.ChartGraphics.Graphics
        Dim axy = Chart2.ChartAreas(0).AxisY
        Dim y1 = axy.ValueToPixelPosition(axy.Maximum)
        Dim y2 = axy.ValueToPixelPosition(axy.Minimum)
        If _mp2.Y >= y1 And _mp2.Y <= y2 Then
            g.DrawLine(Pens.Gold, _mp2.X, CInt(y1), _mp2.X, CInt(y2))
        End If
    End Sub

■No82114 (魔界の仮面弁士 さん) に返信

ありがとうございます。
実は、質問の簡素化にと思い省いていたのですがx軸の罫線のみでなく、
Chart1上にマウスがある時にはそのChart1に、またChart2上にマウスがある時にはそのChart2にのみ、ｘ軸とｙ軸が交差する十字の罫線を引きたいのです。
お手数をお掛けして申し訳ありません。よろしくお願いします。

    Private _mp1 As Point
    Private Sub Charts_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Chart1.MouseMove, Chart2.MouseMove
        _mp1 = e.Location
        Chart1.Invalidate()
        Chart2.Invalidate()
    End Sub

    Private Sub DrawVerticalLine(g As Graphics, axy As DataVisualization.Charting.Axis)
        Dim x1 = axy.ValueToPixelPosition(axx.Minimum) '当然ですが「axx' は宣言されていません。アクセスできない保護レベルになっています」とのエラーメッセがでます。
        Dim x2 = axy.ValueToPixelPosition(axx.Maximum) '当然ですが「axx' は宣言されていません。アクセスできない保護レベルになっています」とのエラーメッセがでます。
        Dim y1 = axy.ValueToPixelPosition(axy.Maximum)
        Dim y2 = axy.ValueToPixelPosition(axy.Minimum)
        If _mp1.X >= x1 And _mp1.X <= x2 Then
            If _mp1.Y >= y1 And _mp1.Y <= y2 Then
                g.DrawLine(Pens.Gold, _mp1.X, CInt(y1), _mp1.X, CInt(y2))
                g.DrawLine(Pens.Gold, CInt(x1), _mp1.Y, CInt(x2), _mp1.Y)
            End If
        End If
    End Sub

    Private Sub Chart1_PostPaint(ByVal sender As Object, ByVal e As DataVisualization.Charting.ChartPaintEventArgs) Handles Chart1.PostPaint
        DrawVerticalLine(e.ChartGraphics.Graphics, Chart1.ChartAreas(0).AxisY)
    End Sub
    Private Sub Chart2_PostPaint(ByVal sender As Object, ByVal e As DataVisualization.Charting.ChartPaintEventArgs) Handles Chart2.PostPaint
        DrawVerticalLine(e.ChartGraphics.Graphics, Chart2.ChartAreas(0).AxisY)
    End Sub

■No82134 (魔界の仮面弁士 さん) に返信

ありがとうございます。＆ 失礼しました。

> AxisX と AxisY の両方を受け渡すように改修すれば良いと思うのですが、そういうことではなく?

また質問になってないかもしれませんが、こう言うことで良いのでしょうか？
ただこの場合ですとChart1、Chart2ともに十字線になってしまいます。
希望としては、Chart1上にマウスがあるときにはChart2の罫線はx軸（縦罫線）だけで良いのです。
また逆にChart2上にマウスがあるときにはChart1の罫線はx軸（縦罫線）だけに。

    Private _mp1 As Point
    Private Sub Charts_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Chart1.MouseMove, Chart2.MouseMove
        _mp1 = e.Location
        Chart1.Invalidate()
        Chart2.Invalidate()
    End Sub
    Private Sub DrawVerticalLine(g As Graphics, axx As DataVisualization.Charting.Axis, axy As DataVisualization.Charting.Axis)
        Dim x1 = axx.ValueToPixelPosition(axx.Minimum)
        Dim x2 = axx.ValueToPixelPosition(axx.Maximum)
        Dim y1 = axy.ValueToPixelPosition(axy.Maximum)
        Dim y2 = axy.ValueToPixelPosition(axy.Minimum)
        If _mp1.X >= x1 And _mp1.X <= x2 Then
            If _mp1.Y >= y1 And _mp1.Y <= y2 Then
                g.DrawLine(Pens.Gold, _mp1.X, CInt(y1), _mp1.X, CInt(y2))
                g.DrawLine(Pens.Blue, CInt(x1), _mp1.Y, CInt(x2), _mp1.Y)
            End If
        End If
    End Sub
    Private Sub Chart1_PostPaint(ByVal sender As Object, ByVal e As DataVisualization.Charting.ChartPaintEventArgs) Handles Chart1.PostPaint
        DrawVerticalLine(e.ChartGraphics.Graphics, Chart1.ChartAreas(0).AxisX, Chart1.ChartAreas(0).AxisY)
    End Sub
    Private Sub Chart2_PostPaint(ByVal sender As Object, ByVal e As DataVisualization.Charting.ChartPaintEventArgs) Handles Chart2.PostPaint
        DrawVerticalLine(e.ChartGraphics.Graphics, Chart2.ChartAreas(0).AxisX, Chart2.ChartAreas(0).AxisY)
    End Sub