投稿 – ページ 20 – テックメモ

2020-03-19

VBA VBAからPOSTする方法

Sub test()

'参照設定する場合(Microsoft XML, v6.0)

Dim xml As XMLHTTP60
Set xml = New XMLHTTP60

'参照設定しない場合

'Set 変数名 = CreateObject("MSXML2.XMLHTTP")

url = "https://appbay.org/"
param = ""

xml.Open "POST", url, False
xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xml.send (param)

Do While xml.readyState < 4
  DoEvents
Loop

Debug.Print xml.Status
Debug.Print xml.responseText

Set xml = Nothing

End Sub

Sub test()

'参照設定する場合(Microsoft XML, v6.0)

Dim xml As XMLHTTP60

Set xml = New XMLHTTP60

'参照設定しない場合

'Set 変数名 = CreateObject("MSXML2.XMLHTTP")

url = "https://appbay.org/"

param = ""

xml.Open "POST", url, False

xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

xml.send (param)

Do While xml.readyState < 4

DoEvents

Loop

Debug.Print xml.Status

Debug.Print xml.responseText

Set xml = Nothing

End Sub

2020-03-182020-05-07

C# FFmpegにコマンド投げる③

以前も同じものを作ったのだけれど、もっと簡単に。

C# FFmpegにコマンド投げる①

C# FFmpegにコマンド投げる②

        public Form1()
        {
            InitializeComponent();

            実行.Click += (s, e) =>
            {
                DateTime.TryParse(開始.Text, out var start);
                DateTime.TryParse(終了.Text, out var end);

                TimeSpan interval = end - start;
                TimeSpan startPosition = new TimeSpan(start.Hour, start.Minute, start.Second);

                string cmd = "-ss " + startPosition.TotalSeconds.ToString() + " -i \"i.mp4\" -t " + interval + " \"o.mp4\"";
                System.Diagnostics.Process p =
                System.Diagnostics.Process.Start(Application.StartupPath + @"\ffmpeg.exe", cmd);

                p.WaitForExit();
            };
            
        }

public Form1()

{

InitializeComponent();

実行.Click += (s, e) =>

{

DateTime.TryParse(開始.Text, out var start);

DateTime.TryParse(終了.Text, out var end);

TimeSpan interval = end - start;

TimeSpan startPosition = new TimeSpan(start.Hour, start.Minute, start.Second);

string cmd = "-ss " + startPosition.TotalSeconds.ToString() + " -i \"i.mp4\" -t " + interval + " \"o.mp4\"";

System.Diagnostics.Process p =

System.Diagnostics.Process.Start(Application.StartupPath + @"\ffmpeg.exe", cmd);

p.WaitForExit();

};

}

2020-03-032020-03-06

C# ガントチャート試作

C# DataGridView セルの結合

前回の記事でDataGridViewの結合を色々試しており、その流れで当初、進捗をセルの塗りつぶしで表現する感じのスケジュール管理用のソフトを作ろうかと考えていた。

作業の途中でふとセルの塗りつぶしではなくコントロールのLabelを置いたらどうだろうと思いついて、少し作業を進めてみた。

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Drawing.Text;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;

using System.Diagnostics;

namespace ProductionManagement
{
    public partial class GanttChart : Form
    {
        private int _StartMainColumn;

        private int _HeaderHeight = 20;
        private int _DateColumnWidth = 16;
        private DateClass _DateClass = new DateClass();

        private Bitmap[] _BitmapArrayDay = new Bitmap[32];
        private Bitmap[] _BitmapArrayWeekday = new Bitmap[7];

        public GanttChart()
        {
            InitializeComponent();

            Binding();
            InitializeTextBox();
            CreateDataGridView();

            SetupDataGridView();
            AttachEvent();

            CreateBitmap();
        }

        private void p(string target) { Debug.Print(target); }

        private void AttachEvent()
        {
            CreateChart.Click += (s, e) => CreateDataGridView();
            CreateBar.Click += (s, e) => CreateLabeBar(s, e);

            DataGridView.CellPainting += (s, e) => SetupCellPainting(s, e);
            DataGridView.Scroll += (s, e) => AllBarLabelTransparent();
            DataGridView.SizeChanged += (s, e) => AllBarLabelTransparent();
            DataGridView.RowPrePaint += (s, e) => { e.PaintParts &= ~DataGridViewPaintParts.Focus; };
            DataGridView.SelectionChanged += (s, e) => DataGridViewHeaderLock();
        }

        private void CreateLabeBar(object s, EventArgs e)
        {
            var lb = new MyLabel()
            {
                Font = DataGridView.Font,
                Text = "テスト",
                TextAlign = ContentAlignment.MiddleLeft ,
                BackColor = Color.Bisque,
                Height = DataGridView.RowTemplate.Height - 1,
                Width = (_DateColumnWidth * 15) - 1,
                rowIndex = 4,
                columnIndex = _StartMainColumn
                // ID,追番,開始日は初期化時点では未設定
            };

            this.Controls.Add(lb);
            lb.BringToFront();

            lb.MouseDoubleClick += (s1, e1) => EditLabelTextOrDelete(s1, e1);
            lb.MouseDown += (s2, e2) => LabelMouseDown(s2, e2);
            lb.MouseUp += (s3, e3) => LabelMouseUp(s3, e3);
            lb.MouseMove += (s4, e4) => LabelMouseMove(s4, e4);

            ListMyLabel.Add(lb);

            // barLabelもtargetCellもLabelMouseMove()でアクティブなインスタンスが入る
            // 明示的に破棄はしていない

            barLabel = lb;
            targetCell = DataGridView.Rows[4].Cells[_StartMainColumn];
            DropBarLabel();
        }

        private int GetMaxDisplayColumnIndex()
        {
            for (int c = DataGridView.Columns.Count - 1; c >= 0; c--)
            {
                if (DataGridView.Rows[DataGridView.FirstDisplayedScrollingRowIndex].Cells[c].Displayed) return c - 1;
            }
            return DataGridView.Columns.Count - 1;
        }

        private void InitializeTextBox()
        {
            DateTime ym = DateTime.Now;
            if (ym.Day <= 20) ym = ym.AddMonths(-1);

            _DateClass.年月 = ym.ToString("yyyy年MM月");
            TargetYm.Text = ym.ToString("yyyy年MM月");
        }

        private void Binding()
        {
            TargetYm.DataBindings.Add("Text", _DateClass, "年月");
        }

        private void CreateBitmap()
        {
            for (int i = 1; i <= 31; i++)
            {
                var lb = new Label()
                {
                    Text = i.ToString().PadLeft(2, '0'),
                    Width = _DateColumnWidth * 3,
                    Height = _HeaderHeight,
                    Font = DataGridView.Font,
                    TextAlign = ContentAlignment.MiddleCenter,
                    BackColor = Color.AliceBlue
                };
                var bitmap = new Bitmap(lb.Width, lb.Height);
                lb.DrawToBitmap(bitmap, lb.Bounds);
                _BitmapArrayDay[i] = bitmap;
            }

            int j = 0;
            foreach (string w in new string[] { "月","火","水","木","金","土","日" })
            {
                var lb = new Label()
                {
                    Text = w,
                    Width = _DateColumnWidth * 3,
                    Height = _HeaderHeight,
                    Font = DataGridView.Font,
                    TextAlign = ContentAlignment.MiddleCenter,
                    BackColor = Color.AliceBlue
                };
                var bitmap = new Bitmap(lb.Width, lb.Height);
                lb.DrawToBitmap(bitmap, lb.Bounds);
                _BitmapArrayWeekday[j] = bitmap;
                j++;
            }
        }

        private void DrawBorder(object s, DataGridViewCellPaintingEventArgs e)
        {
            var refer = Convert.ToString(DataGridView.Rows[1].Cells[e.ColumnIndex].Value);

            if (refer != "")
            {
                e.AdvancedBorderStyle.Left = DataGridViewAdvancedCellBorderStyle.OutsetDouble;
                // DrawLine()ではrightが上手く表示できない。
                // DividerWidthではヘッダー部分まで描画されてしまう。
            }
        }

        private string WeekdayNumber(string target)
        {
            if (target.Contains("月")) return "0";
            if (target.Contains("火")) return "1";
            if (target.Contains("水")) return "2";
            if (target.Contains("木")) return "3";
            if (target.Contains("金")) return "4";
            if (target.Contains("土")) return "5";
            if (target.Contains("日")) return "6";
            return "";
        }

        private void DrawMergeImage(object s, DataGridViewCellPaintingEventArgs e, bool isWeekday = false)
        {
            // 画像上で切り取る位置(X,Y)とサイズを指定する。
            // ここでは生成済のWidth*3の画像があり、その画像上での位置とサイズを指定する。
            var src = new Rectangle(
                0,
                0,
                e.CellBounds.Width,
                e.CellBounds.Height
                );

            // フォーム上で描画する位置を指定する。
            var dst = new Rectangle(
                e.CellBounds.X,
                e.CellBounds.Y,
                e.CellBounds.Width,
                e.CellBounds.Height - 1
                );

            var refer = Convert.ToString(DataGridView.Rows[e.RowIndex].Cells[e.ColumnIndex].Value);
            var referMinus1 = Convert.ToString(DataGridView.Rows[e.RowIndex].Cells[e.ColumnIndex - 1].Value);
            var referMinus2 = Convert.ToString(DataGridView.Rows[e.RowIndex].Cells[e.ColumnIndex - 2].Value);

            if (isWeekday)
            {
                refer = WeekdayNumber(refer);
                referMinus1 = WeekdayNumber(referMinus1);
                referMinus2 = WeekdayNumber(referMinus2);
            }

            if (refer != "")
            {
                if (isWeekday)
                {
                    e.Graphics.DrawImage(_BitmapArrayWeekday[int.Parse(refer)], dst, src, GraphicsUnit.Pixel);
                }
                else
                {
                    e.Graphics.DrawImage(_BitmapArrayDay[int.Parse(refer)], dst, src, GraphicsUnit.Pixel);
                }

                e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // left
                    e.CellBounds.X - 1,
                    e.CellBounds.Y,
                    e.CellBounds.X - 1,
                    e.CellBounds.Y + e.CellBounds.Height
                    // leftとrightの罫線が重複しているが、leftだけだとクリックしたときに罫線がなくなってしまう
                );

                e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // top
                    e.CellBounds.X,
                    e.CellBounds.Y - 1,
                    e.CellBounds.X + e.CellBounds.Width,
                    e.CellBounds.Y - 1
                );

                e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // bottom
                    e.CellBounds.X,
                    e.CellBounds.Y + e.CellBounds.Height - 1,
                    e.CellBounds.X + e.CellBounds.Width,
                    e.CellBounds.Y + e.CellBounds.Height - 1
                );

                e.Handled = true;
            }
            else if (referMinus1 != "")
            {
                src.X = e.CellBounds.Width;

                if (isWeekday)
                {
                    e.Graphics.DrawImage(_BitmapArrayWeekday[int.Parse(referMinus1)], dst, src, GraphicsUnit.Pixel);
                }
                else
                {
                    e.Graphics.DrawImage(_BitmapArrayDay[int.Parse(referMinus1)], dst, src, GraphicsUnit.Pixel);
                }

                e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // top
                    e.CellBounds.X,
                    e.CellBounds.Y - 1,
                    e.CellBounds.X + e.CellBounds.Width,
                    e.CellBounds.Y - 1
                );

                e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // bottom
                    e.CellBounds.X,
                    e.CellBounds.Y + e.CellBounds.Height - 1,
                    e.CellBounds.X + e.CellBounds.Width,
                    e.CellBounds.Y + e.CellBounds.Height - 1
                );

                e.Handled = true;
            }
            else if (referMinus2 != "")
            {
                src.X = e.CellBounds.Width + e.CellBounds.Width;

                if (isWeekday)
                {
                    e.Graphics.DrawImage(_BitmapArrayWeekday[int.Parse(referMinus2)], dst, src, GraphicsUnit.Pixel);
                }
                else
                {
                    e.Graphics.DrawImage(_BitmapArrayDay[int.Parse(referMinus2)], dst, src, GraphicsUnit.Pixel);
                }

                e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // top
                    e.CellBounds.X,
                    e.CellBounds.Y - 1,
                    e.CellBounds.X + e.CellBounds.Width,
                    e.CellBounds.Y - 1
                );

                e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // bottom
                    e.CellBounds.X,
                    e.CellBounds.Y + e.CellBounds.Height - 1,
                    e.CellBounds.X + e.CellBounds.Width,
                    e.CellBounds.Y + e.CellBounds.Height - 1
                );

                if (e.RowIndex == 1 || e.RowIndex == 2)
                {
                    e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // right
                        e.CellBounds.X + e.CellBounds.Width - 1,
                        e.CellBounds.Y,
                        e.CellBounds.X + e.CellBounds.Width - 1,
                        e.CellBounds.Y + e.CellBounds.Height
                    );
                }
                e.Handled = true;
            }
        }

        private void SetupCellPainting(object s, DataGridViewCellPaintingEventArgs e)
        {
            if (e.RowIndex == 0)
            {
                if (e.ColumnIndex < _StartMainColumn)
                {
                    e.AdvancedBorderStyle.Bottom = DataGridViewAdvancedCellBorderStyle.None;
                }

                if (e.ColumnIndex >= _StartMainColumn)
                {
                    e.AdvancedBorderStyle.Left = DataGridViewAdvancedCellBorderStyle.None;
                    e.AdvancedBorderStyle.Right = DataGridViewAdvancedCellBorderStyle.None;

                    if (e.ColumnIndex < DataGridView.Columns.Count - 1 &&
                        Convert.ToString(DataGridView.Rows[0].Cells[e.ColumnIndex + 1].Value) != "")
                    {
                        e.AdvancedBorderStyle.Right = DataGridViewAdvancedCellBorderStyle.Single;
                    }
                    DrawMergeImage(s, e);
                }
            }

            if (e.RowIndex == 1)
            {
                if (e.ColumnIndex < _StartMainColumn)
                {
                    e.AdvancedBorderStyle.Bottom = DataGridViewAdvancedCellBorderStyle.None;
                }

                if (e.ColumnIndex >= _StartMainColumn)
                {
                    DrawMergeImage(s, e);
                }
            }

            if (e.RowIndex == 2)
            {
                if (e.ColumnIndex >= _StartMainColumn)
                {
                    DrawMergeImage(s, e, true);
                }
            }

            if (e.RowIndex > 3)
            {
                if (e.ColumnIndex >= _StartMainColumn)
                {
                    DrawBorder(s, e);
                }
            }
        }

        private void EditLabelTextOrDelete(object s, MouseEventArgs e)
        {
            var lb = (MyLabel)s;

            if ((ModifierKeys & Keys.Control) == Keys.Control)
            {
                var yesNo = MessageBox.Show("削除しますか？", "", MessageBoxButtons.YesNo);
                if (yesNo == DialogResult.Yes) lb.Dispose();
                return;
            }
            
            var txt = new TextBox()
            {
                Font = DataGridView.Font,
                Multiline = true,
                Left = lb.Left,
                Top = lb.Top,
                Width = lb.Width,
                Height = lb.Height,
                Text = lb.Text,
            };

            lb.Visible = false;
            Controls.Add(txt);
            txt.BringToFront();
            txt.Focus();

            txt.LostFocus += (s1, e1) =>
            {
                lb.Text = txt.Text;
                lb.Visible = true;
                txt.Dispose();
            };
        }

        private bool isBarDrag;
        private Point startPoint;

        private void LabelMouseDown(object s, MouseEventArgs e)
        {
            if (e.Button == MouseButtons.Left)
            {
                isBarDrag = true;
                Cursor.Current = Cursors.Hand;
                startPoint.X = e.Location.X;
                startPoint.Y = e.Location.Y;
            }

            if (e.Button == MouseButtons.Right)
            {
                isBarDrag = true;
                Cursor.Current = Cursors.SizeWE;
                startPoint.X = e.Location.X;
                startPoint.Y = e.Location.Y;
            }
        }

        private void LabelMouseUp(object s, MouseEventArgs e)
        {
            isBarDrag = false;
            Cursor.Current = Cursors.Default;

            if (e.Button == MouseButtons.Left)
            {
                DropBarLabel();
            }

            if (e.Button == MouseButtons.Right)
            {
                var diff = barLabel.Width % _DateColumnWidth;

                if ( (_DateColumnWidth / 2) <= diff)
                {
                    barLabel.Width = barLabel.Width - diff + _DateColumnWidth - 1;
                }
                else
                {
                    barLabel.Width = barLabel.Width - diff - 1;
                }

                int x = barLabel.Location.X + barLabel.Width;
                int y = barLabel.Location.Y;

                // 座標系変換
                x = x - DataGridView.Left;
                y = y - DataGridView.Top;

                var hitInfo = DataGridView.HitTest(x, y);
                SetValueBarLabelEndSide(hitInfo);
            }
        }

        private void SetValueBarLabelEndSide(DataGridView.HitTestInfo hitInfo)
        {
            if (hitInfo.ColumnIndex == -1) return;

            // 追番
            barLabel.endDayOrderNumber = Convert.ToString(DataGridView.Rows[3].Cells[hitInfo.ColumnIndex].Value);
            // 終了日
            var tmp = hitInfo.ColumnIndex;
            if (barLabel.endDayOrderNumber == "3") tmp = hitInfo.ColumnIndex - 2;
            if (barLabel.endDayOrderNumber == "2") tmp = hitInfo.ColumnIndex - 1;
            barLabel.endDay = Convert.ToString(DataGridView.Columns[tmp].Name);

            //todo del
            barLabel.Text = barLabel.endDay +
            " / " + barLabel.endDayOrderNumber;
        }

        private void SetValueBarLabel(DataGridView.HitTestInfo hitInfo)
        {
            barLabel.rowIndex = hitInfo.RowIndex;
            barLabel.columnIndex = hitInfo.ColumnIndex;

            // ID
            barLabel.ID = Convert.ToString(DataGridView.Rows[hitInfo.RowIndex].Cells["ID"].Value);
            // 追番
            barLabel.startDayOrderNumber = Convert.ToString(DataGridView.Rows[3].Cells[hitInfo.ColumnIndex].Value);
            // 開始日
            var tmp = hitInfo.ColumnIndex;
            if (barLabel.startDayOrderNumber == "3") tmp = hitInfo.ColumnIndex - 2;
            if (barLabel.startDayOrderNumber == "2") tmp = hitInfo.ColumnIndex - 1;
            barLabel.startDay = Convert.ToString(DataGridView.Columns[tmp].Name);

            //todo del
            barLabel.Text = barLabel.ID +
                " / " + barLabel.startDay +
                " / " + barLabel.startDayOrderNumber;
        }

        List<MyLabel> ListMyLabel = new List<MyLabel>();
        MyLabel barLabel;
        DataGridViewCell targetCell;

        private void LabelMouseMove(object s, MouseEventArgs e)
        {
            if (!isBarDrag) return;

            barLabel = (MyLabel)s;
            var rightBarLabel = barLabel.Left + barLabel.Width; // BarLabel右端

            var rect = DataGridView.GetCellDisplayRectangle(GetMaxDisplayColumnIndex(),
                DataGridView.FirstDisplayedScrollingRowIndex, true);

            var rightDataGridView = DataGridView.Left + rect.X + rect.Width; // DataGridView右端

            if (e.Button == MouseButtons.Left)
            {
                if (rightBarLabel < rightDataGridView)
                {
                    var x = barLabel.Location.X + e.Location.X - startPoint.X;
                    var y = barLabel.Location.Y + e.Location.Y - startPoint.Y;

                    PointingCell(x, y); // Formの座標系
                    barLabel.Location = new Point(x, y);
                }
                else if (rightBarLabel >= rightDataGridView)
                {
                    var diff = rightBarLabel - rightDataGridView;
                    PointingCell(barLabel.Location.X - diff, barLabel.Location.Y);
                    barLabel.Location = new Point(barLabel.Location.X - diff, barLabel.Location.Y);

                    isBarDrag = false;
                    Cursor.Current = Cursors.Default;
                    DropBarLabel();
                }
            }

            if (e.Button == MouseButtons.Right)
            {
                if (barLabel.Width >= _DateColumnWidth - 1 && rightBarLabel < rightDataGridView)
                {
                    barLabel.Width += (e.Location.X - startPoint.X);
                    startPoint.X = e.Location.X;
                }
            }
        }

        private void PointingCell(int x, int y)
        {
            // 座標系の変換
            x = x - DataGridView.Left;
            y = y - DataGridView.Top;

            var hitInfo = DataGridView.HitTest(x, y + DataGridView.RowTemplate.Height / 2); // ここではDgvの座標系

            if (hitInfo.ColumnIndex >= _StartMainColumn && hitInfo.RowIndex >= 4)
            {
                if (targetCell != null && 
                    targetCell != DataGridView.Rows[hitInfo.RowIndex].Cells[hitInfo.ColumnIndex])
                {
                    targetCell.Style.BackColor = Color.White;
                }

                // アクティブなインスタンスを入れるのがLabelMouseMove()ではない理由は
                // BackColorを戻す処理があるため

                targetCell = DataGridView.Rows[hitInfo.RowIndex].Cells[hitInfo.ColumnIndex];
                targetCell.Style.BackColor = Color.GreenYellow;

                SetValueBarLabel(hitInfo);
            }
        }

        private void DropBarLabel()
        {
            if (targetCell == null) return;

            targetCell.Style.BackColor = Color.White;
            var rect = DataGridView.GetCellDisplayRectangle(targetCell.ColumnIndex, targetCell.RowIndex, true);

            // 座標系の変換
            int x = rect.X + DataGridView.Left;
            int y = rect.Y + DataGridView.Top;

            BarTransparent(barLabel, x, y);
            barLabel.Location = new Point(x, y);
        }

        private void BarTransparent(MyLabel bar, int x, int y)
        {
            var leftGap = x - DataGridView.Left;
            var rightGap = (DataGridView.Left + DataGridView.Width) - (x + bar.Width);
            var topGap = y - DataGridView.Top;
            var bottomGap = DataGridView.Bottom - (y + bar.Height);

            if (leftGap <= 5 || rightGap <= 5 || topGap <= 5 || bottomGap <= 5)
            {
                bar.Visible = false;
            }
            else if (leftGap > 5 && rightGap > 5 && topGap > 5 && bottomGap > 5)
            {
                bar.Visible = true;
            }
        }

        private void AllBarLabelTransparent()
        {
            foreach (MyLabel bar in ListMyLabel)
            {
                var rect = DataGridView.GetCellDisplayRectangle(bar.columnIndex, bar.rowIndex, true);

                // 座標系の変換
                int x = rect.X + DataGridView.Left; 
                int y = rect.Y + DataGridView.Top;

                BarTransparent(bar, x, y);
                bar.Location = new Point(x, y);
            }
        }

        private void DataGridViewHeaderLock()
        {
            if (DataGridView.Rows.Count >= 2)
            {
                DataGridView.Rows[0].Selected = false;
                DataGridView.Rows[1].Selected = false;
            }
        }

        private void CreateDataGridView()
        {
            if (TargetYm.Text == "") return;

            DataGridView.Rows.Clear();
            DataGridView.Columns.Clear();

            DateTime ym = DateTime.Parse(TargetYm.Text);
            DateTime startDay = new DateTime(ym.Year, ym.Month, 21);

            ym = ym.AddMonths(1);
            DateTime endDay = new DateTime(ym.Year, ym.Month, 20);

            List<DataGridViewColumn> listColumn = new List<DataGridViewColumn>();
            string[] mainColumn = new string[] { "ID", "型式", "工番", "数量", "追番" };

            foreach (var e in mainColumn)
            {
                listColumn.Add(new DataGridViewTextBoxColumn
                {
                    Name = e,
                    HeaderText = ""
                });
            }

            _StartMainColumn = mainColumn.Count();

            while (startDay <= endDay) // 列作成
            {
                for (int i = 1; i <= 3; i++)
                {
                    listColumn.Add(new DataGridViewTextBoxColumn
                    {
                        Name = startDay.ToString("yyyy/MM/dd"),
                        HeaderText = "",
                        Width = _DateColumnWidth
                    });
                }
                startDay = startDay.AddDays(1);
            }

            DataGridView.Columns.AddRange(listColumn.ToArray());

            // ヘッダー追加
            for (int i = 0; i < 4; i++)
            {
                DataGridView.Rows.Add("");
                DataGridView.Rows[i].Height = _HeaderHeight;
            }

            int k = 1;
            for (int c = 0; c < listColumn.Count; c++)
            {
                if (c < _StartMainColumn)
                {
                    DataGridView.Rows[1].Cells[c].Value = listColumn[c].Name; 
                }

                if (c >= _StartMainColumn)
                {
                    DataGridView.Rows[3].Cells[c].Value = k++.ToString(); // 1,2,3
                    if (k == 4) k = 1;

                    if (DataGridView.Rows[3].Cells[c].Value.ToString() == "1")
                    {
                        DateTime.TryParse(listColumn[c].Name, out DateTime result);

                        DataGridView.Rows[1].Cells[c].Value = result.ToString("dd"); // 日付
                        DataGridView.Rows[2].Cells[c].Value = result.ToString("dddd"); // 曜日

                        if (c == _StartMainColumn || result.ToString("dd") == "01")
                        {
                            DataGridView.Rows[0].Cells[c].Value = result.ToString("MM");
                        }
                    }
                }
            }
            SetupRowColumn();
            DataLoad();
        }

        private void DataLoad()
        {
            DataGridView.RowTemplate.Height = 100;
            //todo ダミー
            DataGridView.Rows.Add("");
            DataGridView.Rows.Add("");
            DataGridView.Rows.Add("");
            DataGridView.Rows.Add("");
            DataGridView.Rows.Add("");
            DataGridView.Rows.Add("");
            DataGridView.Rows.Add("");
            DataGridView.Rows.Add("");
            DataGridView.Rows.Add("");
            DataGridView.Rows.Add("");
            DataGridView.Rows.Add("");
            DataGridView.Rows.Add("");

            int id = 11;
            for (int i = 4; i < DataGridView.Rows.Count; i++)
            {
                DataGridView.Rows[i].Cells["ID"].Value = id++.ToString();
            }
        }

        private void SetupRowColumn()
        {
            //DataGridView.Columns["ID"].Visible = false;

            DataGridView.Rows[0].DefaultCellStyle.BackColor = Color.AliceBlue;
            DataGridView.Rows[1].DefaultCellStyle.BackColor = Color.AliceBlue;
            DataGridView.Rows[2].DefaultCellStyle.BackColor = Color.AliceBlue;
            DataGridView.Rows[3].DefaultCellStyle.BackColor = Color.AliceBlue;

            foreach (DataGridViewColumn c in DataGridView.Columns) c.SortMode = DataGridViewColumnSortMode.NotSortable;
        }

        private void SetupDataGridView()
        {
            DataGridView.RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.DisableResizing;
            DataGridView.RowHeadersWidth = 4;

            DataGridView.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing;
            DataGridView.ColumnHeadersHeight = 4;
            DataGridView.AllowUserToResizeColumns = false;

            DataGridView.ColumnHeadersDefaultCellStyle.WrapMode = DataGridViewTriState.False;

            DataGridView.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.None;
            DataGridView.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.None;

            DataGridView.Font = new Font("メイリオ", 9);
            DataGridView.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter;

            DataGridView.AllowUserToAddRows = false;
            DataGridView.MultiSelect = true;

            typeof(DataGridView).
            GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance | System.Reflection.BindingFlags.NonPublic).
            SetValue(DataGridView, true, null);
        }
    }

    class MyLabel : Label
    {
        // 保存
        public string ID;
        public string yearMonth;
        public string startDay;
        public string startDayOrderNumber;
        public string endDay;
        public string endDayOrderNumber;

        // スクロール
        public int rowIndex;
        public int columnIndex;
    }

    class DateClass
    {
        private string TargetYm;
        public object 年月
        {
            set
            {
                try
                {
                    var dt = DateTime.Parse(Convert.ToString(value));
                    TargetYm = dt.ToString("yyyy年MM月");
                }
                catch
                {
                    TargetYm = "";
                }
            }
            get { return TargetYm; }
        }
    }
}

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

318

319

320

321

322

323

324

325

326

327

328

329

330

331

332

333

334

335

336

337

338

339

340

341

342

343

344

345

346

347

348

349

350

351

352

353

354

355

356

357

358

359

360

361

362

363

364

365

366

367

368

369

370

371

372

373

374

375

376

377

378

379

380

381

382

383

384

385

386

387

388

389

390

391

392

393

394

395

396

397

398

399

400

401

402

403

404

405

406

407

408

409

410

411

412

413

414

415

416

417

418

419

420

421

422

423

424

425

426

427

428

429

430

431

432

433

434

435

436

437

438

439

440

441

442

443

444

445

446

447

448

449

450

451

452

453

454

455

456

457

458

459

460

461

462

463

464

465

466

467

468

469

470

471

472

473

474

475

476

477

478

479

480

481

482

483

484

485

486

487

488

489

490

491

492

493

494

495

496

497

498

499

500

501

502

503

504

505

506

507

508

509

510

511

512

513

514

515

516

517

518

519

520

521

522

523

524

525

526

527

528

529

530

531

532

533

534

535

536

537

538

539

540

541

542

543

544

545

546

547

548

549

550

551

552

553

554

555

556

557

558

559

560

561

562

563

564

565

566

567

568

569

570

571

572

573

574

575

576

577

578

579

580

581

582

583

584

585

586

587

588

589

590

591

592

593

594

595

596

597

598

599

600

601

602

603

604

605

606

607

608

609

610

611

612

613

614

615

616

617

618

619

620

621

622

623

624

625

626

627

628

629

630

631

632

633

634

635

636

637

638

639

640

641

642

643

644

645

646

647

648

649

650

651

652

653

654

655

656

657

658

659

660

661

662

663

664

665

666

667

668

669

670

671

672

673

674

675

676

677

678

679

680

681

682

683

684

685

686

687

688

689

690

691

692

693

694

695

696

697

698

699

700

701

702

703

704

705

706

707

708

709

710

711

712

713

714

715

716

717

718

719

720

721

722

723

724

725

726

727

728

729

730

731

732

733

734

735

736

737

738

739

740

741

742

743

744

745

746

747

748

749

750

751

752

753

754

755

756

757

758

759

760

761

762

763

764

765

766

767

768

769

770

771

772

773

774

775

776

777

778

779

780

781

782

783

784

785

786

787

788

789

790

791

792

793

794

795

796

797

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Drawing.Text;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

using System.Windows.Forms;

using System.Diagnostics;

namespace ProductionManagement

{

public partial class GanttChart : Form

{

private int _StartMainColumn;

private int _HeaderHeight = 20;

private int _DateColumnWidth = 16;

private DateClass _DateClass = new DateClass();

private Bitmap[] _BitmapArrayDay = new Bitmap[32];

private Bitmap[] _BitmapArrayWeekday = new Bitmap[7];

public GanttChart()

{

InitializeComponent();

Binding();

InitializeTextBox();

CreateDataGridView();

SetupDataGridView();

AttachEvent();

CreateBitmap();

}

private void p(string target) { Debug.Print(target); }

private void AttachEvent()

{

CreateChart.Click += (s, e) => CreateDataGridView();

CreateBar.Click += (s, e) => CreateLabeBar(s, e);

DataGridView.CellPainting += (s, e) => SetupCellPainting(s, e);

DataGridView.Scroll += (s, e) => AllBarLabelTransparent();

DataGridView.SizeChanged += (s, e) => AllBarLabelTransparent();

DataGridView.RowPrePaint += (s, e) => { e.PaintParts &= ~DataGridViewPaintParts.Focus; };

DataGridView.SelectionChanged += (s, e) => DataGridViewHeaderLock();

}

private void CreateLabeBar(object s, EventArgs e)

{

var lb = new MyLabel()

{

Font = DataGridView.Font,

Text = "テスト",

TextAlign = ContentAlignment.MiddleLeft ,

BackColor = Color.Bisque,

Height = DataGridView.RowTemplate.Height - 1,

Width = (_DateColumnWidth * 15) - 1,

rowIndex = 4,

columnIndex = _StartMainColumn

// ID,追番,開始日は初期化時点では未設定

};

this.Controls.Add(lb);

lb.BringToFront();

lb.MouseDoubleClick += (s1, e1) => EditLabelTextOrDelete(s1, e1);

lb.MouseDown += (s2, e2) => LabelMouseDown(s2, e2);

lb.MouseUp += (s3, e3) => LabelMouseUp(s3, e3);

lb.MouseMove += (s4, e4) => LabelMouseMove(s4, e4);

ListMyLabel.Add(lb);

// barLabelもtargetCellもLabelMouseMove()でアクティブなインスタンスが入る

// 明示的に破棄はしていない

barLabel = lb;

targetCell = DataGridView.Rows[4].Cells[_StartMainColumn];

DropBarLabel();

}

private int GetMaxDisplayColumnIndex()

{

for (int c = DataGridView.Columns.Count - 1; c >= 0; c--)

{

if (DataGridView.Rows[DataGridView.FirstDisplayedScrollingRowIndex].Cells[c].Displayed) return c - 1;

}

return DataGridView.Columns.Count - 1;

}

private void InitializeTextBox()

{

DateTime ym = DateTime.Now;

if (ym.Day <= 20) ym = ym.AddMonths(-1);

_DateClass.年月 = ym.ToString("yyyy年MM月");

TargetYm.Text = ym.ToString("yyyy年MM月");

}

private void Binding()

{

TargetYm.DataBindings.Add("Text", _DateClass, "年月");

}

private void CreateBitmap()

{

for (int i = 1; i <= 31; i++)

{

var lb = new Label()

{

Text = i.ToString().PadLeft(2, '0'),

Width = _DateColumnWidth * 3,

Height = _HeaderHeight,

Font = DataGridView.Font,

TextAlign = ContentAlignment.MiddleCenter,

BackColor = Color.AliceBlue

};

var bitmap = new Bitmap(lb.Width, lb.Height);

lb.DrawToBitmap(bitmap, lb.Bounds);

_BitmapArrayDay[i] = bitmap;

}

int j = 0;

foreach (string w in new string[] { "月","火","水","木","金","土","日" })

{

var lb = new Label()

{

Text = w,

Width = _DateColumnWidth * 3,

Height = _HeaderHeight,

Font = DataGridView.Font,

TextAlign = ContentAlignment.MiddleCenter,

BackColor = Color.AliceBlue

};

var bitmap = new Bitmap(lb.Width, lb.Height);

lb.DrawToBitmap(bitmap, lb.Bounds);

_BitmapArrayWeekday[j] = bitmap;

j++;

}

private void DrawBorder(object s, DataGridViewCellPaintingEventArgs e)

{

var refer = Convert.ToString(DataGridView.Rows[1].Cells[e.ColumnIndex].Value);

if (refer != "")

{

e.AdvancedBorderStyle.Left = DataGridViewAdvancedCellBorderStyle.OutsetDouble;

// DrawLine()ではrightが上手く表示できない。

// DividerWidthではヘッダー部分まで描画されてしまう。

}

private string WeekdayNumber(string target)

{

if (target.Contains("月")) return "0";

if (target.Contains("火")) return "1";

if (target.Contains("水")) return "2";

if (target.Contains("木")) return "3";

if (target.Contains("金")) return "4";

if (target.Contains("土")) return "5";

if (target.Contains("日")) return "6";

return "";

}

private void DrawMergeImage(object s, DataGridViewCellPaintingEventArgs e, bool isWeekday = false)

{

// 画像上で切り取る位置(X,Y)とサイズを指定する。

// ここでは生成済のWidth*3の画像があり、その画像上での位置とサイズを指定する。

var src = new Rectangle(

e.CellBounds.Width,

e.CellBounds.Height

);

// フォーム上で描画する位置を指定する。

var dst = new Rectangle(

e.CellBounds.X,

e.CellBounds.Y,

e.CellBounds.Width,

e.CellBounds.Height - 1

);

var refer = Convert.ToString(DataGridView.Rows[e.RowIndex].Cells[e.ColumnIndex].Value);

var referMinus1 = Convert.ToString(DataGridView.Rows[e.RowIndex].Cells[e.ColumnIndex - 1].Value);

var referMinus2 = Convert.ToString(DataGridView.Rows[e.RowIndex].Cells[e.ColumnIndex - 2].Value);

if (isWeekday)

{

refer = WeekdayNumber(refer);

referMinus1 = WeekdayNumber(referMinus1);

referMinus2 = WeekdayNumber(referMinus2);

}

if (refer != "")

{

if (isWeekday)

{

e.Graphics.DrawImage(_BitmapArrayWeekday[int.Parse(refer)], dst, src, GraphicsUnit.Pixel);

}

else

{

e.Graphics.DrawImage(_BitmapArrayDay[int.Parse(refer)], dst, src, GraphicsUnit.Pixel);

}

e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // left

e.CellBounds.X - 1,

e.CellBounds.Y,

e.CellBounds.X - 1,

e.CellBounds.Y + e.CellBounds.Height

// leftとrightの罫線が重複しているが、leftだけだとクリックしたときに罫線がなくなってしまう

);

e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // top

e.CellBounds.X,

e.CellBounds.Y - 1,

e.CellBounds.X + e.CellBounds.Width,

e.CellBounds.Y - 1

);

e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // bottom

e.CellBounds.X,

e.CellBounds.Y + e.CellBounds.Height - 1,

e.CellBounds.X + e.CellBounds.Width,

e.CellBounds.Y + e.CellBounds.Height - 1

);

e.Handled = true;

}

else if (referMinus1 != "")

{

src.X = e.CellBounds.Width;

if (isWeekday)

{

e.Graphics.DrawImage(_BitmapArrayWeekday[int.Parse(referMinus1)], dst, src, GraphicsUnit.Pixel);

}

else

{

e.Graphics.DrawImage(_BitmapArrayDay[int.Parse(referMinus1)], dst, src, GraphicsUnit.Pixel);

}

e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // top

e.CellBounds.X,

e.CellBounds.Y - 1,

e.CellBounds.X + e.CellBounds.Width,

e.CellBounds.Y - 1

);

e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // bottom

e.CellBounds.X,

e.CellBounds.Y + e.CellBounds.Height - 1,

e.CellBounds.X + e.CellBounds.Width,

e.CellBounds.Y + e.CellBounds.Height - 1

);

e.Handled = true;

}

else if (referMinus2 != "")

{

src.X = e.CellBounds.Width + e.CellBounds.Width;

if (isWeekday)

{

e.Graphics.DrawImage(_BitmapArrayWeekday[int.Parse(referMinus2)], dst, src, GraphicsUnit.Pixel);

}

else

{

e.Graphics.DrawImage(_BitmapArrayDay[int.Parse(referMinus2)], dst, src, GraphicsUnit.Pixel);

}

e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // top

e.CellBounds.X,

e.CellBounds.Y - 1,

e.CellBounds.X + e.CellBounds.Width,

e.CellBounds.Y - 1

);

e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // bottom

e.CellBounds.X,

e.CellBounds.Y + e.CellBounds.Height - 1,

e.CellBounds.X + e.CellBounds.Width,

e.CellBounds.Y + e.CellBounds.Height - 1

);

if (e.RowIndex == 1 || e.RowIndex == 2)

{

e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // right

e.CellBounds.X + e.CellBounds.Width - 1,

e.CellBounds.Y,

e.CellBounds.X + e.CellBounds.Width - 1,

e.CellBounds.Y + e.CellBounds.Height

);

}

e.Handled = true;

}

private void SetupCellPainting(object s, DataGridViewCellPaintingEventArgs e)

{

if (e.RowIndex == 0)

{

if (e.ColumnIndex < _StartMainColumn)

{

e.AdvancedBorderStyle.Bottom = DataGridViewAdvancedCellBorderStyle.None;

}

if (e.ColumnIndex >= _StartMainColumn)

{

e.AdvancedBorderStyle.Left = DataGridViewAdvancedCellBorderStyle.None;

e.AdvancedBorderStyle.Right = DataGridViewAdvancedCellBorderStyle.None;

if (e.ColumnIndex < DataGridView.Columns.Count - 1 &&

Convert.ToString(DataGridView.Rows[0].Cells[e.ColumnIndex + 1].Value) != "")

{

e.AdvancedBorderStyle.Right = DataGridViewAdvancedCellBorderStyle.Single;

}

DrawMergeImage(s, e);

}

if (e.RowIndex == 1)

{

if (e.ColumnIndex < _StartMainColumn)

{

e.AdvancedBorderStyle.Bottom = DataGridViewAdvancedCellBorderStyle.None;

}

if (e.ColumnIndex >= _StartMainColumn)

{

DrawMergeImage(s, e);

}

if (e.RowIndex == 2)

{

if (e.ColumnIndex >= _StartMainColumn)

{

DrawMergeImage(s, e, true);

}

if (e.RowIndex > 3)

{

if (e.ColumnIndex >= _StartMainColumn)

{

DrawBorder(s, e);

}

private void EditLabelTextOrDelete(object s, MouseEventArgs e)

{

var lb = (MyLabel)s;

if ((ModifierKeys & Keys.Control) == Keys.Control)

{

var yesNo = MessageBox.Show("削除しますか？", "", MessageBoxButtons.YesNo);

if (yesNo == DialogResult.Yes) lb.Dispose();

return;

}

var txt = new TextBox()

{

Font = DataGridView.Font,

Multiline = true,

Left = lb.Left,

Top = lb.Top,

Width = lb.Width,

Height = lb.Height,

Text = lb.Text,

};

lb.Visible = false;

Controls.Add(txt);

txt.BringToFront();

txt.Focus();

txt.LostFocus += (s1, e1) =>

{

lb.Text = txt.Text;

lb.Visible = true;

txt.Dispose();

};

}

private bool isBarDrag;

private Point startPoint;

private void LabelMouseDown(object s, MouseEventArgs e)

{

if (e.Button == MouseButtons.Left)

{

isBarDrag = true;

Cursor.Current = Cursors.Hand;

startPoint.X = e.Location.X;

startPoint.Y = e.Location.Y;

}

if (e.Button == MouseButtons.Right)

{

isBarDrag = true;

Cursor.Current = Cursors.SizeWE;

startPoint.X = e.Location.X;

startPoint.Y = e.Location.Y;

}

private void LabelMouseUp(object s, MouseEventArgs e)

{

isBarDrag = false;

Cursor.Current = Cursors.Default;

if (e.Button == MouseButtons.Left)

{

DropBarLabel();

}

if (e.Button == MouseButtons.Right)

{

var diff = barLabel.Width % _DateColumnWidth;

if ( (_DateColumnWidth / 2) <= diff)

{

barLabel.Width = barLabel.Width - diff + _DateColumnWidth - 1;

}

else

{

barLabel.Width = barLabel.Width - diff - 1;

}

int x = barLabel.Location.X + barLabel.Width;

int y = barLabel.Location.Y;

// 座標系変換

x = x - DataGridView.Left;

y = y - DataGridView.Top;

var hitInfo = DataGridView.HitTest(x, y);

SetValueBarLabelEndSide(hitInfo);

}

private void SetValueBarLabelEndSide(DataGridView.HitTestInfo hitInfo)

{

if (hitInfo.ColumnIndex == -1) return;

// 追番

barLabel.endDayOrderNumber = Convert.ToString(DataGridView.Rows[3].Cells[hitInfo.ColumnIndex].Value);

// 終了日

var tmp = hitInfo.ColumnIndex;

if (barLabel.endDayOrderNumber == "3") tmp = hitInfo.ColumnIndex - 2;

if (barLabel.endDayOrderNumber == "2") tmp = hitInfo.ColumnIndex - 1;

barLabel.endDay = Convert.ToString(DataGridView.Columns[tmp].Name);

//todo del

barLabel.Text = barLabel.endDay +

" / " + barLabel.endDayOrderNumber;

}

private void SetValueBarLabel(DataGridView.HitTestInfo hitInfo)

{

barLabel.rowIndex = hitInfo.RowIndex;

barLabel.columnIndex = hitInfo.ColumnIndex;

// ID

barLabel.ID = Convert.ToString(DataGridView.Rows[hitInfo.RowIndex].Cells["ID"].Value);

// 追番

barLabel.startDayOrderNumber = Convert.ToString(DataGridView.Rows[3].Cells[hitInfo.ColumnIndex].Value);

// 開始日

var tmp = hitInfo.ColumnIndex;

if (barLabel.startDayOrderNumber == "3") tmp = hitInfo.ColumnIndex - 2;

if (barLabel.startDayOrderNumber == "2") tmp = hitInfo.ColumnIndex - 1;

barLabel.startDay = Convert.ToString(DataGridView.Columns[tmp].Name);

//todo del

barLabel.Text = barLabel.ID +

" / " + barLabel.startDay +

" / " + barLabel.startDayOrderNumber;

}

List<MyLabel> ListMyLabel = new List<MyLabel>();

MyLabel barLabel;

DataGridViewCell targetCell;

private void LabelMouseMove(object s, MouseEventArgs e)

{

if (!isBarDrag) return;

barLabel = (MyLabel)s;

var rightBarLabel = barLabel.Left + barLabel.Width; // BarLabel右端

var rect = DataGridView.GetCellDisplayRectangle(GetMaxDisplayColumnIndex(),

DataGridView.FirstDisplayedScrollingRowIndex, true);

var rightDataGridView = DataGridView.Left + rect.X + rect.Width; // DataGridView右端

if (e.Button == MouseButtons.Left)

{

if (rightBarLabel < rightDataGridView)

{

var x = barLabel.Location.X + e.Location.X - startPoint.X;

var y = barLabel.Location.Y + e.Location.Y - startPoint.Y;

PointingCell(x, y); // Formの座標系

barLabel.Location = new Point(x, y);

}

else if (rightBarLabel >= rightDataGridView)

{

var diff = rightBarLabel - rightDataGridView;

PointingCell(barLabel.Location.X - diff, barLabel.Location.Y);

barLabel.Location = new Point(barLabel.Location.X - diff, barLabel.Location.Y);

isBarDrag = false;

Cursor.Current = Cursors.Default;

DropBarLabel();

}

if (e.Button == MouseButtons.Right)

{

if (barLabel.Width >= _DateColumnWidth - 1 && rightBarLabel < rightDataGridView)

{

barLabel.Width += (e.Location.X - startPoint.X);

startPoint.X = e.Location.X;

}

private void PointingCell(int x, int y)

{

// 座標系の変換

x = x - DataGridView.Left;

y = y - DataGridView.Top;

var hitInfo = DataGridView.HitTest(x, y + DataGridView.RowTemplate.Height / 2); // ここではDgvの座標系

if (hitInfo.ColumnIndex >= _StartMainColumn && hitInfo.RowIndex >= 4)

{

if (targetCell != null &&

targetCell != DataGridView.Rows[hitInfo.RowIndex].Cells[hitInfo.ColumnIndex])

{

targetCell.Style.BackColor = Color.White;

}

// アクティブなインスタンスを入れるのがLabelMouseMove()ではない理由は

// BackColorを戻す処理があるため

targetCell = DataGridView.Rows[hitInfo.RowIndex].Cells[hitInfo.ColumnIndex];

targetCell.Style.BackColor = Color.GreenYellow;

SetValueBarLabel(hitInfo);

}

private void DropBarLabel()

{

if (targetCell == null) return;

targetCell.Style.BackColor = Color.White;

var rect = DataGridView.GetCellDisplayRectangle(targetCell.ColumnIndex, targetCell.RowIndex, true);

// 座標系の変換

int x = rect.X + DataGridView.Left;

int y = rect.Y + DataGridView.Top;

BarTransparent(barLabel, x, y);

barLabel.Location = new Point(x, y);

}

private void BarTransparent(MyLabel bar, int x, int y)

{

var leftGap = x - DataGridView.Left;

var rightGap = (DataGridView.Left + DataGridView.Width) - (x + bar.Width);

var topGap = y - DataGridView.Top;

var bottomGap = DataGridView.Bottom - (y + bar.Height);

if (leftGap <= 5 || rightGap <= 5 || topGap <= 5 || bottomGap <= 5)

{

bar.Visible = false;

}

else if (leftGap > 5 && rightGap > 5 && topGap > 5 && bottomGap > 5)

{

bar.Visible = true;

}

private void AllBarLabelTransparent()

{

foreach (MyLabel bar in ListMyLabel)

{

var rect = DataGridView.GetCellDisplayRectangle(bar.columnIndex, bar.rowIndex, true);

// 座標系の変換

int x = rect.X + DataGridView.Left;

int y = rect.Y + DataGridView.Top;

BarTransparent(bar, x, y);

bar.Location = new Point(x, y);

}

private void DataGridViewHeaderLock()

{

if (DataGridView.Rows.Count >= 2)

{

DataGridView.Rows[0].Selected = false;

DataGridView.Rows[1].Selected = false;

}

private void CreateDataGridView()

{

if (TargetYm.Text == "") return;

DataGridView.Rows.Clear();

DataGridView.Columns.Clear();

DateTime ym = DateTime.Parse(TargetYm.Text);

DateTime startDay = new DateTime(ym.Year, ym.Month, 21);

ym = ym.AddMonths(1);

DateTime endDay = new DateTime(ym.Year, ym.Month, 20);

List<DataGridViewColumn> listColumn = new List<DataGridViewColumn>();

string[] mainColumn = new string[] { "ID", "型式", "工番", "数量", "追番" };

foreach (var e in mainColumn)

{

listColumn.Add(new DataGridViewTextBoxColumn

{

Name = e,

HeaderText = ""

});

}

_StartMainColumn = mainColumn.Count();

while (startDay <= endDay) // 列作成

{

for (int i = 1; i <= 3; i++)

{

listColumn.Add(new DataGridViewTextBoxColumn

{

Name = startDay.ToString("yyyy/MM/dd"),

HeaderText = "",

Width = _DateColumnWidth

});

}

startDay = startDay.AddDays(1);

}

DataGridView.Columns.AddRange(listColumn.ToArray());

// ヘッダー追加

for (int i = 0; i < 4; i++)

{

DataGridView.Rows.Add("");

DataGridView.Rows[i].Height = _HeaderHeight;

}

int k = 1;

for (int c = 0; c < listColumn.Count; c++)

{

if (c < _StartMainColumn)

{

DataGridView.Rows[1].Cells[c].Value = listColumn[c].Name;

}

if (c >= _StartMainColumn)

{

DataGridView.Rows[3].Cells[c].Value = k++.ToString(); // 1,2,3

if (k == 4) k = 1;

if (DataGridView.Rows[3].Cells[c].Value.ToString() == "1")

{

DateTime.TryParse(listColumn[c].Name, out DateTime result);

DataGridView.Rows[1].Cells[c].Value = result.ToString("dd"); // 日付

DataGridView.Rows[2].Cells[c].Value = result.ToString("dddd"); // 曜日

if (c == _StartMainColumn || result.ToString("dd") == "01")

{

DataGridView.Rows[0].Cells[c].Value = result.ToString("MM");

}

SetupRowColumn();

DataLoad();

}

private void DataLoad()

{

DataGridView.RowTemplate.Height = 100;

//todo ダミー

DataGridView.Rows.Add("");

int id = 11;

for (int i = 4; i < DataGridView.Rows.Count; i++)

{

DataGridView.Rows[i].Cells["ID"].Value = id++.ToString();

}

private void SetupRowColumn()

{

//DataGridView.Columns["ID"].Visible = false;

DataGridView.Rows[0].DefaultCellStyle.BackColor = Color.AliceBlue;

DataGridView.Rows[1].DefaultCellStyle.BackColor = Color.AliceBlue;

DataGridView.Rows[2].DefaultCellStyle.BackColor = Color.AliceBlue;

DataGridView.Rows[3].DefaultCellStyle.BackColor = Color.AliceBlue;

foreach (DataGridViewColumn c in DataGridView.Columns) c.SortMode = DataGridViewColumnSortMode.NotSortable;

}

private void SetupDataGridView()

{

DataGridView.RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.DisableResizing;

DataGridView.RowHeadersWidth = 4;

DataGridView.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing;

DataGridView.ColumnHeadersHeight = 4;

DataGridView.AllowUserToResizeColumns = false;

DataGridView.ColumnHeadersDefaultCellStyle.WrapMode = DataGridViewTriState.False;

DataGridView.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.None;

DataGridView.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.None;

DataGridView.Font = new Font("メイリオ", 9);

DataGridView.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter;

DataGridView.AllowUserToAddRows = false;

DataGridView.MultiSelect = true;

typeof(DataGridView).

GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance | System.Reflection.BindingFlags.NonPublic).

SetValue(DataGridView, true, null);

}

class MyLabel : Label

{

// 保存

public string ID;

public string yearMonth;

public string startDay;

public string startDayOrderNumber;

public string endDay;

public string endDayOrderNumber;

// スクロール

public int rowIndex;

public int columnIndex;

}

class DateClass

{

private string TargetYm;

public object 年月

{

set

{

try

{

var dt = DateTime.Parse(Convert.ToString(value));

TargetYm = dt.ToString("yyyy年MM月");

}

catch

{

TargetYm = "";

}

get { return TargetYm; }

}

＊＊＊

中小の製造業で工程表・計画表ってなるとだいたいガントチャートに類するもので管理するのが定番で、PERTのようなものが出てくることは少ない。
さらに製品マスタ(BOM)も整っていないことが多く、生産計画も手動計算か良くても半自動程度という場合が多い。

生産計画については、内示もなく多品種少量を短納期で作っているので、そもそも計画なんてできないという理由もある。

製品マスタ(BOM)がなく、短納期対応で頻繁に調整が必要な工程表・計画表なら、わざわざ専用ソフトではなくてエクセル+VBAの方が楽ということもあるようで、実際、VBAで魔改造した工程表が便利で乗り換えられないという話もあった。

2020-02-192024-05-03

C# DataGridView セルの結合

今回は標準ヘッダーを利用せず1行目2行目をヘッダーとして利用しており、試しに1行目の1列目2列目を擬似的結合してみた。

どこのサイトもだいたい同じ説明をしていて、CellPainting()で処理するのが基本という感じ。ちょっとつまづいたのが標準描画(セルの背景色とか文字列とか)で疑似的結合のRetangleが隠れてしまう現象で、回避するためにはe.Handled = trueで標準描画をキャンセルする必要があった。

例えば今回は利用しないけど、標準描画の一部をキャンセルする場合、e.Paint()で標準描画を呼び、e.Handled = trueで終了させる。
var p = e.PaintParts & ~DataGridViewPaintParts.Border;
e.Paint(e.ClipBounds, p);
e.Handled = true;
これでBorderの描画がキャンセルされる。

            DataGridView.CellPainting += (s, e) =>
            {
                if (e.RowIndex != 0) return; // Rows[0]のみ

                if (e.ColumnIndex == 1)
                {
                    e.Handled = true;
                    // e.Handled = trueで描画をキャンセルできる。
                    // 描画をキャンセルしたセルのみRectangleの描画が優先される。
                    // ここでColumns[1]の描画をキャンセルしないと
                    // Columns[0]の描画が後ろになってしまう。

                    // DoubleBufferedが有効の場合スクロールなどで画面外になったときの
                    // Columns[1]の黒塗領域が直らない。
                }

                if (e.ColumnIndex == 0)
                {
                    DataGridView dgv = (DataGridView)s;

                    Rectangle newRect = new Rectangle(
                        e.CellBounds.X-1,
                        e.CellBounds.Y-1,
                        e.CellBounds.Width + dgv.Columns[e.ColumnIndex+1].Width,
                        e.CellBounds.Height);

                    e.Graphics.FillRectangle(Brushes.White, newRect);
                    e.Graphics.DrawRectangle(new Pen(dgv.GridColor), newRect);

                    StringFormat sf = new StringFormat();
                    sf.Alignment = StringAlignment.Center;
                    sf.LineAlignment = StringAlignment.Center ;
                    e.Graphics.TextRenderingHint = TextRenderingHint.ClearTypeGridFit;
                    e.Graphics.DrawString(e.Value.ToString(), e.CellStyle.Font, Brushes.Black, newRect, sf);

                    e.Handled = true;
                    
                }

            };

DataGridView.CellPainting += (s, e) =>

{

if (e.RowIndex != 0) return; // Rows[0]のみ

if (e.ColumnIndex == 1)

{

e.Handled = true;

// e.Handled = trueで描画をキャンセルできる。

// 描画をキャンセルしたセルのみRectangleの描画が優先される。

// ここでColumns[1]の描画をキャンセルしないと

// Columns[0]の描画が後ろになってしまう。

// DoubleBufferedが有効の場合スクロールなどで画面外になったときの

// Columns[1]の黒塗領域が直らない。

}

if (e.ColumnIndex == 0)

{

DataGridView dgv = (DataGridView)s;

Rectangle newRect = new Rectangle(

e.CellBounds.X-1,

e.CellBounds.Y-1,

e.CellBounds.Width + dgv.Columns[e.ColumnIndex+1].Width,

e.CellBounds.Height);

e.Graphics.FillRectangle(Brushes.White, newRect);

e.Graphics.DrawRectangle(new Pen(dgv.GridColor), newRect);

StringFormat sf = new StringFormat();

sf.Alignment = StringAlignment.Center;

sf.LineAlignment = StringAlignment.Center ;

e.Graphics.TextRenderingHint = TextRenderingHint.ClearTypeGridFit;

e.Graphics.DrawString(e.Value.ToString(), e.CellStyle.Font, Brushes.Black, newRect, sf);

e.Handled = true;

}

};

＊＊＊

次は擬似的結合の範囲をループで動的に取得してみた。1行目1～5列目までは罫線Bottomを消すだけで、それ以降の1行目6列目以降(年月の部分)を疑似的結合している。

描画セル(1行目6列目)が画面から消えない(見えなくなることがない)作りならこれで問題ないのだけど、横スクロールなどで描画セルが画面から消えると疑似的結合のRectangleも消えて黒塗りになってしまうという厄介な問題が発生する。

スクロールの状態から描画セルを修正するような計算をすれば回避できるかもしれないけど、かなり面倒だしCellPainting()は頻繁に呼ばれているので、あまり複雑な計算もしたくない。

            DataGridView.CellPainting += (s, e) =>
            {
                if (e.RowIndex != 0) return; // 1行目のみ
     
                if (e.ColumnIndex < _StartDateColumn)
                {
                    // 罫線非表示
                    e.AdvancedBorderStyle.Bottom = DataGridViewAdvancedCellBorderStyle.None;
                }
                else if (e.ColumnIndex >= _StartDateColumn)
                {
                    if (Convert.ToString(e.Value) == "")
                    {
                        e.Handled = true; // 通常の描画を呼ばない。
                    }
                    else
                    {
                        DataGridView dgv = (DataGridView)s;
                        int totalWidth = 0; 

                        int c = e.ColumnIndex;
                        do
                        {
                            totalWidth += dgv.Columns[c].Width;
                            c++;
                        }
                        while (c < dgv.Columns.Count && Convert.ToString(dgv.Rows[0].Cells[c].Value) == "");

                        Rectangle rect = new Rectangle(e.CellBounds.X - 1, e.CellBounds.Y - 1, totalWidth, e.CellBounds.Height);
                        e.Graphics.FillRectangle(Brushes.AliceBlue, rect);
                        e.Graphics.DrawRectangle(new Pen(dgv.GridColor), rect);
                        var stringFormat = new StringFormat();
                        stringFormat.Alignment = StringAlignment.Center;
                        stringFormat.LineAlignment = StringAlignment.Center;
                        e.Graphics.TextRenderingHint = TextRenderingHint.ClearTypeGridFit;
                        e.Graphics.DrawString(e.Value.ToString(), e.CellStyle.Font, Brushes.Black, rect, stringFormat);

                        e.Handled = true; // 通常の描画を呼ばない。
                    }
                }
            };

DataGridView.CellPainting += (s, e) =>

{

if (e.RowIndex != 0) return; // 1行目のみ

if (e.ColumnIndex < _StartDateColumn)

{

// 罫線非表示

e.AdvancedBorderStyle.Bottom = DataGridViewAdvancedCellBorderStyle.None;

}

else if (e.ColumnIndex >= _StartDateColumn)

{

if (Convert.ToString(e.Value) == "")

{

e.Handled = true; // 通常の描画を呼ばない。

}

else

{

DataGridView dgv = (DataGridView)s;

int totalWidth = 0;

int c = e.ColumnIndex;

{

totalWidth += dgv.Columns[c].Width;

c++;

}

while (c < dgv.Columns.Count && Convert.ToString(dgv.Rows[0].Cells[c].Value) == "");

Rectangle rect = new Rectangle(e.CellBounds.X - 1, e.CellBounds.Y - 1, totalWidth, e.CellBounds.Height);

e.Graphics.FillRectangle(Brushes.AliceBlue, rect);

e.Graphics.DrawRectangle(new Pen(dgv.GridColor), rect);

var stringFormat = new StringFormat();

stringFormat.Alignment = StringAlignment.Center;

stringFormat.LineAlignment = StringAlignment.Center;

e.Graphics.TextRenderingHint = TextRenderingHint.ClearTypeGridFit;

e.Graphics.DrawString(e.Value.ToString(), e.CellStyle.Font, Brushes.Black, rect, stringFormat);

e.Handled = true; // 通常の描画を呼ばない。

}

};

＊＊＊

ちなみに、CellPainting()ではなくPaint()で処理することもできる。イベント引数からCellBoundsを取れないので、直接DataGridViewで指定するだけ。

            DataGridView.Paint += (s, e) =>
            {
                DataGridView dgv = (DataGridView)s;
                int totalWidth = 0;

                int c = 5;
                do
                {
                    totalWidth += dgv.Columns[c].Width;
                    c++;
                }
                while (c < dgv.Columns.Count && Convert.ToString(dgv.Rows[0].Cells[c].Value) == "");

                Rectangle rect = new Rectangle(
                    dgv.GetCellDisplayRectangle(5, 0, true).X - 1,
                    dgv.GetCellDisplayRectangle(5, 0, true).Y - 1,
                    totalWidth,
                    dgv.GetCellDisplayRectangle(5, 0, true).Height
                    );

                e.Graphics.FillRectangle(Brushes.AliceBlue, rect);
                e.Graphics.DrawRectangle(new Pen(dgv.GridColor), rect);
                var stringFormat = new StringFormat();
                stringFormat.Alignment = StringAlignment.Center;
                stringFormat.LineAlignment = StringAlignment.Center;
                e.Graphics.TextRenderingHint = TextRenderingHint.ClearTypeGridFit;
                e.Graphics.DrawString("2000/01/01", dgv.Font, Brushes.Black, rect, stringFormat);
            };

DataGridView.Paint += (s, e) =>

{

DataGridView dgv = (DataGridView)s;

int totalWidth = 0;

int c = 5;

{

totalWidth += dgv.Columns[c].Width;

c++;

}

while (c < dgv.Columns.Count && Convert.ToString(dgv.Rows[0].Cells[c].Value) == "");

Rectangle rect = new Rectangle(

dgv.GetCellDisplayRectangle(5, 0, true).X - 1,

dgv.GetCellDisplayRectangle(5, 0, true).Y - 1,

totalWidth,

dgv.GetCellDisplayRectangle(5, 0, true).Height

);

e.Graphics.FillRectangle(Brushes.AliceBlue, rect);

e.Graphics.DrawRectangle(new Pen(dgv.GridColor), rect);

var stringFormat = new StringFormat();

stringFormat.Alignment = StringAlignment.Center;

stringFormat.LineAlignment = StringAlignment.Center;

e.Graphics.TextRenderingHint = TextRenderingHint.ClearTypeGridFit;

e.Graphics.DrawString("2000/01/01", dgv.Font, Brushes.Black, rect, stringFormat);

};

＊＊＊

色々考えたけど、結局、Rectangleの擬似的結合は止めて、CellPainting()では罫線だけ処理した。Alignmentで中央にできないし長い文字列も設定できないが、描画落ちするよりはいいかなという感じ。

            DataGridView.CellPainting += (s, e) =>
            {
                if (e.RowIndex != 0) return;

                if (e.ColumnIndex < _StartDateColumn) e.AdvancedBorderStyle.Bottom = DataGridViewAdvancedCellBorderStyle.None;
                
                if (e.ColumnIndex >= _StartDateColumn)
                {
                    e.AdvancedBorderStyle.Left = DataGridViewAdvancedCellBorderStyle.None;
                    e.AdvancedBorderStyle.Right = DataGridViewAdvancedCellBorderStyle.None;

                    if (e.ColumnIndex < DataGridView.Columns.Count - 1 &&
                        Convert.ToString(DataGridView.Rows[0].Cells[e.ColumnIndex + 1].Value) != "")
                    {
                        e.AdvancedBorderStyle.Right = DataGridViewAdvancedCellBorderStyle.Single;
                    }

                }
            };

DataGridView.CellPainting += (s, e) =>

{

if (e.RowIndex != 0) return;

if (e.ColumnIndex < _StartDateColumn) e.AdvancedBorderStyle.Bottom = DataGridViewAdvancedCellBorderStyle.None;

if (e.ColumnIndex >= _StartDateColumn)

{

e.AdvancedBorderStyle.Left = DataGridViewAdvancedCellBorderStyle.None;

e.AdvancedBorderStyle.Right = DataGridViewAdvancedCellBorderStyle.None;

if (e.ColumnIndex < DataGridView.Columns.Count - 1 &&

Convert.ToString(DataGridView.Rows[0].Cells[e.ColumnIndex + 1].Value) != "")

{

e.AdvancedBorderStyle.Right = DataGridViewAdvancedCellBorderStyle.Single;

}

};

＊＊＊

数日後追記。

しばらく経ってから思いついたのが画像を利用するアイデアで、疑似的結合のサイズで動的に画像を生成して、それぞれのセルのサイズで抜き出して描画するという方法。

これだと見た目は結合されているけど、描画はセルごとなので黒塗りになってしまう問題も発生しない。

ただこの方法の場合、疑似的結合の範囲やサイズが固定なら問題ないけど、範囲やサイズが動的に変化するような仕様だとかなり複雑になってしまう。

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Drawing.Text;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;

namespace ProductionManagement
{
    public partial class GanttChart : Form
    {
        private int _StartDateColumn = 5;
        private int _DateColumnWidth = 13;
        private DateClass _DateClass = new DateClass();

        private Bitmap[] _BitmapArray = new Bitmap[32];

        public GanttChart()
        {
            InitializeComponent();

            Binding();
            InitializeTextBox();
            CreateDataGridView();

            SetupDataGridView();
            AttachEvent();

            CreateBitmap();
        }

        private void InitializeTextBox()
        {
            DateTime ym = DateTime.Now;
            if (ym.Day <= 20) ym = ym.AddMonths(-1);

            _DateClass.年月 = ym.ToString("yyyy年MM月");
            TargetYm.Text = ym.ToString("yyyy年MM月");
        }

        private void Binding()
        {
            TargetYm.DataBindings.Add("Text", _DateClass, "年月");
        }

        private void CreateBitmap()
        {
            for (int i = 1; i <= 31; i++)
            {
                var label = new Label()
                {
                    Text = i.ToString().PadLeft(2, '0'),
                    Width = _DateColumnWidth * 3,
                    Height = DataGridView.RowTemplate.Height,
                    Font = DataGridView.Font,
                    TextAlign = ContentAlignment.MiddleCenter,
                    BackColor = Color.AliceBlue
                };
                var bitmap = new Bitmap(label.Width, label.Height);
                label.DrawToBitmap(bitmap, label.Bounds);
                _BitmapArray[i] = bitmap;
            }
        }

        private void DrawBorder(object s, DataGridViewCellPaintingEventArgs e)
        {
            var refer = Convert.ToString(DataGridView.Rows[1].Cells[e.ColumnIndex].Value);

            if (refer != "")
            {
                e.AdvancedBorderStyle.Left = DataGridViewAdvancedCellBorderStyle.OutsetDouble;
                // DrawLine()ではrightが上手く表示できない。
                // DividerWidthではヘッダー部分まで描画されてしまう。
            }
        }

        private void DrawMergeImage(object s, DataGridViewCellPaintingEventArgs e)
        {
            // 画像上で切り取る位置(X,Y)とサイズを指定する。
            // ここでは生成済のWidth*3の画像があり、その画像上での位置とサイズを指定する。
            var src = new Rectangle(
                0,
                0,
                e.CellBounds.Width,
                e.CellBounds.Height
                );

            // フォーム上で描画する位置を指定する。
            var dst = new Rectangle(
                e.CellBounds.X,
                e.CellBounds.Y,
                e.CellBounds.Width,
                e.CellBounds.Height - 1
                );

            var refer = Convert.ToString(DataGridView.Rows[e.RowIndex].Cells[e.ColumnIndex].Value);
            var referMinus1 = Convert.ToString(DataGridView.Rows[e.RowIndex].Cells[e.ColumnIndex - 1].Value);
            var referMinus2 = Convert.ToString(DataGridView.Rows[e.RowIndex].Cells[e.ColumnIndex - 2].Value);

            if (refer != "")
            {
                e.Graphics.DrawImage(_BitmapArray[int.Parse(refer)], dst, src, GraphicsUnit.Pixel);

                e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // left
                    e.CellBounds.X - 1,
                    e.CellBounds.Y,
                    e.CellBounds.X - 1,
                    e.CellBounds.Y + e.CellBounds.Height
                    // leftとrightの罫線が重複しているが、leftだけだとクリックしたときに罫線がなくなってしまう
                );

                e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // top
                    e.CellBounds.X,
                    e.CellBounds.Y - 1,
                    e.CellBounds.X + e.CellBounds.Width,
                    e.CellBounds.Y - 1
                );

                e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // bottom
                    e.CellBounds.X,
                    e.CellBounds.Y + e.CellBounds.Height - 1,
                    e.CellBounds.X + e.CellBounds.Width,
                    e.CellBounds.Y + e.CellBounds.Height - 1
                );

                e.Handled = true;
            }
            else if (referMinus1 != "")
            {
                src.X = e.CellBounds.Width;
                e.Graphics.DrawImage(_BitmapArray[int.Parse(referMinus1)], dst, src, GraphicsUnit.Pixel);

                e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // top
                    e.CellBounds.X,
                    e.CellBounds.Y - 1,
                    e.CellBounds.X + e.CellBounds.Width,
                    e.CellBounds.Y - 1
                );

                e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // bottom
                    e.CellBounds.X,
                    e.CellBounds.Y + e.CellBounds.Height - 1,
                    e.CellBounds.X + e.CellBounds.Width,
                    e.CellBounds.Y + e.CellBounds.Height - 1
                );

                e.Handled = true;
            }
            else if (referMinus2 != "")
            {
                src.X = e.CellBounds.Width + e.CellBounds.Width;
                e.Graphics.DrawImage(_BitmapArray[int.Parse(referMinus2)], dst, src, GraphicsUnit.Pixel);

                e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // top
                    e.CellBounds.X,
                    e.CellBounds.Y - 1,
                    e.CellBounds.X + e.CellBounds.Width,
                    e.CellBounds.Y - 1
                );

                e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // bottom
                    e.CellBounds.X,
                    e.CellBounds.Y + e.CellBounds.Height - 1,
                    e.CellBounds.X + e.CellBounds.Width,
                    e.CellBounds.Y + e.CellBounds.Height - 1
                );

                if (e.RowIndex == 1)
                {
                    e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // right
                        e.CellBounds.X + e.CellBounds.Width - 1,
                        e.CellBounds.Y,
                        e.CellBounds.X + e.CellBounds.Width - 1,
                        e.CellBounds.Y + e.CellBounds.Height
                    );
                }
                e.Handled = true;
            }
        }

        private void AttachEvent()
        {
            DataGridView.CellPainting += (s, e) =>
            {
                if (e.RowIndex == 0 &&
                    e.ColumnIndex < _StartDateColumn)
                {
                    e.AdvancedBorderStyle.Bottom = DataGridViewAdvancedCellBorderStyle.None;
                }

                if (e.RowIndex == 0 && 
                    e.ColumnIndex >= _StartDateColumn)
                {
                    e.AdvancedBorderStyle.Left = DataGridViewAdvancedCellBorderStyle.None;
                    e.AdvancedBorderStyle.Right = DataGridViewAdvancedCellBorderStyle.None;

                    if (e.ColumnIndex < DataGridView.Columns.Count - 1 &&
                        Convert.ToString(DataGridView.Rows[0].Cells[e.ColumnIndex + 1].Value) != "")
                    {
                        e.AdvancedBorderStyle.Right = DataGridViewAdvancedCellBorderStyle.Single;
                    }
                }

                if ((e.RowIndex == 0 || e.RowIndex == 1) && 
                    e.ColumnIndex >= _StartDateColumn)
                {
                    DrawMergeImage(s, e);
                }

                if (e.RowIndex > 1 &&
                    e.ColumnIndex >= _StartDateColumn)
                {
                    DrawBorder(s, e);
                }

            };

            DataGridView.Scroll += (s, e) => { DataGridView.Refresh(); };

            CreateChart.Click += (s, e) => CreateDataGridView();

            DataGridView.SelectionChanged += (s, e) =>
            {
                if (DataGridView.Rows.Count >= 2)
                {
                    DataGridView.Rows[0].Selected = false;
                    DataGridView.Rows[1].Selected = false;
                }
            };

            DataGridView.RowPrePaint += (s, e) =>
            {
                e.PaintParts &= ~DataGridViewPaintParts.Focus;
            };

        }

        private void CreateDataGridView()
        {
            if (TargetYm.Text == "") return;

            DataGridView.Rows.Clear();
            DataGridView.Columns.Clear();

            DateTime ym = DateTime.Parse(TargetYm.Text);
            DateTime startDay = new DateTime(ym.Year, ym.Month, 21);

            ym = ym.AddMonths(1);
            DateTime endDay = new DateTime(ym.Year, ym.Month, 20);

            List<DataGridViewColumn> listColumn = new List<DataGridViewColumn>();

            foreach (var e in new string[] { "ID", "型式", "工番", "数量", "追番" })
            {
                listColumn.Add(new DataGridViewTextBoxColumn
                {
                    Name = e,
                    HeaderText = ""
                });
            }

            while (startDay <= endDay)
            {
                listColumn.Add(new DataGridViewTextBoxColumn
                {
                    Name = startDay.ToString("yyyy/MM/dd"),
                    HeaderText = "",
                    Width = _DateColumnWidth
                });

                listColumn.Add(new DataGridViewTextBoxColumn
                {
                    Width = _DateColumnWidth
                });

                listColumn.Add(new DataGridViewTextBoxColumn
                {
                    Width = _DateColumnWidth
                });

                startDay = startDay.AddDays(1);
            }

            DataGridView.Columns.AddRange(listColumn.ToArray());

            for (int i = 0; i < 2; i++) DataGridView.Rows.Add("");

            for (int c = 0; c < listColumn.Count; c++)
            {
                if (c < _StartDateColumn)
                {
                    DataGridView.Rows[0].Cells[c].Value = listColumn[c].Name;
                }
                else
                {
                    if (listColumn[c].Name != "")
                    {
                        DateTime.TryParse(listColumn[c].Name, out DateTime result);

                        DataGridView.Rows[1].Cells[c].Value = result.ToString("dd");

                        if (c == _StartDateColumn || result.ToString("dd") == "01")
                        {
                            DataGridView.Rows[0].Cells[c].Value = result.ToString("MM");
                        }
                    }
                }
            }
            SetupRowColumn();
            DataLoad();
        }

        private void DataLoad()
        {
            DataGridView.Rows.Add("");
            DataGridView.Rows.Add("");
            DataGridView.Rows.Add("");
            DataGridView.Rows.Add("");
            DataGridView.Rows.Add("");
            DataGridView.Rows.Add("");
            DataGridView.Rows.Add("");
            DataGridView.Rows.Add("");
            DataGridView.Rows.Add("");
            DataGridView.Rows.Add("");
            DataGridView.Rows.Add("");
            DataGridView.Rows.Add("");
        }

        private void SetupRowColumn()
        {
            DataGridView.Columns["ID"].Visible = false;

            DataGridView.Rows[0].DefaultCellStyle.BackColor = Color.AliceBlue;
            DataGridView.Rows[1].DefaultCellStyle.BackColor = Color.AliceBlue;

            foreach (DataGridViewColumn c in DataGridView.Columns) c.SortMode = DataGridViewColumnSortMode.NotSortable;
        }

        private void SetupDataGridView()
        {
            DataGridView.RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.DisableResizing;
            DataGridView.RowHeadersWidth = 4;

            DataGridView.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing;
            DataGridView.ColumnHeadersHeight = 4;
            DataGridView.AllowUserToResizeColumns = false;

            //DataGridView.SelectionMode = DataGridViewSelectionMode.FullRowSelect;
            DataGridView.ColumnHeadersDefaultCellStyle.WrapMode = DataGridViewTriState.False;

            DataGridView.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.None;
            DataGridView.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.None;

            DataGridView.Font = new Font("メイリオ", 9);
            DataGridView.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter;

            DataGridView.AllowUserToAddRows = false;
            DataGridView.MultiSelect = true;

            typeof(DataGridView).
            GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance | System.Reflection.BindingFlags.NonPublic).
            SetValue(DataGridView, true, null);
        }
    }

    class DateClass
    {
        private string TargetYm;
        public object 年月
        {
            set
            {
                try
                {
                    var dt = DateTime.Parse(Convert.ToString(value));
                    TargetYm = dt.ToString("yyyy年MM月");
                }
                catch
                {
                    TargetYm = "";
                }
            }
            get { return TargetYm; }
        }
    }
}

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

318

319

320

321

322

323

324

325

326

327

328

329

330

331

332

333

334

335

336

337

338

339

340

341

342

343

344

345

346

347

348

349

350

351

352

353

354

355

356

357

358

359

360

361

362

363

364

365

366

367

368

369

370

371

372

373

374

375

376

377

378

379

380

381

382

383

384

385

386

387

388

389

390

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Drawing.Text;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

using System.Windows.Forms;

namespace ProductionManagement

{

public partial class GanttChart : Form

{

private int _StartDateColumn = 5;

private int _DateColumnWidth = 13;

private DateClass _DateClass = new DateClass();

private Bitmap[] _BitmapArray = new Bitmap[32];

public GanttChart()

{

InitializeComponent();

Binding();

InitializeTextBox();

CreateDataGridView();

SetupDataGridView();

AttachEvent();

CreateBitmap();

}

private void InitializeTextBox()

{

DateTime ym = DateTime.Now;

if (ym.Day <= 20) ym = ym.AddMonths(-1);

_DateClass.年月 = ym.ToString("yyyy年MM月");

TargetYm.Text = ym.ToString("yyyy年MM月");

}

private void Binding()

{

TargetYm.DataBindings.Add("Text", _DateClass, "年月");

}

private void CreateBitmap()

{

for (int i = 1; i <= 31; i++)

{

var label = new Label()

{

Text = i.ToString().PadLeft(2, '0'),

Width = _DateColumnWidth * 3,

Height = DataGridView.RowTemplate.Height,

Font = DataGridView.Font,

TextAlign = ContentAlignment.MiddleCenter,

BackColor = Color.AliceBlue

};

var bitmap = new Bitmap(label.Width, label.Height);

label.DrawToBitmap(bitmap, label.Bounds);

_BitmapArray[i] = bitmap;

}

private void DrawBorder(object s, DataGridViewCellPaintingEventArgs e)

{

var refer = Convert.ToString(DataGridView.Rows[1].Cells[e.ColumnIndex].Value);

if (refer != "")

{

e.AdvancedBorderStyle.Left = DataGridViewAdvancedCellBorderStyle.OutsetDouble;

// DrawLine()ではrightが上手く表示できない。

// DividerWidthではヘッダー部分まで描画されてしまう。

}

private void DrawMergeImage(object s, DataGridViewCellPaintingEventArgs e)

{

// 画像上で切り取る位置(X,Y)とサイズを指定する。

// ここでは生成済のWidth*3の画像があり、その画像上での位置とサイズを指定する。

var src = new Rectangle(

e.CellBounds.Width,

e.CellBounds.Height

);

// フォーム上で描画する位置を指定する。

var dst = new Rectangle(

e.CellBounds.X,

e.CellBounds.Y,

e.CellBounds.Width,

e.CellBounds.Height - 1

);

var refer = Convert.ToString(DataGridView.Rows[e.RowIndex].Cells[e.ColumnIndex].Value);

var referMinus1 = Convert.ToString(DataGridView.Rows[e.RowIndex].Cells[e.ColumnIndex - 1].Value);

var referMinus2 = Convert.ToString(DataGridView.Rows[e.RowIndex].Cells[e.ColumnIndex - 2].Value);

if (refer != "")

{

e.Graphics.DrawImage(_BitmapArray[int.Parse(refer)], dst, src, GraphicsUnit.Pixel);

e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // left

e.CellBounds.X - 1,

e.CellBounds.Y,

e.CellBounds.X - 1,

e.CellBounds.Y + e.CellBounds.Height

// leftとrightの罫線が重複しているが、leftだけだとクリックしたときに罫線がなくなってしまう

);

e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // top

e.CellBounds.X,

e.CellBounds.Y - 1,

e.CellBounds.X + e.CellBounds.Width,

e.CellBounds.Y - 1

);

e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // bottom

e.CellBounds.X,

e.CellBounds.Y + e.CellBounds.Height - 1,

e.CellBounds.X + e.CellBounds.Width,

e.CellBounds.Y + e.CellBounds.Height - 1

);

e.Handled = true;

}

else if (referMinus1 != "")

{

src.X = e.CellBounds.Width;

e.Graphics.DrawImage(_BitmapArray[int.Parse(referMinus1)], dst, src, GraphicsUnit.Pixel);

e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // top

e.CellBounds.X,

e.CellBounds.Y - 1,

e.CellBounds.X + e.CellBounds.Width,

e.CellBounds.Y - 1

);

e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // bottom

e.CellBounds.X,

e.CellBounds.Y + e.CellBounds.Height - 1,

e.CellBounds.X + e.CellBounds.Width,

e.CellBounds.Y + e.CellBounds.Height - 1

);

e.Handled = true;

}

else if (referMinus2 != "")

{

src.X = e.CellBounds.Width + e.CellBounds.Width;

e.Graphics.DrawImage(_BitmapArray[int.Parse(referMinus2)], dst, src, GraphicsUnit.Pixel);

e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // top

e.CellBounds.X,

e.CellBounds.Y - 1,

e.CellBounds.X + e.CellBounds.Width,

e.CellBounds.Y - 1

);

e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // bottom

e.CellBounds.X,

e.CellBounds.Y + e.CellBounds.Height - 1,

e.CellBounds.X + e.CellBounds.Width,

e.CellBounds.Y + e.CellBounds.Height - 1

);

if (e.RowIndex == 1)

{

e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // right

e.CellBounds.X + e.CellBounds.Width - 1,

e.CellBounds.Y,

e.CellBounds.X + e.CellBounds.Width - 1,

e.CellBounds.Y + e.CellBounds.Height

);

}

e.Handled = true;

}

private void AttachEvent()

{

DataGridView.CellPainting += (s, e) =>

{

if (e.RowIndex == 0 &&

e.ColumnIndex < _StartDateColumn)

{

e.AdvancedBorderStyle.Bottom = DataGridViewAdvancedCellBorderStyle.None;

}

if (e.RowIndex == 0 &&

e.ColumnIndex >= _StartDateColumn)

{

e.AdvancedBorderStyle.Left = DataGridViewAdvancedCellBorderStyle.None;

e.AdvancedBorderStyle.Right = DataGridViewAdvancedCellBorderStyle.None;

if (e.ColumnIndex < DataGridView.Columns.Count - 1 &&

Convert.ToString(DataGridView.Rows[0].Cells[e.ColumnIndex + 1].Value) != "")

{

e.AdvancedBorderStyle.Right = DataGridViewAdvancedCellBorderStyle.Single;

}

if ((e.RowIndex == 0 || e.RowIndex == 1) &&

e.ColumnIndex >= _StartDateColumn)

{

DrawMergeImage(s, e);

}

if (e.RowIndex > 1 &&

e.ColumnIndex >= _StartDateColumn)

{

DrawBorder(s, e);

}

};

DataGridView.Scroll += (s, e) => { DataGridView.Refresh(); };

CreateChart.Click += (s, e) => CreateDataGridView();

DataGridView.SelectionChanged += (s, e) =>

{

if (DataGridView.Rows.Count >= 2)

{

DataGridView.Rows[0].Selected = false;

DataGridView.Rows[1].Selected = false;

}

};

DataGridView.RowPrePaint += (s, e) =>

{

e.PaintParts &= ~DataGridViewPaintParts.Focus;

};

}

private void CreateDataGridView()

{

if (TargetYm.Text == "") return;

DataGridView.Rows.Clear();

DataGridView.Columns.Clear();

DateTime ym = DateTime.Parse(TargetYm.Text);

DateTime startDay = new DateTime(ym.Year, ym.Month, 21);

ym = ym.AddMonths(1);

DateTime endDay = new DateTime(ym.Year, ym.Month, 20);

List<DataGridViewColumn> listColumn = new List<DataGridViewColumn>();

foreach (var e in new string[] { "ID", "型式", "工番", "数量", "追番" })

{

listColumn.Add(new DataGridViewTextBoxColumn

{

Name = e,

HeaderText = ""

});

}

while (startDay <= endDay)

{

listColumn.Add(new DataGridViewTextBoxColumn

{

Name = startDay.ToString("yyyy/MM/dd"),

HeaderText = "",

Width = _DateColumnWidth

});

listColumn.Add(new DataGridViewTextBoxColumn

{

Width = _DateColumnWidth

});

listColumn.Add(new DataGridViewTextBoxColumn

{

Width = _DateColumnWidth

});

startDay = startDay.AddDays(1);

}

DataGridView.Columns.AddRange(listColumn.ToArray());

for (int i = 0; i < 2; i++) DataGridView.Rows.Add("");

for (int c = 0; c < listColumn.Count; c++)

{

if (c < _StartDateColumn)

{

DataGridView.Rows[0].Cells[c].Value = listColumn[c].Name;

}

else

{

if (listColumn[c].Name != "")

{

DateTime.TryParse(listColumn[c].Name, out DateTime result);

DataGridView.Rows[1].Cells[c].Value = result.ToString("dd");

if (c == _StartDateColumn || result.ToString("dd") == "01")

{

DataGridView.Rows[0].Cells[c].Value = result.ToString("MM");

}

SetupRowColumn();

DataLoad();

}

private void DataLoad()

{

DataGridView.Rows.Add("");

}

private void SetupRowColumn()

{

DataGridView.Columns["ID"].Visible = false;

DataGridView.Rows[0].DefaultCellStyle.BackColor = Color.AliceBlue;

DataGridView.Rows[1].DefaultCellStyle.BackColor = Color.AliceBlue;

foreach (DataGridViewColumn c in DataGridView.Columns) c.SortMode = DataGridViewColumnSortMode.NotSortable;

}

private void SetupDataGridView()

{

DataGridView.RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.DisableResizing;

DataGridView.RowHeadersWidth = 4;

DataGridView.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing;

DataGridView.ColumnHeadersHeight = 4;

DataGridView.AllowUserToResizeColumns = false;

//DataGridView.SelectionMode = DataGridViewSelectionMode.FullRowSelect;

DataGridView.ColumnHeadersDefaultCellStyle.WrapMode = DataGridViewTriState.False;

DataGridView.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.None;

DataGridView.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.None;

DataGridView.Font = new Font("メイリオ", 9);

DataGridView.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter;

DataGridView.AllowUserToAddRows = false;

DataGridView.MultiSelect = true;

typeof(DataGridView).

GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance | System.Reflection.BindingFlags.NonPublic).

SetValue(DataGridView, true, null);

}

class DateClass

{

private string TargetYm;

public object 年月

{

set

{

try

{

var dt = DateTime.Parse(Convert.ToString(value));

TargetYm = dt.ToString("yyyy年MM月");

}

catch

{

TargetYm = "";

}

get { return TargetYm; }

}

2020-02-092020-02-26

C# DataGridView 操作基本

最近DataGridViewを扱う場合の流れ。

・内容の表示はモデルクラスのインスタンスをリスト化してバインドする。
入力内容をパースしたりする場合は、インスタンスのプロパティで処理。表示のスタイルについてはDataGridViewのセルで処理。

内部で保持するデータ型はstring型が多い。手入力される値はパースで弾いたときに空白に戻したいと思うことが多い。少し前はバインドせずパースの処理を間に入れていた。

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;

namespace ProductionManagement
{
    public partial class ScheduleListForm : Form
    {
        public ScheduleListForm()
        {
            InitializeComponent();
            SetTextBoxBind();
        }

        private void SetTextBoxBind()
        {
            StartYmd.DataBindings.Add("Text", new TextBoxBind(), "年月日");
            EndYmd.DataBindings.Add("Text", new TextBoxBind(), "年月日");
        }
    }

    class TextBoxBind
    {
        private string ymd;
        public object 年月日
        {
            set
            {
                try
                {
                    var dt = DateTime.Parse(Convert.ToString(value));
                    ymd = dt.ToString("yyyy/MM/dd");
                }
                catch { ymd = ""; }
            }
            get { return ymd; }
        }
    }
}

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

using System.Windows.Forms;

namespace ProductionManagement

{

public partial class ScheduleListForm : Form

{

public ScheduleListForm()

{

InitializeComponent();

SetTextBoxBind();

}

private void SetTextBoxBind()

{

StartYmd.DataBindings.Add("Text", new TextBoxBind(), "年月日");

EndYmd.DataBindings.Add("Text", new TextBoxBind(), "年月日");

}

class TextBoxBind

{

private string ymd;

public object 年月日

{

set

{

try

{

var dt = DateTime.Parse(Convert.ToString(value));

ymd = dt.ToString("yyyy/MM/dd");

}

catch { ymd = ""; }

}

get { return ymd; }

}

ここでは試しにテキストボックスのバインド処理だけ。

・カラムとDBスキーマはリフレクションで連動させ、一箇所で指定。DBのテーブル作成もコード化しておく。
(ここでは記載していない)

・検索ボックスがある場合のクエリもリフクションで作る。
(ここでは記載していない)

・値が変更された行は色を変える。

・更新のときはスクロール位置を戻す。新規のときは一番下へスクロール。

・行を追加するときは１行のみの表示に切り替える。
更新処理はフラグ用のカラムを見て判断。

・マスタ化しているカラムは、クリック時にフォームを表示させる。
(ここでは記載していない)

C# 簡易インクリメンタルサーチ②

・カラムの表示/非表示、サイズ、並び順は上記と同じようにテキストファイルで指定できるようにする。(ここでは記載していない)
ユーザー側で変更したいであろう部分はテキストファイルで処理できるように。

本来はもっとクラスに分散させているけど、今回は見やすいように１つのファイルに入れた。一部は流用しているので載っていない。

ここまで手動でやらなくても色々方法はあるのだろうけど、何だかんだ手作りで落ち着いた。

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;

namespace ProductionManagement
{
    public partial class ScheduleForm : Form
    {
        string _SalesID;
        string _SalesStaff;

        public ScheduleForm(string i, string n)
        {
            InitializeComponent();

            _SalesID = i;
            _SalesStaff = n;

            EventAttach();

            DataLoad();
            SetViewStyle();
        }
        private void SetViewStyle()
        {
            DataGridView.Columns["ID"].Visible = false;
            DataGridView.Columns["Modified"].Visible = false;
            DataGridView.Columns["外注一覧ID"].Visible = false;
            DataGridView.Columns["担当者名"].Visible = false;

            DataGridView.Columns["名称"].Width = 190;
            DataGridView.Columns["開始日"].Width = 120;
            DataGridView.Columns["終了日"].Width = 120;

            DataGridView.RowHeadersWidth = 50;
            DataGridView.SelectionMode = DataGridViewSelectionMode.FullRowSelect;
            DataGridView.ColumnHeadersDefaultCellStyle.WrapMode = DataGridViewTriState.False;
            DataGridView.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing;
            DataGridView.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.None;
            DataGridView.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.None;
            DataGridView.Font = new Font("メイリオ", 10);
            DataGridView.RowTemplate.Height = 22;
            DataGridView.AllowUserToAddRows = false;
            DataGridView.MultiSelect = false;

            typeof(DataGridView).
                GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance | System.Reflection.BindingFlags.NonPublic).
                SetValue(DataGridView, true, null);
        }

        private void DataLoad()
        {
            BindingList<ScheduleModel> models = new BindingList<ScheduleModel>();
            var currentScrollRowIndex = DataGridView.FirstDisplayedScrollingRowIndex;

            Query q = new Query()
            {
                QueryString = $"select * from 作業一覧 where 担当者名 = '{_SalesStaff}'"
            };

            DataTable dt = q.ExecuteQuery();

            for (int r = 0; r < dt.Rows.Count; r++)
            {
                models.Add(new ScheduleModel()
                {
                    ID = dt.Rows[r]["ID"],
                    外注一覧ID = dt.Rows[r]["外注一覧ID"],
                    担当者名 = dt.Rows[r]["担当者名"],
                    名称 = dt.Rows[r]["名称"],
                    開始日 = dt.Rows[r]["開始日"],
                    終了日 = dt.Rows[r]["終了日"]
                });
            }
            DataGridView.DataSource = models;

            if (currentScrollRowIndex > 0 && DataGridView.Rows.Count > 0 &&
                DataGridView.Rows.Count >= currentScrollRowIndex)
            {
                DataGridView.FirstDisplayedScrollingRowIndex = currentScrollRowIndex;
            }
        }

        private void RowModified(DataGridViewRow targetRow)
        {
            targetRow.HeaderCell.Value = "*";
            targetRow.DefaultCellStyle.ForeColor = Color.Blue;
            targetRow.DefaultCellStyle.Font = new Font("メイリオ", 10, FontStyle.Italic);
        }

        private void EventAttach()
        {
            DataGridView.CellValueChanged += (s, e) =>
            {
                DataGridViewRow targetRow = DataGridView.Rows[e.RowIndex];
                RowModified(targetRow);

                if (new Utility().CellToString(targetRow.Cells["Modified"]) == "新規") return; // Modifiedが新規の場合は変更にしない
                targetRow.Cells["Modified"].Value = "変更";
            };

            SaveButton.Click += (s, e) =>
            {
                List<string> listSql = new List<string>();

                bool existsNewRow = false;

                for (int r = 0; r < DataGridView.Rows.Count; r++)
                {
                    var u = new Utility();
                    if (u.CellToString(DataGridView.Rows[r].Cells["Modified"]) == "新規")
                    {
                        existsNewRow = true;
                        string rowName = u.QuoteReplace(u.CellToString(DataGridView.Rows[r].Cells["名称"]));
                        string startDate = u.QuoteReplace(u.CellToString(DataGridView.Rows[r].Cells["開始日"]));
                        string endDate = u.QuoteReplace(u.CellToString(DataGridView.Rows[r].Cells["終了日"]));

                        if (startDate == "" && endDate != "")
                        {
                            startDate = endDate;
                        }
                        else if (startDate != "" && endDate == "")
                        {
                            endDate = startDate;
                        }

                        string sql = "insert into 作業一覧(担当者名,外注一覧ID,名称,開始日,終了日) values " + 
                        $"('{_SalesStaff}','{_SalesID}','{rowName}','{startDate}','{endDate}')";

                        listSql.Add(sql);
                    }
                    else if (u.CellToString(DataGridView.Rows[r].Cells["Modified"]) == "変更")
                    {
                        string id = u.QuoteReplace(u.CellToString(DataGridView.Rows[r].Cells["ID"]));
                        string rowName = u.QuoteReplace(u.CellToString(DataGridView.Rows[r].Cells["名称"]));
                        string startDate = u.QuoteReplace(u.CellToString(DataGridView.Rows[r].Cells["開始日"]));
                        string endDate = u.QuoteReplace(u.CellToString(DataGridView.Rows[r].Cells["終了日"]));

                        if (startDate == "" && endDate != "")
                        {
                            startDate = endDate;
                        }
                        else if (startDate != "" && endDate == "")
                        {
                            endDate = startDate;
                        }

                        string sql = "update 作業一覧 set " +
                        $"名称 = '{rowName}', 開始日 = '{startDate}', 終了日 = '{endDate}' where ID = " + id;

                        listSql.Add(sql);
                    }
                }
                new Query().ExecuteNonQuery(listSql);
                DataLoad();

                if (existsNewRow == true && DataGridView.Rows.Count > 0)
                {
                    DataGridView.FirstDisplayedScrollingRowIndex = DataGridView.Rows.Count - 1;
                }
            };

            NewRowButton.Click += (s, e) =>
            {                
                var u = new Utility();
                bool existsNewRow = DataGridView.Rows.OfType<DataGridViewRow>().Any(x => u.CellToString(x.Cells["Modified"]) == "新規");

                if (existsNewRow)
                {
                    var currentModels = (BindingList<ScheduleModel>)DataGridView.DataSource;
                    currentModels.Add(new ScheduleModel() { Modified = "新規" });
                }
                else
                {
                    var newModels = new BindingList<ScheduleModel>();
                    newModels.Add(new ScheduleModel() { Modified = "新規" });
                    DataGridView.DataSource = newModels;
                }
            };

            DeleteRowButton.Click += (s, e) =>
            {
                if (DataGridView.SelectedRows.Count <= 0) return;

                string id = new Utility().CellToString(DataGridView.CurrentRow.Cells["ID"]);
                if (id == "") return;

                DialogResult yesNo = MessageBox.Show("削除しますか？", "", MessageBoxButtons.YesNo);
                if (yesNo == DialogResult.No) return;

                var listSql = new List<string>();
                listSql.Add("delete from 作業一覧 where ID = " + id);

                new Query().ExecuteNonQuery(listSql);

                MessageBox.Show("削除しました。");
                DataLoad();
            };
        }
    }

    public class ScheduleModel
    {
        private string id;
        public object ID
        {
            set { id = Convert.ToString(value); }
            get { return id; }
        }

        private string modified;
        public object Modified
        {
            set { modified = Convert.ToString(value); }
            get { return modified; }
        }

        private string parentID;
        public object 外注一覧ID
        {
            set { parentID = Convert.ToString(value); }
            get { return parentID; }
        }

        private string staffName;
        public object 担当者名
        {
            set { staffName = Convert.ToString(value); }
            get { return staffName; }
        }

        private string rowName;
        public object 名称
        {
            set { rowName = Convert.ToString(value); }
            get { return rowName; }
        }

        private string startDate;
        public object 開始日
        {
            set
            {
                try
                {
                    var dt = DateTime.Parse(Convert.ToString(value));
                    startDate = dt.ToString("yyyy/MM/dd");
                }
                catch { startDate = ""; }
            }
            get { return startDate; }
        }

        private string endDate;
        public object 終了日
        {
            set
            {
                try
                {
                    var dt = DateTime.Parse(Convert.ToString(value));
                    endDate = dt.ToString("yyyy/MM/dd");
                }
                catch { endDate = ""; }
            }
            get { return endDate; }
        }

    }

}

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

using System.Windows.Forms;

namespace ProductionManagement

{

public partial class ScheduleForm : Form

{

string _SalesID;

string _SalesStaff;

public ScheduleForm(string i, string n)

{

InitializeComponent();

_SalesID = i;

_SalesStaff = n;

EventAttach();

DataLoad();

SetViewStyle();

}

private void SetViewStyle()

{

DataGridView.Columns["ID"].Visible = false;

DataGridView.Columns["Modified"].Visible = false;

DataGridView.Columns["外注一覧ID"].Visible = false;

DataGridView.Columns["担当者名"].Visible = false;

DataGridView.Columns["名称"].Width = 190;

DataGridView.Columns["開始日"].Width = 120;

DataGridView.Columns["終了日"].Width = 120;

DataGridView.RowHeadersWidth = 50;

DataGridView.SelectionMode = DataGridViewSelectionMode.FullRowSelect;

DataGridView.ColumnHeadersDefaultCellStyle.WrapMode = DataGridViewTriState.False;

DataGridView.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing;

DataGridView.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.None;

DataGridView.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.None;

DataGridView.Font = new Font("メイリオ", 10);

DataGridView.RowTemplate.Height = 22;

DataGridView.AllowUserToAddRows = false;

DataGridView.MultiSelect = false;

typeof(DataGridView).

GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance | System.Reflection.BindingFlags.NonPublic).

SetValue(DataGridView, true, null);

}

private void DataLoad()

{

BindingList<ScheduleModel> models = new BindingList<ScheduleModel>();

var currentScrollRowIndex = DataGridView.FirstDisplayedScrollingRowIndex;

Query q = new Query()

{

QueryString = $"select * from 作業一覧 where 担当者名 = '{_SalesStaff}'"

};

DataTable dt = q.ExecuteQuery();

for (int r = 0; r < dt.Rows.Count; r++)

{

models.Add(new ScheduleModel()

{

ID = dt.Rows[r]["ID"],

外注一覧ID = dt.Rows[r]["外注一覧ID"],

担当者名 = dt.Rows[r]["担当者名"],

名称 = dt.Rows[r]["名称"],

開始日 = dt.Rows[r]["開始日"],

終了日 = dt.Rows[r]["終了日"]

});

}

DataGridView.DataSource = models;

if (currentScrollRowIndex > 0 && DataGridView.Rows.Count > 0 &&

DataGridView.Rows.Count >= currentScrollRowIndex)

{

DataGridView.FirstDisplayedScrollingRowIndex = currentScrollRowIndex;

}

private void RowModified(DataGridViewRow targetRow)

{

targetRow.HeaderCell.Value = "*";

targetRow.DefaultCellStyle.ForeColor = Color.Blue;

targetRow.DefaultCellStyle.Font = new Font("メイリオ", 10, FontStyle.Italic);

}

private void EventAttach()

{

DataGridView.CellValueChanged += (s, e) =>

{

DataGridViewRow targetRow = DataGridView.Rows[e.RowIndex];

RowModified(targetRow);

if (new Utility().CellToString(targetRow.Cells["Modified"]) == "新規") return; // Modifiedが新規の場合は変更にしない

targetRow.Cells["Modified"].Value = "変更";

};

SaveButton.Click += (s, e) =>

{

List<string> listSql = new List<string>();

bool existsNewRow = false;

for (int r = 0; r < DataGridView.Rows.Count; r++)

{

var u = new Utility();

if (u.CellToString(DataGridView.Rows[r].Cells["Modified"]) == "新規")

{

existsNewRow = true;

string rowName = u.QuoteReplace(u.CellToString(DataGridView.Rows[r].Cells["名称"]));

string startDate = u.QuoteReplace(u.CellToString(DataGridView.Rows[r].Cells["開始日"]));

string endDate = u.QuoteReplace(u.CellToString(DataGridView.Rows[r].Cells["終了日"]));

if (startDate == "" && endDate != "")

{

startDate = endDate;

}

else if (startDate != "" && endDate == "")

{

endDate = startDate;

}

string sql = "insert into 作業一覧(担当者名,外注一覧ID,名称,開始日,終了日) values " +

$"('{_SalesStaff}','{_SalesID}','{rowName}','{startDate}','{endDate}')";

listSql.Add(sql);

}

else if (u.CellToString(DataGridView.Rows[r].Cells["Modified"]) == "変更")

{

string id = u.QuoteReplace(u.CellToString(DataGridView.Rows[r].Cells["ID"]));

string rowName = u.QuoteReplace(u.CellToString(DataGridView.Rows[r].Cells["名称"]));

string startDate = u.QuoteReplace(u.CellToString(DataGridView.Rows[r].Cells["開始日"]));

string endDate = u.QuoteReplace(u.CellToString(DataGridView.Rows[r].Cells["終了日"]));

if (startDate == "" && endDate != "")

{

startDate = endDate;

}

else if (startDate != "" && endDate == "")

{

endDate = startDate;

}

string sql = "update 作業一覧 set " +

$"名称 = '{rowName}', 開始日 = '{startDate}', 終了日 = '{endDate}' where ID = " + id;

listSql.Add(sql);

}

new Query().ExecuteNonQuery(listSql);

DataLoad();

if (existsNewRow == true && DataGridView.Rows.Count > 0)

{

DataGridView.FirstDisplayedScrollingRowIndex = DataGridView.Rows.Count - 1;

}

};

NewRowButton.Click += (s, e) =>

{

var u = new Utility();

bool existsNewRow = DataGridView.Rows.OfType<DataGridViewRow>().Any(x => u.CellToString(x.Cells["Modified"]) == "新規");

if (existsNewRow)

{

var currentModels = (BindingList<ScheduleModel>)DataGridView.DataSource;

currentModels.Add(new ScheduleModel() { Modified = "新規" });

}

else

{

var newModels = new BindingList<ScheduleModel>();

newModels.Add(new ScheduleModel() { Modified = "新規" });

DataGridView.DataSource = newModels;

}

};

DeleteRowButton.Click += (s, e) =>

{

if (DataGridView.SelectedRows.Count <= 0) return;

string id = new Utility().CellToString(DataGridView.CurrentRow.Cells["ID"]);

if (id == "") return;

DialogResult yesNo = MessageBox.Show("削除しますか？", "", MessageBoxButtons.YesNo);

if (yesNo == DialogResult.No) return;

var listSql = new List<string>();

listSql.Add("delete from 作業一覧 where ID = " + id);

new Query().ExecuteNonQuery(listSql);

MessageBox.Show("削除しました。");

DataLoad();

};

}

public class ScheduleModel

{

private string id;

public object ID

{

set { id = Convert.ToString(value); }

get { return id; }

}

private string modified;

public object Modified

{

set { modified = Convert.ToString(value); }

get { return modified; }

}

private string parentID;

public object 外注一覧ID

{

set { parentID = Convert.ToString(value); }

get { return parentID; }

}

private string staffName;

public object 担当者名

{

set { staffName = Convert.ToString(value); }

get { return staffName; }

}

private string rowName;

public object 名称

{

set { rowName = Convert.ToString(value); }

get { return rowName; }

}

private string startDate;

public object 開始日

{

set

{

try

{

var dt = DateTime.Parse(Convert.ToString(value));

startDate = dt.ToString("yyyy/MM/dd");

}

catch { startDate = ""; }

}

get { return startDate; }

}

private string endDate;

public object 終了日

{

set

{

try

{

var dt = DateTime.Parse(Convert.ToString(value));

endDate = dt.ToString("yyyy/MM/dd");

}

catch { endDate = ""; }

}

get { return endDate; }

}

2020-01-302020-05-05

仕事に必要な文章について

小論文のような文章ではなく、メールや簡単な資料での文章についてメモ。

・パラグラフについて

パラグラフの先頭は字下げしない。
パラグラフごとに空白行を入れる。
パラグラフのサイズは小さくする。数センテンスで1つ。
パラグラフは1つのトピックセンテンスといくつかのサポートセンテンスで作られる。

・センテンスについて

センテンスは短くする。無駄な修飾はしない。

トピックセンテンスはいいたいこと。
トピックセンテンスを先頭にする。

サポートセンテンスはトピックセンテンスの補強。
サポートセンテンスの基本の３種類。

言い換える。　つまり～。
具体例を示す。　例えば～。
予測する。　～だろう。

トピックセンテンスが意見ならサポートセンテンスで理由や実体験に、トピックセンテンスが事実ならサポートセンテンスを意見にしてもいい。

・プロット(パラグラフ構造)について

３段階の構成にする。

何か聞かれている場合
①聞かれたことに対する回答を示す。
②根拠や理由を示す。
③どうすればいいかを示す。

③は立場や知識量によって違う。提案の場合もあれば指示のような場合もある。

提案の場合
①起こっている事実を示す。
②分析を示す。
③どうしたいかを示す。

②か③に理由を入れる。

・実際の書き方

思いついたこと書きたいことを忘れないうちにどんどん書いていって、最後に並べ替える。書きたいことを箇条書きにするのではなく、センテンスとして使える形にまでしておくこと。

・結論

文章は伝わりやすく。内容は空気を読んで必要ならぼかしたりする。

2020-01-262020-01-27

VBA 表からカレンダー形式に変換

前回はJavascript/C#版で今回はVBA版

○○表という感じの帳票を作る場合、行が単位で列が明細というのが一般的。

明細の中に納期や出荷日など日付に関わる情報が入っていることも多く、そこで問題になるのが、この日付情報同士の関係性がパッと把握できないこと。

日付情報がおまけの場合はいいけど、日付情報が重要な場合は把握しやすいフォーマットに変換してみようということで、表からカレンダーに変換する機能を作成してみた。

ループが２重になるので、行数が多い場合は工夫したほうがいいかもしれない。行数が少なければ問題ないと思う。

Sub CreateCalendar()

y = 2020
m = 1

For Each w In Sheets
  If w.Name = "カレンダ" Then
    w.Delete
    Exit For
  End If
Next

Set w = Sheets.Add
w.Name = "カレンダ"

' value

w.Cells(1, 1).Value = y & "年" & m & "月"

w.Cells(2, 1).Value = "日"
w.Cells(2, 2).Value = "月"
w.Cells(2, 3).Value = "火"
w.Cells(2, 4).Value = "水"
w.Cells(2, 5).Value = "木"
w.Cells(2, 6).Value = "金"
w.Cells(2, 7).Value = "土"

startWeekDay = Weekday(DateSerial(y, m, 1)) ' 日1, 月2, 火3, 水4, 木5, 金6, 土7

tmp = DateAdd("m", 1, DateSerial(y, m, 1))
endDay = Day(DateAdd("d", -1, tmp))

counter = 1

For r = 3 To 13 Step 2

  For c = 1 To 7
  
    If (r = 3 And c < startWeekDay) Or (counter > endDay) Then
    
    Else
    
      w.Cells(r, c).Value = counter
      w.Cells(r + 1, c).Value = GetValue(y, m, counter)
      
      counter = counter + 1
    
    End If
    
  Next

Next

' size

w.Columns("A:G").ColumnWidth = 17

w.Rows(1).RowHeight = 24

For Each r In Split("2,3,5,7,9,11,13", ",")
  w.Rows(r).RowHeight = 17
Next

For Each r In Split("4,6,8,10,12,14", ",")
  w.Rows(r).RowHeight = 69
Next

' position

w.Range("A2:G2").HorizontalAlignment = xlCenter

For Each r In Split("3,5,7,9,11,13", ",")
  w.Rows(r).HorizontalAlignment = xlLeft
Next

' border

For Each r In Split("2,3,5,7,9,11,13,15", ",")
  w.Range(w.Cells(CInt(r), 1), w.Cells(CInt(r), 7)).Borders(xlEdgeTop).LineStyle = xlContinuous
Next

For Each c In Split("1,2,3,4,5,6,7,8", ",")
  w.Range(w.Cells(2, CInt(c)), w.Cells(14, CInt(c))).Borders(xlEdgeLeft).LineStyle = xlContinuous
Next

End Sub

Function GetValue(y, m, d)

sheetName = "Sheet1"
matchColumn = 3
valueColumn = 2
startRow = 2
endRow = 11

For r = startRow To endRow

  If DateSerial(y, m, d) = Sheets(sheetName).Cells(r, matchColumn).Value Then
    GetValue = Sheets(sheetName).Cells(r, valueColumn).Value
    Exit Function
  End If

Next

End Function

100

101

102

103

104

105

Sub CreateCalendar()

y = 2020

m = 1

For Each w In Sheets

If w.Name = "カレンダ" Then

w.Delete

Exit For

End If

Set w = Sheets.Add

w.Name = "カレンダ"

' value

w.Cells(1, 1).Value = y & "年" & m & "月"

w.Cells(2, 1).Value = "日"

w.Cells(2, 2).Value = "月"

w.Cells(2, 3).Value = "火"

w.Cells(2, 4).Value = "水"

w.Cells(2, 5).Value = "木"

w.Cells(2, 6).Value = "金"

w.Cells(2, 7).Value = "土"

startWeekDay = Weekday(DateSerial(y, m, 1)) ' 日1, 月2, 火3, 水4, 木5, 金6, 土7

tmp = DateAdd("m", 1, DateSerial(y, m, 1))

endDay = Day(DateAdd("d", -1, tmp))

counter = 1

For r = 3 To 13 Step 2

For c = 1 To 7

If (r = 3 And c < startWeekDay) Or (counter > endDay) Then

Else

w.Cells(r, c).Value = counter

w.Cells(r + 1, c).Value = GetValue(y, m, counter)

counter = counter + 1

End If

' size

w.Columns("A:G").ColumnWidth = 17

w.Rows(1).RowHeight = 24

For Each r In Split("2,3,5,7,9,11,13", ",")

w.Rows(r).RowHeight = 17

For Each r In Split("4,6,8,10,12,14", ",")

w.Rows(r).RowHeight = 69

' position

w.Range("A2:G2").HorizontalAlignment = xlCenter

For Each r In Split("3,5,7,9,11,13", ",")

w.Rows(r).HorizontalAlignment = xlLeft

' border

For Each r In Split("2,3,5,7,9,11,13,15", ",")

w.Range(w.Cells(CInt(r), 1), w.Cells(CInt(r), 7)).Borders(xlEdgeTop).LineStyle = xlContinuous

For Each c In Split("1,2,3,4,5,6,7,8", ",")

w.Range(w.Cells(2, CInt(c)), w.Cells(14, CInt(c))).Borders(xlEdgeLeft).LineStyle = xlContinuous

End Sub

Function GetValue(y, m, d)

sheetName = "Sheet1"

matchColumn = 3

valueColumn = 2

startRow = 2

endRow = 11

For r = startRow To endRow

If DateSerial(y, m, d) = Sheets(sheetName).Cells(r, matchColumn).Value Then

GetValue = Sheets(sheetName).Cells(r, valueColumn).Value

Exit Function

End If

End Function

2020-01-242020-01-27

Javascript/C# 手作りカレンダー

一般的にカレンダーを自作する必要性はないと思うけど、作る必要がでてきたのでとりあえずメモ。

<!doctype html>
<html lang="ja">
<head>
<meta charset="utf-8" />
</head>
<body>
<script>

let year = '2020';
let month = '1';

let html = '<table>';

html += '<tr>';
let week = ['日', '月', '火', '水', '木', '金', '土'];
for (let col = 0; col < week.length; col++) {
    html += '<td>' + week[col] + '</td>';
}
html += '</tr>';

let startWeekDay = new Date(year, month - 1, 1).getDay();
let endDay = new Date(year, month,  0).getDate();
let counter = 1;

// startWeekDay: 日0, 月1, 火2, 水3, 木4, 金5, 土6
// endDay: 最終日
// counter: 書込日付

// 縦6(0～5), 横7(0～6)のループ

for (let row = 0; row < 6; row++) {

    html += '<tr>';
    for (let col = 0; col < 7; col++) {

        if ((row == 0 && col < startWeekDay) || (counter > endDay)) {

            // 第1週と最終週の判定
            // 第1週: colが増えていき、startWeekDay以上の場合は日付が書き込まれる
            // 最終週: counterが増えていき、endDay以上になると空白

            html += '<td></td>';
        } else {
            html += '<td>' + counter + '</td>';
            counter++;
        }
    }
    html += '</tr>';
}
html += '</table>';

document.body.innerHTML = html;

</script>
</body>
</html>

<!doctype html>

<head>

</head>

<body>

let year = '2020';

let month = '1';

let html = '<table>';

html += '<tr>';

let week = ['日', '月', '火', '水', '木', '金', '土'];

for (let col = 0; col < week.length; col++) {

html += '<td>' + week[col] + '</td>';

}

html += '</tr>';

let startWeekDay = new Date(year, month - 1, 1).getDay();

let endDay = new Date(year, month, 0).getDate();

let counter = 1;

// startWeekDay: 日0, 月1, 火2, 水3, 木4, 金5, 土6

// endDay: 最終日

// counter: 書込日付

// 縦6(0～5), 横7(0～6)のループ

for (let row = 0; row < 6; row++) {

html += '<tr>';

for (let col = 0; col < 7; col++) {

if ((row == 0 && col < startWeekDay) || (counter > endDay)) {

// 第1週と最終週の判定

// 第1週: colが増えていき、startWeekDay以上の場合は日付が書き込まれる

// 最終週: counterが増えていき、endDay以上になると空白

html += '<td></td>';

} else {

html += '<td>' + counter + '</td>';

counter++;

}

html += '</tr>';

}

html += '</table>';

document.body.innerHTML = html;

</script>

</body>

</html>

C#(DataGridView)版

using System;
using System.Collections.Generic;
using System.Windows.Forms;

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

            dataGridView1.AllowUserToAddRows = false;
            dataGridView1.DefaultCellStyle.WrapMode = DataGridViewTriState.True;

            List<DataGridViewTextBoxColumn> columns = new List<DataGridViewTextBoxColumn>();

            foreach(var s in new string[] { "日", "月", "火", "水", "木", "金", "土" })
            {
                columns.Add(new DataGridViewTextBoxColumn()
                {
                    HeaderText = s,
                    Width = 120,
                    SortMode = DataGridViewColumnSortMode.NotSortable
                });
            }

            dataGridView1.Columns.AddRange(columns.ToArray());

            int y = 2019;
            int m = 12;

            int startWeekDay = (int)new DateTime(y, m, 1).DayOfWeek; // 日=0, 月=1, 火=2, 水=3, 木=4, 金=5, 土=6
            int endDay = new DateTime(y, m, 1).AddMonths(1).AddDays(-1).Day;
            int counter = 1;

            for (int r = 0; r < 12; r++)
            {
                dataGridView1.Rows.Add();

                if (r % 2 == 0)
                {
                    dataGridView1.Rows[r].Height = 18;
                }
                else
                {
                    dataGridView1.Rows[r].Height = 80;
                }
            }

            for (int r = 0; r < 12; r = r + 2)
            {
                for (int c = 0; c < 7; c++)
                {
                    if ((r == 0 && c < startWeekDay) || counter > endDay)
                    {
                        dataGridView1.Rows[r].Cells[c].Value = "";
                    }
                    else
                    {
                        dataGridView1.Rows[r].Cells[c].Value = counter.ToString();
                        dataGridView1.Rows[r + 1].Cells[c].Value = "";

                        counter++;
                    }
                }
            }
        }
    }
}

using System;

using System.Collections.Generic;

using System.Windows.Forms;

namespace CreateCalendar

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

dataGridView1.AllowUserToAddRows = false;

dataGridView1.DefaultCellStyle.WrapMode = DataGridViewTriState.True;

List<DataGridViewTextBoxColumn> columns = new List<DataGridViewTextBoxColumn>();

foreach(var s in new string[] { "日", "月", "火", "水", "木", "金", "土" })

{

columns.Add(new DataGridViewTextBoxColumn()

{

HeaderText = s,

Width = 120,

SortMode = DataGridViewColumnSortMode.NotSortable

});

}

dataGridView1.Columns.AddRange(columns.ToArray());

int y = 2019;

int m = 12;

int startWeekDay = (int)new DateTime(y, m, 1).DayOfWeek; // 日=0, 月=1, 火=2, 水=3, 木=4, 金=5, 土=6

int endDay = new DateTime(y, m, 1).AddMonths(1).AddDays(-1).Day;

int counter = 1;

for (int r = 0; r < 12; r++)

{

dataGridView1.Rows.Add();

if (r % 2 == 0)

{

dataGridView1.Rows[r].Height = 18;

}

else

{

dataGridView1.Rows[r].Height = 80;

}

for (int r = 0; r < 12; r = r + 2)

{

for (int c = 0; c < 7; c++)

{

if ((r == 0 && c < startWeekDay) || counter > endDay)

{

dataGridView1.Rows[r].Cells[c].Value = "";

}

else

{

dataGridView1.Rows[r].Cells[c].Value = counter.ToString();

dataGridView1.Rows[r + 1].Cells[c].Value = "";

counter++;

}

2020-01-232020-05-06

業務支援ソフトを作成するときに考えること

今回は業務支援ソフトを作成するときに考えていることを書いてみたいと思います。前提として、作成するのは本業プログラマではない私１人で、日数は数日～数週間程度かける規模。直接の利用者は数人程度としています。

・何を解決したいのか明確にする。
できれば１～２つ、できるだけ少なくする。とりあえずソフトを作れば色々よくなると考えている人が多いので注意する。

・解決したい内容を大きく２つに分類しながら考える。
１．管理精度を上げること。２．楽になること、という２つに分類しながら考える。社内環境にもよるだろうけど、個人的にはこの２つの違いは結構大きくて、かなり進め方が違ってくる。

・管理精度を上げることについて。
例えば、現在の予測精度や集計誤差などの精度を向上したい。あるいは、今までにはない集計や指標を導入したいなど。管理精度を上げることは管理者のためという場合が多く、作業者(ソフト利用者)は興味ないことが多いので、話をするときに作業者の要望を一緒に聞いても(無駄とは言わないが)視点が違っていることが多い。

・楽になることについて。
作業者が望むことはだいたいこれ。作業の手間を減らするなど、あらゆる面倒くさいと思う部分を減らしていく。

・管理精度を上げること、楽になることについて、当然どちら一つだけではなく両方に効果がある場合も多い。例えば、複数で管理しているような情報を一元化するば、管理精度も上がるし楽にもなる。

・作業者は具体的な方法が分からないことも多いので、開発するときにこうすれば楽だろうと想像する。

・素早く試作を作ってフィードバックもらう。
素早く試作(特に重要なのがUI)を作ってフィードバックをもとに修正という流れで作っていく。ソフトを利用する人はUIが重要で見えない部分に興味はない。

・正しい業務手順に軌道修正していく。
正しい業務手順に軌道修正していくか、既存の社内フローを踏襲するか悩むときは結構あるが、将来的に効果がありそうなら、少しずつでも正しい業務手順に軌道修正していく。

＊＊＊

本末転倒な話ではあるけど、自分が作る程度(マクロレベル)の業務支援ソフトの場合、利用者側での業務改善の方がはるかに効果的なことが多い。誰も見ていない指標を計算するのに時間をかけていたり、手間のかかる承認フローだったり、簡単に改善できるポイントはたくさんある。

例えば、ある資料について作成に時間がかかっているから、システムで自動化という話はありがちだけど、そもそもその資料を作らないという話はまず出てこない。作らなくても業務上困らないのに、誰か１人でも欲しいなら止めれない。こういう状況はいたるところで見つけることができる。

結局、情報共有とか意思決定の高速化というとみんな喜ぶけど、価値のない情報をたくさん共有したり、思いつきと変わらない意思決定を高速にできるようにしても何も変わらない。

2020-01-212020-01-22

VBA 講座ワークシート関数を挿入

以前書いたエクセルVBA講座の続きです。

VBA 講座

今回は少し実用的なものとしてループでワークシート関数を挿入する方法をお伝えしたいと思います。

ワークシート関数だからといって挿入自体に特別な方法は必要ありません。そのまま文字として入力すれば大丈夫です。

Sheets("Sheet1").Cells(1, 1).Value = "=SUM(A2:A3)"

1	Sheets("Sheet1").Cells(1, 1).Value = "=SUM(A2:A3)"

これを実行すると、Sheet1というシートのA1セルにSUM関数が入ります。

ではもう少し便利にするためにForループのカウンター変数を利用してみます。

For r = 1 To 4
Sheets("Sheet1").Cells(r, 1).Value = "=SUM(B" & r & ":C" & r & ")"
Next

For r = 1 To 4

Sheets("Sheet1").Cells(r, 1).Value = "=SUM(B" & r & ":C" & r & ")"

細かく見ていきます。

先ずForループの中の処理は4回実行されます。そのときrというカウンタ変数は1,2,3,4というように変化していきます。

rの変化と指定しているセルの位置を考えてみると、
rが1のときCells(1,2)
rが2のときCells(2,2)
rが3のときCells(3,2)
rが4のときCells(4,2)
となります。Cellsの中身は行,列ですので、A1,A2,A3,A4セルを対象にして挿入していることが分かります。

“=SUM(B” & r & “:C” & r & “)”の部分について、文字としてそのまま利用したい部分はダブルクォーテーションで囲い、変数の中身を利用したい部分はダブルクォーテーションで囲わずそのまま記入します。それらを＆記号(左右に半角スペース必須)でつなぎます。

＊＊＊

この部分は分かりづらいのもう少し細かく解説すると、セルの中に書き込める値は２種類(実際はもっとありますが現時点では)あると考えてください。１つはダブルクォーテーションで囲った文字、もう１つは変数で、ダブルクォーテーションで囲った文字はそのまま書き込まれ、変数は中身が利用されます。

そしてその２種類は＆記号(左右に半角スペース必須)で、順番や数に制限なく自由につなぐことができます。

v1 = "hello"
v2 = "world"

MsgBox v1 & " " & v2

v1 = "hello"

v2 = "world"

MsgBox v1 & " " & v2

v1 = "hello"
v2 = " "
v3 = "world"

MsgBox v1 & v2 & v3

v1 = "hello"

v2 = " "

v3 = "world"

MsgBox v1 & v2 & v3

どちらも実行するとhello worldと表示されます。

＊＊＊

話を戻します。

具体的にrの変化を見ていくと、
rが1のとき、”=SUM(B1:C1)”
rが2のとき、”=SUM(B2:C2)”
rが3のとき、”=SUM(B3:C3)”
rが4のとき、”=SUM(B4:C4)”
となります。

結果として
rが1のとき、A1セルに”=SUM(B1:C1)”
rが2のとき、A2セルに”=SUM(B2:C2)”
rが3のとき、A3セルに”=SUM(B3:C3)”
rが4のとき、A4セルに”=SUM(B4:C4)”
が入るということになります。

Forループのカウンタ変数をループの中で利用することはよくあります。むしろループの中で固定の文字列を挿入することの方が少ないぐらいです。

さらにカウンタ変数を利用したワークシート関数を挿入する方法が使えるようになると、かなり複雑なことができるようになります。