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

■No86586 (shu さん) に返信

お世話になります。

教えて頂いたようにしたとは思うのですが・・、

今回は棒グラフの棒もタイトルの表示のあるとこにしか立たなくなりました。

それと、例えばDim intr = 30 での場合の表示はタイトルと棒グラフの棒ともに
08:30 空白　空白　10:20 10:50 11:20 11:50 12:20 12:50 13:20 12:50 となり、
当初ように 8:10 8:30 空白 空白 10:20 10:30 11:00 11:30 12:00 12:30 13:00 13:30 とはなりませんでした。

また、同じく Dim intr = 60 での場合はタイトルと棒グラフの棒ともに
空白　空白　10:20 11:20 12:20 13:20 となり
8:10 空白 空白 10:20 11:00 12:00 13:00 とはなりませんでした。

タイトルの表示時間は時計での区切りの良い時間です。
15分ですと00分　15分　30分　45分　00分・・、　30分ですと　00分　30分　00分・・　のようにです。

VB.NETからC#に変換作業をしている初心者です。

public int Name(string ss2, string ss1)

この場合、stringである引数ss2とss1をint型で返したいのですが、どうすれば良いでしょうか。

■No89782 (Rty1143 さん) に返信
> C# windows form application で button をフォーム上に配置しておりますが、
> このbuttonの端をマウスで摘んでドラッグでリサイズする方法を調べています。
> 分かる方いませんか？

これでどうでしょう。Load イベントなどで

　private void Form1_Load(object sender, EventArgs e)
　{
　　Resizer.Attach(button1);
　　Resizer.Attach(button2);
　　Resizer.Attach(button3);
　}

のように呼ぶことで、ドラッガブルなコントロールになります。

//-----
using System;
using System.Windows.Forms;
using System.Runtime.InteropServices;
using System.Drawing;

public static class Resizer
{
    public static void Attach(Control target)
    {
        Attach(target, 5);
    }

    public static void Attach(Control target, int bandWidth)
    {
        if (bandWidth <= 0) { throw new ArgumentOutOfRangeException(nameof(bandWidth), bandWidth, "1以上の値を指定してください。"); }
        target.MouseDown += (sender, e) =>
        {
            int cmd = GetResizeCommand(target.Size, e.Location, bandWidth);
            if (cmd != 0)
            {
                SetCapture(target.Handle);
                ReleaseCapture();
                SendMessage(target.Handle, WM_SYSCOMMAND, SC_SIZE | cmd, 0);
            }
        };
        target.MouseMove += (sender, e) =>
        {
            switch (GetResizeCommand(target.Size, e.Location, bandWidth))
            {
                case 1:
                case 2:
                    target.Cursor = Cursors.SizeWE;
                    break;
                case 3:
                case 6:
                    target.Cursor = Cursors.SizeNS;
                    break;
                case 4:
                case 8:
                    target.Cursor = Cursors.SizeNWSE;
                    break;
                case 5:
                case 7:
                    target.Cursor = Cursors.SizeNESW;
                    break;
                default:
                    target.Cursor = Cursors.Default;
                    break;
            }
        };
    }

    private static int GetResizeCommand(Size size, Point point, int bandWidth)
    {
        int WMSZ = 0;
        if (point.X < bandWidth) { WMSZ += 1; }
        if (point.Y < bandWidth) { WMSZ += 3; }
        if (size.Width - bandWidth < point.X) { WMSZ += 2; }
        if (size.Height - bandWidth < point.Y) { WMSZ += 6; }
        return WMSZ;
    }

    #region P/Invoke
    [DllImport("user32")]
    private static extern int SendMessage(IntPtr hWnd, int uMsg, int wParam, int lParam);
    [DllImport("user32")]
    private static extern bool SetCapture(IntPtr hWnd);
    [DllImport("user32")]
    private static extern bool ReleaseCapture();
    private const int WM_SYSCOMMAND = 0x0112;
    private const int SC_MOVE = 0xF010;
    private const int SC_SIZE = 0xF000;
    #endregion
}

//-----

なお、上記のサンプル最低限のものなので、たとえば
　・リサイズ可能な最小・最大サイズを設定できない
　・同じコントロールに何度もアタッチできてしまう
　・解除処理（デタッチ）を実装していない
といった実装課題があります。

エクセルファイルを作成して表示する方法について

フォームにあるボタンのクリック時イベントでエクセルファイルを作成して、
それを開いて表示したいと思っています。

エクセルファイルの作成はできたのですが、
１．Interop.Excelで作成
２．ClosedXMLで作成
それぞれわからないことがあります。

１．Interop.Excelで作成
インストールされているエクセルのバージョンがExcel2007、2010、2019とばらばらなことと、
プロセスが残りやすいのであまり使用しない方がいいとネット情報にありました。
確かにタスクマネージャーのプロセスに「EXCEL」が残っていたことがありました。
今のコード上で解放の処理はしているのですが、どこか修正すべき点はありまか？

２．ClosedXMLで作成
ClosedXMLでエクセルを作成して保存はできるのですが、今回は保存までは必要なく
エクセルにデータを入力して、エクセルを開いた状態のままにしておきたいです。
ClosedXMLで作成したエクセルを開いたままにする方法はありますか？

	using ClosedXML.Excel;
	using Excel = Microsoft.Office.Interop.Excel;
	using System.Runtime.InteropServices;

        private Microsoft.Office.Interop.Excel.Application xls = null;     // Excel自体 
        private Microsoft.Office.Interop.Excel.Workbook book = null;       // ブック 
        private Microsoft.Office.Interop.Excel.Worksheet sheet = null;     // シート

        public void ExcelVisibleToggle(Microsoft.Office.Interop.Excel.Application xls, bool setting)
        {
            if (xls.Visible == !setting)
            {
                xls.Visible = setting;
            }
        }

        // エクセル使用
        private void btnExcel_Click(object sender, EventArgs e)
        {

            this.xls = new Microsoft.Office.Interop.Excel.Application();
            // Excelを非表示:レスポンス向上
            ExcelVisibleToggle(xls, false);

            this.book = xls.Workbooks.Add();

            this.sheet = (Microsoft.Office.Interop.Excel.Worksheet)this.book.Sheets["sheet1"];

            // エクセルファイルに項目名を表示
            Excel.Range w_rgn = this.sheet.Cells;
            try
            {
                w_rgn[1, 1].value = "項目名1";
                w_rgn[1, 2].value = "項目名2";
                w_rgn[1, 3].value = "項目名3";
                w_rgn[1, 4].value = "項目名4";
                w_rgn[1, 5].value = "項目名5";

                int cell_row = 2;
                // DataGridViewのソースリストをループ
                foreach (dgvKoumokuLst d in DgvKoumokuLst)
                {
                    w_rgn[cell_row, 1].value = d.koumoku1;
                    w_rgn[cell_row, 1].EntireColumn.AutoFit();
                    w_rgn[cell_row, 2].value = d.koumoku2;
                    w_rgn[cell_row, 2].EntireColumn.AutoFit();
                    w_rgn[cell_row, 3].value = d.koumoku3;
                    w_rgn[cell_row, 3].EntireColumn.AutoFit();
                    w_rgn[cell_row, 4].value = d.koumoku4;
                    w_rgn[cell_row, 4].EntireColumn.AutoFit();
                    w_rgn[cell_row, 5].value = d.koumoku5;
                    w_rgn[cell_row, 5].EntireColumn.AutoFit();
                    cell_row++;

                }
            }
            finally
            {
                // Excelのオブジェクト開放する
                Marshal.ReleaseComObject(w_rgn);
                w_rgn = null;
            }

            // シートを選択
            ExcelVisibleToggle(xls, true);      // Excel表示

            // Sheet解放
            Marshal.ReleaseComObject(sheet);
            // Book解放
            //xlBook.Close();
            Marshal.ReleaseComObject(book);

            // Excelアプリケーションを解放
            //xlApp.Quit();
            Marshal.ReleaseComObject(xls);

        }


        // ClosedXML使用
        private void btnClosedXML_Click(object sender, EventArgs e)
        {

            // エクセルオープン
            var workbook = new XLWorkbook();
            var worksheet = workbook.Worksheets.Add("CSV一覧");
            worksheet.Cell(1,1).Value = "Hello world";

            // 項目名を表示
            worksheet.Cell(1, 1).Value = "項目1";
            worksheet.Cell(1, 2).Value = "項目2";
            worksheet.Cell(1, 3).Value = "項目3";
            worksheet.Cell(1, 4).Value = "項目4";
            worksheet.Cell(1, 5).Value = "項目5";

            int cell_row = 2;
            // DataGridViewのソースリストをループ
            foreach (dgvKoumokuLst d in DgvKoumokuLst)
            {
                worksheet.Cell(cell_row, 1).Value = d.koumoku1;
                worksheet.Column("A").AdjustToContents();
                worksheet.Cell(cell_row, 2).Value = d.koumoku2;
                worksheet.Column("B").AdjustToContents();
                worksheet.Cell(cell_row, 3).Value = d.koumoku3;
                worksheet.Column("C").AdjustToContents();
                worksheet.Cell(cell_row, 4).Value = d.koumoku4;
                worksheet.Column("D").AdjustToContents();
                worksheet.Cell(cell_row, 5).Value = d.koumoku5;
                worksheet.Column("E").AdjustToContents();

                cell_row++;

            }
            
            // workbook.SaveAs(@"C:\Temp\test1.xlsx");

            // CmnMsgBox.Show("出力完了", 2);

            // 作成したエクセルファイルを開いて表示したい

        }