常連

### 実現したいこと
VB.NET2019で開発したアプリをWindows10で動作させ、印刷処理を行うと、黒で塗りつぶされてしまう（真っ黒なイメージが印刷される）
処理の途中でメッセージボックスを表示させるときれいに印刷できるのだが、メッセージボックスを表示させずに印刷できるようにしたい。

### 前提
VisualBasic.NET2019（.NET Framework4.8）、Windows10環境で動作するように64bitアプリケーションを開発しています。

### 発生している問題・エラーメッセージ
開発したアプリケーションで印刷処理を行うと次の動きをします。
　・メッセージボックスを処理途中で表示させると、きれいに印刷できる
　・メッセージボックスをなくすと、黒で塗りつぶされたようなイメージが印刷される
メッセージボックスなしできれいに印刷したいです。
動きを見るに、処理が並列で動いているのではと思い、タスク化することで改善を試みたのですが、依然真っ黒なイメージが印刷されており、解決に至っておりません。
どなたか、良い解決案をご存じないでしょうか・・・。

### 該当のソースコード
```VB.NET
Module Com_ParkFunc
    Public memoryImage    As Bitmap
    Public PrintDocument1 As System.Drawing.Printing.PrintDocument


    Public Sub PubS_PrintParkTicket(ByVal strSrvNum As String)
        Dim SecName As String
        Dim KeyName As String

        '' 各項目の設定
        With FrmTicket2
            .Label5.Text = "てすと"
            .lblDate.Text = VB6.Format(Now, "yyyy年mm月dd日 hh時nn分")
            .lblSrvNo.Text = "12345678901234"
        End With

        Dim task As Threading.Tasks.Task = New Threading.Tasks.Task(
            Sub()
                Task_image()
            End Sub
            )
        task.Start()
   End Sub


    Private Const SRCCOPY As Integer = &HCC0020
    'フォームのイメージを取得する
    Public Function CaptureControl(ByVal ctrl As Control) As Bitmap
        Dim g As Graphics = ctrl.CreateGraphics()
        Dim img As New Bitmap(ctrl.ClientRectangle.Width,
            ctrl.ClientRectangle.Height, g)
        Dim memg As Graphics = Graphics.FromImage(img)
        Dim dc1 As IntPtr = g.GetHdc()
        Dim dc2 As IntPtr = memg.GetHdc()
        BitBlt(dc2, 0, 0, img.Width, img.Height, dc1, 0, 0, SRCCOPY)
        g.ReleaseHdc(dc1)
        memg.ReleaseHdc(dc2)
        memg.Dispose()
        g.Dispose()
        Return img
    End Function


    'PrintDocument1のPrintPageイベントハンドラ
    Public Sub PrintDocument1_PrintPage(ByVal sender As Object,
            ByVal e As System.Drawing.Printing.PrintPageEventArgs)
        Dim img As Bitmap = memoryImage
        e.Graphics.DrawImage(img, 0, 0, 215, 325)
        e.HasMorePages = False
        img.Dispose()
    End Sub



    Public Sub Task_image()
    
        Dim memoryImageWK As Bitmap
        memoryImage = memoryImageWK
        
        Try
           'MsgBox("1.1")
           If task1(memoryImage).Equals(False) Then
               Exit Sub
           End If
           If task2(memoryImage).Equals(False) Then
               Exit Sub
           End If
           If task3(memoryImage).Equals(False) Then
               Exit Sub
           End If
        Catch sysEx As System.Exception
           Throw sysEx
        Finally
           memoryImage = Nothing
           PrintDocument1 = Nothing
           'MsgBox("2.3")
        End Try
    End Sub
    
    Private Function task1(ByRef memoryImage As Bitmap) As Boolean
        Try
            memoryImage = CaptureControl(FrmTicket2)
            return true
        Catch sysEx As System.Exception
            return false
        End Try
    End Function
    
    Private Function task2(ByRef memoryImage As Bitmap) As Boolean
        Dim PrintDocumentWK As New System.Drawing.Printing.PrintDocument
        PrintDocument1 = PrintDocumentWK
        Try
           'MsgBox("2.1")
            AddHandler PrintDocument1.PrintPage, AddressOf PrintDocument1_PrintPage
            return true
        Catch sysEx As System.Exception
            return false
        End Try
    End Function

    Private Function task3(ByRef memoryImage As Bitmap) As Boolean
        Try
           'MsgBox("2.2")
            PrintDocument1.Print()
            return true
        Catch sysEx As System.Exception
            return false
        End Try
    End Function
    
End Module
```

### 試したこと
フォームをキャプチャする処理と印刷する処理を分け、タスクにすることで記載した順に処理が動くのではと試みました。

### 補足情報（FW/ツールのバージョンなど）
VisualStudio2019（Professional Edition）を使用して開発しています。



### きれいに印刷できるパターンのソース

Module Com_ParkFunc
    Public memoryImage As Bitmap
    Public Sub PubS_PrintParkTicket(ByVal strSrvNum As String)
        Dim SecName As String
        Dim KeyName As String

        ''　駐車サービス票の印刷処理
        FrmTicket2.Show() '★★★★★★★★★ ←フォームは見えないようにしたい
        '' 各項目の設定
        With FrmTicket2
            .Label5.Text = "てすと"
            .lblDate.Text = VB6.Format(Now, "yyyy年mm月dd日 hh時nn分")
            .lblSrvNo.Text = "12345678901234"
        End With
        MsgBox("print")'★★★★★★★★★ ←FrmTicket2.Refresh()でも印刷できました！！
        memoryImage = CaptureControl(FrmTicket2)
        Dim PrintDocument1 As New System.Drawing.Printing.PrintDocument

        AddHandler PrintDocument1.PrintPage,
            AddressOf PrintDocument1_PrintPage

        PrintDocument1.Print()
        memoryImage.Dispose()

        '' フォームのアンロード
        FrmTicket2.Hide()
    End Sub

    <System.Runtime.InteropServices.DllImport("gdi32.dll")>
    Public Function BitBlt(ByVal hdcDest As IntPtr,
    ByVal nXDest As Integer, ByVal nYDest As Integer,
    ByVal nWidth As Integer, ByVal nHeight As Integer,
    ByVal hdcSrc As IntPtr,
    ByVal nXSrc As Integer, ByVal nYSrc As Integer,
    ByVal dwRop As Integer) As Boolean
    End Function

    Private Const SRCCOPY As Integer = &HCC0020
    'フォームのイメージを取得する
    Public Function CaptureControl(ByVal ctrl As Control) As Bitmap
        Dim g As Graphics = ctrl.CreateGraphics()
        Dim img As New Bitmap(ctrl.ClientRectangle.Width,
            ctrl.ClientRectangle.Height, g)
        Dim memg As Graphics = Graphics.FromImage(img)
        Dim dc1 As IntPtr = g.GetHdc()
        Dim dc2 As IntPtr = memg.GetHdc()
        BitBlt(dc2, 0, 0, img.Width, img.Height, dc1, 0, 0, SRCCOPY)
        g.ReleaseHdc(dc1)
        memg.ReleaseHdc(dc2)
        memg.Dispose()
        g.Dispose()
        Return img
    End Function

    'PrintDocument1のPrintPageイベントハンドラ
    Public Sub PrintDocument1_PrintPage(ByVal sender As Object,
            ByVal e As System.Drawing.Printing.PrintPageEventArgs)
        e.Graphics.DrawImage(memoryImage, 0, 0, 215, 325)
    End Sub
End Module


VB.NETで開発したアプリで印刷処理を行うと、黒で塗りつぶされてしまいます。きれいにイメージを印刷する方法はないでしょうか。

### 解決したいこと

今後、.Net Frameworkでの新規開発はやめて
.Netでの開発をしていくべきなのか否か。

もし、.Net Frameworkの新規開発を継続しても良いケースがあるのであれば
どのようなケースなのか。

### 前提条件

実行環境は、Windows限定。

### 調べたこと

.NET 6も.NET 7も2024年でサポート終了となっていますが
https://dotnet.microsoft.com/ja-jp/platform/support/policy
.Net Framework の終了日は記載されていません。
https://learn.microsoft.com/ja-jp/lifecycle/products/microsoft-net-framework
.Net Framework のままの方が、そのままでいいのだからコストがかからないのでは？


### 個人的な思い

.Net Frameworkは、Windowsに付属しているのでexeを置くだけで動作するため
配布が楽だと感じています。当面は、.Net Frameworkで開発をしたい。

.Netは、不勉強なのですがランタイムのインストールが必要で
https://dotnet.microsoft.com/ja-jp/download/dotnet/6.0
ランタイムをインストールしても、exeだけでは動かない？

とりあえず、ビルドしたフォルダ配下の全ファイルを配置すれば
動作することまでは確認しました。


.Net Frameworkでの開発について

### 実現したいこと

C# .netframework 4.6.1
TextFieldParserクラスを使用して、CSVファイルを読み込みたい
区切り文字の文字列の設定を設定ファイル(XML)から指定する。
カンマ区切りについては再現できたが、タブやスペースなどの設定ができないので
できるようにしたい。

### 発生している問題・エラーメッセージ

現在、以下XMLファイルから２つの項目を取得する処理ができております。
両方ともConfigModelクラスのstring型のフィールドに格納してます。

それを引数として、以下のソースコードReadCsvFileメソッドを実行します。
20行目で区切り文字の設定を行なっております。
XMLファイルの設定値は、￥tを設定しており、これをパラメータとしてReadCsvFileメソッド実行すると、
23行目で区切られた形式で取得することができませんでした。

20行目を以下のようにハードコーディングすると問題なく動きます。
parser.SetDelimiters("¥t");

XMLファイルから取得した値を使用して区切り文字に対して可変となるようにしたいです。

### 該当のソースコード

```C#
using System;
using Microsoft.VisualBasic.FileIO;
using System.Data;
using System.Linq;
using System.Text;

namespace csv
{

    public class Csvreader
    {
  
        public DataTable ReadCsvFile(string filePath, string delimiter)
        {
            var dt = new DataTable();
            Encoding encoding = Encoding.GetEncoding("utf-8");
            using (var parser = new TextFieldParser(filePath, encoding))
            {
                parser.TextFieldType = FieldType.Delimited;
                parser.SetDelimiters(delimiter);

                    //ヘッダー取得処理 
                    string[] headerFields = parser.ReadFields();
                    for (int i = 0; i < 10; i++)
                    {
                        dt.Columns.Add(headerFields[i]);
                    }


                //データ行の取得コード
　　　　　.....省略

            return dt;
        }
    }
}
```

```XML
<?xml version="1.0" encoding="utf-8"?>
<ConfigModel>
<Csv>
<filePath></filePath>
<Delimiter>¥t</Delimiter>
</Csv>
</ConfigModel>
```


### 補足情報（FW/ツールのバージョンなど）

.net framework 4.6.1 



C# .netframework , CSVファイルの読み込み　XMLファイルに設定された区切り文字を指定

### 実現したいこと

progressBarを設定した時間に合わせて溜まりきるようにする。


### 前提
タイマーを作っているのですが、progressBarが時間通りに溜まりきらず上手くできません。
一秒間に溜まる割合が低いということなのでしょうか。
タイマーはnumericUpDownを使って時間を決め、スタートボタンを押しています。

### 該当のソースコード
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 ramen_timer2
{
    public partial class Form1 : Form
    {
        public NumericUpDown Maximum { get; private set; }

        public Form1()
        {
            InitializeComponent();
        }

        private void Form1_Load(object sender, EventArgs e)
        {

        }

        private void button1_Click(object sender, EventArgs e)
        {
            progressBar1.Value = 0;
            progressBar1.Maximum = 100;
            label2.Text = numericUpDown1.ToString();
            timer1.Enabled = true;
        }

        private void timer1_Tick(object sender, EventArgs e)
        {
            progressBar1.Value++;
            label2.Text = Convert.ToString(numericUpDown1. Value- progressBar1.Value);
            if (progressBar1.Value == numericUpDown1.Value)
            {
                timer1.Enabled = false;
                MessageBox.Show("いただきます。");
            }
        }

        private void button2_Click(object sender, EventArgs e)
        {
            timer1.Enabled = false;
           
        }

        private void button3_Click(object sender, EventArgs e)
        {

        }

        private void numericUpDown1_ValueChanged(object sender, EventArgs e)
        {
            
        }

        private void progressBar1_Click(object sender, EventArgs e)
        {

        }
    }
}
```ここに言語名を入力
ソースコード
```

### 試したこと
プロパティからprogressBarの最大値を入力する時間と同じ値にしてみましたが出来ませんでした。

### 補足情報（FW/ツールのバージョンなど）
visual stdio
ここにより詳細な情報を記載してください。


progressBarを設定した時間に合わせて溜まりきるようにする。

###実現したい事
既にインストール済みの自作アプリ（.msi）のバージョンアップをする際、既存ファイル(.ps1)がタスクスケジューラから実行中だと更新されないので、インストール前後のファイル更新日時を比較し、古いままなら失敗とみなし、アプリバージョンやコンテンツファイルを元に戻したい（バージョンアップさせない）。

###問題
新規インストールの場合、下記★1のルートを通り、インストール前の状態に戻ってくれるが、既存からのバージョンアップの場合、下記エラールートを通らず、インストールが成功してしまう（NewFile.txtが作成されない事で確認）

###実際のインストールで使うコマンド
msiexec /passive /i AAtamesiInst.msi

```C#
public override void Install(System.Collections.IDictionary
stateSaver) {
    string filePath = @"C:\Program Files\存在しないファイル.ps1";

    base.Install(stateSaver);//インストール実行

    //実際はInstall()実行前後でps1ファイルの更新日時を比較しようと
    //しているが、分かりやすくファイルの存在チェックで代替

    if (File.Exists(filePath))     {
    } else  {
　　　　//ルート★１
        string Lpath = @"C:\Program Files\AAtamesiInstDEV\NewFile.txt";
        // FileInfoのインスタンスを生成する
        FileInfo fileInfo = new FileInfo(Lpath);

        // ファイルを作成する
        FileStream fileStream = fileInfo.Create();

        throw new InstallException(); //インストール例外
    }
}
```

###補足情報（FW/ツールのバージョンなど）
上記のソースをビルドしたexeをカスタム動作のInstallから呼んでいます。
Windows10、.NET4.6

###少し気になっている点
更新されなかった１ファイルはログイントリガーのタスクスケジュールから実行され、
終了まで数分かかるが、Intuneによるバージョンアップとログインは関係ないと予想

新規インストール時は想定通りのルートを通るが、バージョンアップインストールだ と、ルートが変わってしまう？

### 実現したいこと
下のような連絡先をキーワード検索してその情報を画面に出すというものを作りたいです。
また、キーワードに当てはまるものがなければ全ての情報を画面に出したいです。
（デフォルトでは下にあるような全部の情報を画面に出している状態が良いです。）
※下にある情報は偽物です！わかりやすく芸能人の名前にしております。
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-03-18/b1b9e7b1-df8a-458b-9789-ae0f6218144e.png)


### 前提
※プログラミング初心者です。ネットで色々調べましたがなかなか動作しなかったので質問させていただきます。

使用しているものは以下の通りです。
・visual studio2019（ Windows フォーム アプリケーション (.NET Framework) ）
・MySQL

現在のコードは以下の通りです。
```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;
using MySql.Data.MySqlClient;
using MySql.Data;

namespace AddressBook
{
    public partial class frmAddressList : Form
    {
        public frmAddressList()
        {
            InitializeComponent();
        }

        private void frmAddressList_Load(object sender, EventArgs e)
        {
            string server = "localhost";
            string database = "dbaddress";
            string user = "root";
            string pass = "Maron1207";
            string charset = "utf8";
            string connectionString = string.Format("Server={0};Database={1};Uid={2};Pwd={3};Charset={4}", server, database, user, pass, charset);

            MySqlConnection con = new MySqlConnection(connectionString);

            DataTable dt = new DataTable();

            try
            {
                con.Open();
                MySqlDataAdapter adapter = new MySqlDataAdapter("select * from d_contactinformation", con);
                adapter.Fill(dt);
                grdList.DataSource = dt;
            }
            finally
            {
                con.Close();
            }
        }

        private void btnSearch_Click(object sender, EventArgs e)
        {
            string txtkey = txtKeyword.Text;
            string server = "localhost";
            string database = "dbaddress";
            string user = "root";
            string pass = "Maron1207";
            string charset = "utf8";
            string connectionString = string.Format("Server={0};Database={1};Uid={2};Pwd={3};Charset={4};", server, database, user, pass, charset);

            MySqlConnection con = new MySqlConnection(connectionString);

            DataTable dt = new DataTable();

            try
            {
                con.Open();
                MySqlDataAdapter adapter = new MySqlDataAdapter("select * from d_contactinformation where fullname like '%txtkey%'", con);
                adapter.Fill(dt);
                grdList.DataSource = dt;
            }
            finally
            {
                con.Close();
            }
        } 
    }
}
```
 frmAddressList_LoadはMySQLと接続させてテーブルを表示させています。(これは動きました)
btnSearch_Clickは記述方法がわからないので仮にfullnameのフィールドに限定して検索をかけようとしましたが、検索ボタンを押しても下のようになります。（記述が間違っているのは承知です）
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-03-18/d22aae4b-b7aa-4378-bdff-15a03363341e.png)
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-03-18/605d2fce-9f80-41f6-b820-8e7a1b55bcf9.png)

### 発生している問題・エラーメッセージ
visual studio上ではこのように出ます。↓
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-03-18/c4e421bd-d383-4990-a48e-b1f2bada4ef7.png)

### 補足

説明文に不足があった場合は申し訳ございません。すぐに編集いたします。
初心者で基礎的なこともできていないと思いますが、どうかご教授いただけますと幸いです。


(c#)MySQLにあるテーブルをキーワード検索して画面上に出力する方法をお助けください。

Excel2013(ver 15.0) をメインとして使用するC#のWPFアプリケーションを開発していました。
Excel2016(ver 16.0) にも対応させたいので、開発用のマシンに Excel2016 をインストールしました。
Visual Studio の参照マネージャから参照の更新をする必要があると思っていたので、
Microsoft.Office.Core
Microsoft.Office.Interop.Excel.dll
の参照を一度削除し、参照の追加→COM から画像の項目にチェックを入れました。
（Excel2013 の参照を追加する時も同様の手順で行っていました）
![イメージ説明](78cd950b612e0921a9ba5491ef6d6492.png)
その後オブジェクトブラウザーから Microsoft.Office.Interop.Excel.dll のアセンブリのパスを確認したのですが、Excel2013 の時に使用していたdllファイルと同じもののように見えます。
![イメージ説明](2222e72b4014f2b62b3c21a3410742b6.png)

Office16.0バージョンの PIA は、Office15.0バージョンの PIA と同じものだという認識でよいのでしょうか？(PIA というより Microsoft.Office.Interop.Excel.dll ?)
Nugetでパッケージを検索しても、Microsoft.Office.Interop.Excel.dll は Excel2013対応版しか出てきませんし…。

また、このプロジェクトを別のマシンに導入しているJenkinsを利用してビルドした時に、エラーが発生してビルド出来ませんでした。
ビルド時のログを見ると、Interop.Excelの参照が見つからないようなのです。
この場合、プロジェクトをビルドするマシン全てにExcel2016が入っている必要があるのでしょうか？

【.NET】Microsoft.Office.Interop.Excel.dll 『for 2016』?

### 解決したいエラー
System.IO.FileLoadException: ファイルまたはアセンブリ 'System.Runtime.CompilerServices.Unsafe, Version=4.0.4.1, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a'、
またはその依存関係の 1 つが読み込めませんでした。見つかったアセンブリのマニフェスト定義はアセンブリ参照に一致しません。 (HRESULT からの例外:0x80131040)

### 開発環境
- Visual Studio 2017
- Visual Basic
- .NET Framework 4.7

### 発生条件
- ビルドで出力されたexeを開発環境で実行する時には発生しません。
- **exeを同じフォルダ内にコピーして**それを実行したときに発生します。(とても不思議です)
- またビルドされたexeが格納されたフォルダ一式を他のPCにコピーして実行したときに発生します。

### 発生タイミング
- System.Text.Jsonを使用しているのですが、下記最終行の「JsonSerializer.Serialize」を呼び出すタイミングで発生します。
```VB
            order = New JsonParamNewOrder
            order.clientOid = Strings.Left(Guid.NewGuid.ToString, 8)
            order.symbol = "BTC-USDT"
            order.side = eSide.buy.ToString
            order.funds = "0.009"
            body = JsonSerializer.Serialize(order)

```

### 参照しているUnsafeのバージョン
- 5.0.0.0
![イメージ説明](76e58f03f3aeefaebe796dd2b50c49ed.png)

### やってみたこと
- インターネットの記事を見てapp.configを下記のように書き換えてみましたが改善しませんでした。
```XML
      <dependentAssembly>
        <assemblyIdentity name="System.Runtime.CompilerServices.Unsafe" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
        <bindingRedirect oldVersion="0.0.0.0-5.0.0.0" newVersion="5.0.0.0" />
      </dependentAssembly>

```
↓↓↓
```XML
      <dependentAssembly>
        <assemblyIdentity name="System.Runtime.CompilerServices.Unsafe" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
        <bindingRedirect oldVersion="0.0.0.0-4.0.4.1" newVersion="5.0.0.0" />
      </dependentAssembly>

```

- VisualStudioで新規プロジェクトを作成し、Nugetで4.0.4.1のバージョンをインストールし、ダウンロードされたdllを動作させたいプロジェクトの実行フォルダに上書きしましたが改善しませんでした。

### バージョン依存関係の妥当性の確認
- Nugetパッケージマネージャで確認すると以下の通りSystem.Text.Jsonは.NET Framework 4.6.1に依存とあります。ですので、当該環境で問題ない認識です。また、UnsafeもJsonを使ううえでは5.0.0以上が求められているので問題ない認識です。(Nugetパッケージマネージャを利用しているので自動的に適したものがインストールされていると思っています。
![イメージ説明](b1fed23561de6a409a1e324b9e60d4ab.png)

すみませんがご存じの方、ご回答いただければ幸いです。
よろしくお願いいたします。