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

皆さんに教えて頂いて作ってみたのですが上手く行きません。
全くの初心者ですが教えてください。
ヒントではなく実際のプログラムでお願いします。

Ｑ１，
x1 = CInt(Chart1.ChartAreas(0).AxisX.ValueToPixelPosition(2))などとして、この場合ですと、
"0402" の位置に縦に罫線を引きたいのですが、何故かButton1を２度クッリクしないと罫線が引けません。
これを１度のクリックにするにはどうすれば良いのですか？

Ｑ２，
この例ですと、データは２日間ですが、実際にはもっと多く、しかも日数もその都度増減します。
その影響もあってか、現表示チャートと前表示チャートとで日数が異なった場合、
同じようにValueToPixelPosition(2)などと指定しても、x1の値が的確に反映されず、
現在表示してるローソク足との位置もずれてしまいます。どうすれば良いのですか？

Ｑ３，
罫線をローソク足の背面に引くにはどうすれば良いのですか？


Public Class Form1
    Private keisen As Boolean = False
    Private x1 As Integer
   
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ds As New DataSet
        Dim dt As New DataTable
        Dim dtRow As DataRow
        '列の作成
        dt.Columns.Add("日付", GetType(String))
        dt.Columns.Add("高値", GetType(Integer))
        dt.Columns.Add("安値", GetType(Integer))
        dt.Columns.Add("始値", GetType(Integer))
        dt.Columns.Add("終値", GetType(Integer))
        ds.Tables.Add(dt)
        'データのセット
        dtRow = ds.Tables(0).NewRow
        dtRow(0) = "0401"       '日付
        dtRow(3) = 150          '始値
        dtRow(1) = 200          '高値
        dtRow(2) = 100          '安値
        dtRow(4) = 130          '終値
        ds.Tables(0).Rows.Add(dtRow)

        dtRow = ds.Tables(0).NewRow
        dtRow(0) = "0402"       '日付
        dtRow(3) = 150          '始値
        dtRow(1) = 300          '高値
        dtRow(2) = 100          '安値
        dtRow(4) = 250          '終値
        ds.Tables(0).Rows.Add(dtRow)
        '
        Chart1.DataSource = ds
        Chart1.Series.Clear()
        'Y軸の罫線
        Chart1.ChartAreas(0).AxisX.MajorGrid.Enabled = False
        '
        Dim rosoku = Chart1.Series.Add("ローソク足")
        With rosoku
            .ChartType = DataVisualization.Charting.SeriesChartType.Candlestick
            .XValueMember = "日付"
            .YValueMembers = "高値, 安値, 始値, 終値"
            .IsVisibleInLegend = False
        End With
        '------------------------------------
        '該当日の上に罫線を引く
        keisen = True
        x1 = CInt(Chart1.ChartAreas(0).AxisX.ValueToPixelPosition(2))
        Chart1.Invalidate()
    End Sub

    'Chart1上に罫線を引く
    Private Sub Chart1_PostPaint(ByVal sender As Object, ByVal e As System.Windows.Forms.DataVisualization.Charting.ChartPaintEventArgs) Handles Chart1.PostPaint
        If keisen Then
            e.ChartGraphics.Graphics.DrawLine(Pens.Black, x1, 0, x1, Chart1.Height)
        End If
    End Sub

End Class

■No72406 (沙奈 さん) に返信

ほとんど同じ質問にどこかで回答したと思うんですが
引用元(参照先)の記述をお願いします。


Q1 => x1の計算はPrePaintイベントで行わないとグラフがまだ存在していないので計算できない。

Q3 => Postでなく、Pre

Q2 => 現表示チャートと前表示チャート　これはなんでしょう？
　　　日数が違った場合、というか線を引く日を変える場合、ValueToPixelPosition(2)の
      2の部分を適切に変更する必要があります。
　　　

■No72449 (shu さん) に返信

的を得てないかもしれませんがお願いします。

Q1、
> x1の計算をPrePaintのイベントで行うようにしてみてください。(再掲)

Private Sub Chart1_PostPaint(ByVal sender As Object, ByVal e As System.Windows.Forms.DataVisualization.Charting.ChartPaintEventArgs) Handles Chart1.PostPaint
を、
Private Sub Chart1_PrePaint(ByVal sender As Object, ByVal e As System.Windows.Forms.DataVisualization.Charting.ChartPaintEventArgs) Handles Chart1.PrePaint
にはしてみましたがすみません。それ以上は分かりません。


Q2、
> ValueToPixelPosition(2)の2をこの例でどのような意味で指定しているかです。10日なったら何日目のとこに線をひくのか？
> 20になったら何日目のとこに線を引くのか？を考えてみるとよいと思います。

この2はその時に表示したローソク足の該当日付より決めてます。
それは10日分（10本）であっても、20日分（20本）であっても同じで、
罫線を引きたい希望日が 10日分（10本）では、ローソク足の8番目の日付に該当すればValueToPixelPosition(8)になりますし、
20日分（20本）の時には、ローソク足の5番目に該当すればValueToPixelPosition(5)になります。

たぶん、10日分（10本）が8番目で、それよりも多い20日分（20本）が何故5番目と少ない？？　などと思われるでしょうが、
ローソク足が構成する要素が日付も含めて違うからです。

症状としては・・、
10日分（10本）に引き続き、同じ10日分（10本）を表示した時には一回目のクリックで正常なx1値になってるようです。
でも、10日分（10本）に引き続き、20日分（20本）などと表示した時には一回目のクリックでは不適値。
二回目のクリックでようやく正常なx1値が得られるようです。
その後は何回クリックしても同じ値のままです。

■No72476 (沙奈 さん) に返信
> Private Sub Chart1_PostPaint(ByVal sender As Object, ByVal e As System.Windows.Forms.DataVisualization.Charting.ChartPaintEventArgs) Handles Chart1.PostPaint
> を、
> Private Sub Chart1_PrePaint(ByVal sender As Object, ByVal e As System.Windows.Forms.DataVisualization.Charting.ChartPaintEventArgs) Handles Chart1.PrePaint
> にはしてみましたがすみません。それ以上は分かりません。
> 

 
Private Sub Chart1_PrePaint(〜) Handles Chart1.PrePaint
    If keisen Then
        x1 = ・・・
        e.ChartGraphics.Graphics.DrawLine(Pens.Black, x1, 0, x1, Chart1.Height)
    End If
End Sub