vb.net chartで線を引く方法

Question

前提・実現したいこと

①図のようにボーダーを直線で引きたいのですが、chartプロパティにそのような設定がなく
困っています。
②積み上げグラフの各項目の間に罫線を引きたいのですが出力できません。

どなたか解決策をご存じの方おられましたらよろしくお願いいたします。

Comments

[退会済みユーザー]

マルチポストですか？

http://bbs.wankuma.com/index.cgi?mode=al2&namber=95482

[aki0118aki]

そちらはクローズしました。

Answer 1

一応理論上はできることが確認できました。
しかしもう一回やれと言われてもできそうにないです^^;

(2)縦線はMajorGridを消して、MinorGridでグラフ間に引くことで簡単に実現できました。
(1)横線が難題でPrePaintとかで引けばいいんでしょうが、よくわからないので無理やりグラフで書きました^^;

すみませんがVBに書き直す気力がないので、aki0118akiさんのほうで移植してください^^;
やってることはバカバカしいだけで難しいことはないと思います（疑問点があれば答えます）

using System.Drawing;
using System.Linq;
using System.Windows.Forms;
using System.Windows.Forms.DataVisualization.Charting;

namespace Questions285551
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();

            var chart1 = new Chart { Dock = DockStyle.Fill, };
            Controls.Add(chart1);

            var chartArea1 = new ChartArea();
            chart1.ChartAreas.Add(chartArea1);

            var legend1 = new Legend
            {
                Alignment = StringAlignment.Far,
                Docking = Docking.Top,
                LegendStyle = LegendStyle.Row,
            };
            chart1.Legends.Add(legend1);

            chart1.Series.Add(new Series("国語") { ChartType = SeriesChartType.StackedColumn, });
            chart1.Series.Add(new Series("数学") { ChartType = SeriesChartType.StackedColumn, });
            chart1.Series.Add(new Series("英語") { ChartType = SeriesChartType.StackedColumn, });
            var borderSeries = new Series("ボーダー") { ChartType = SeriesChartType.Line, XAxisType = AxisType.Secondary };
            chart1.Series.Add(borderSeries);

            chartArea1.AxisY.MajorGrid.Enabled = false;

            // 見た目を整えたかったため怪しげな0.5
            chartArea1.AxisX.Minimum = 0.5;
            chartArea1.AxisX.Interval = 1;
            chartArea1.AxisX.IntervalOffset = 0.5;


            //縦線 MajorGridを消して MinorGridでグラフ間に引く
            chartArea1.AxisX.MajorGrid.Enabled = false;
            chartArea1.AxisX.MinorGrid.Enabled = true;
            chartArea1.AxisX.MinorGrid.Interval = 1;

            // X軸ラベルがボーダーのせいで数字になってしまったので、ボーダーはAxisX2にまわす（もっとましな手段があるはず）
            chartArea1.AxisX2.Minimum = 0.5;
            chartArea1.AxisX2.Interval = 1;
            chartArea1.AxisX2.MajorGrid.Enabled = false;
            chartArea1.AxisX2.LabelStyle.Enabled = false;


            var seiseki = new int[,] {
                { 75, 80, 30, 40, 50, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, },
                { 75, 60, 60, 80, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, },
                { 20, 40, 60, 80, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, },
            };
            for(var i = 0; i < seiseki.GetLength(0); i++)
            {
                for(var j = 0; j < seiseki.GetLength(1); j++)
                {
                    var dp = new DataPoint();
                    dp.SetValueXY(0, seiseki[i, j]);
                    dp.AxisLabel = ((char)('A' + j)).ToString();
                    chart1.Series[i].Points.Add(dp);
                }
            }

            // 人数分＋１（最後の0）ないとずれるので注意
            var border = new int[] { 280, 280, 280, 280, 280, 200, 200, 200, 140, 140, 140, 140, 140, 140, 140, 140, 0 };
            var old = border[0];
            for(var i = 0; i < border.Length; i++)
            {
                if(old != border[i]) // うまく説明できないが点をいっこ伸ばす
                {
                    old = border[i];
                    var dp = borderSeries.Points.Last().Clone();
                    dp.XValue += 1; // ここをコメント化すれば意味がわかる
                    borderSeries.Points.Add(dp);
                    borderSeries.Points.Add(new DataPoint { IsEmpty = true, }); // 線のつながりを切る
                }

                // 棒グラフが1からになっているので、半分左に寄せる意味で0.5からスタート
                borderSeries.Points.Add(new DataPoint(i + 0.5, border[i]));
            }
        }
    }
}

---

追記 VB版

Imports System.Windows.Forms.DataVisualization.Charting

Public Class Form1
    Public Sub New()
        InitializeComponent()

        Dim chart1 = New Chart With {.Dock = DockStyle.Fill}
        Controls.Add(chart1)

        Dim chartArea1 = New ChartArea
        chart1.ChartAreas.Add(chartArea1)

        Dim legend1 = New Legend
        With legend1
            .Alignment = StringAlignment.Far
            .Docking = Docking.Top
            .LegendStyle = LegendStyle.Row
        End With
        chart1.Legends.Add(legend1)

        chart1.Series.Add(New Series("国語") With {.ChartType = SeriesChartType.StackedColumn})
        chart1.Series.Add(New Series("数学") With {.ChartType = SeriesChartType.StackedColumn})
        chart1.Series.Add(New Series("英語") With {.ChartType = SeriesChartType.StackedColumn})
        Dim borderSeries = New Series("ボーダー") With {.ChartType = SeriesChartType.Line, .XAxisType = AxisType.Secondary}
        chart1.Series.Add(borderSeries)

        chartArea1.AxisY.MajorGrid.Enabled = False

        '見た目を整えたかったため怪しげな0.5
        chartArea1.AxisX.Minimum = 0.5
        chartArea1.AxisX.Interval = 1
        chartArea1.AxisX.IntervalOffset = 0.5

        '縦線 MajorGridを消して MinorGridでグラフ間に引く
        chartArea1.AxisX.MajorGrid.Enabled = False
        chartArea1.AxisX.MinorGrid.Enabled = True
        chartArea1.AxisX.MinorGrid.Interval = 1

        'X軸ラベルがボーダーのせいで数字になってしまったので、ボーダーはAxisX2にまわす（もっとましな手段があるはず）
        chartArea1.AxisX2.Minimum = 0.5
        chartArea1.AxisX2.Interval = 1
        chartArea1.AxisX2.MajorGrid.Enabled = False
        chartArea1.AxisX2.LabelStyle.Enabled = False

        Dim seiseki = {
            {75, 80, 30, 40, 50, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
            {75, 60, 60, 80, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
            {20, 40, 60, 80, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}}
        For i = 0 To seiseki.GetUpperBound(0)
            For j = 0 To seiseki.GetUpperBound(1)
                Dim dp = New DataPoint
                dp.SetValueXY(0, seiseki(i, j))
                dp.AxisLabel = Chr(Asc("A") + j)
                chart1.Series(i).Points.Add(dp)
            Next
        Next

        '人数分+1（最後の0）ないとずれるので注意
        Dim border = {280, 280, 280, 280, 280, 200, 200, 200, 140, 140, 140, 140, 140, 140, 140, 140, 0}
        Dim old = border(0)
        For i = 0 To border.GetUpperBound(0)
            If old <> border(i) Then 'うまく説明できないが点をいっこ伸ばす
                old = border(i)
                Dim dp = borderSeries.Points.Last().Clone()
                dp.XValue += 1 'ここをコメント化すれば意味がわかる
                borderSeries.Points.Add(dp)
                borderSeries.Points.Add(New DataPoint With {.IsEmpty = True}) '線のつながりを切る
            End If

            '棒グラフが1からになっているので、半分左に寄せる意味で0.5からスタート
            borderSeries.Points.Add(New DataPoint(i + 0.5, border(i)))
        Next
    End Sub
End Class

Comments

[aki0118aki]

回答ありがとうございます。
すいません。.net初心者で以下の分をVB.netではどのように記載すればよろしいでしょうか？
borderSeries.Points.Add(new DataPoint { IsEmpty = true, }); // 線のつながりを切る

[TN8001]

VB版追記しました
VB初心者なので変なとこがあるかもしれません^^;

データによって目盛りがずれやすいので、最初はグリッド表示のまま確認したほうがいいです。
AxisX AxisX2のMinimum Maximumを定数で入れてしまうのもいいかも入れません。

[aki0118aki]

ありがとうございます。
実装できました。