常連

Visual Studio2012 でwindowsフォームで商品登録プログラムを作成しています。
データグリッドビューにDBに登録しているデータを表示しています。
そのデータを
```
'カラムにセットしている消去ボタン押下した時のコード
 DataGridView1.Rows.RemoveAt(DataGridView1.CurrentCell.RowIndex)
```
で全行消去すると「オブジェクト参照がオブジェクト インスタンスに設定されていません。」とエラーが出てしまいます。
データがなくなったからこのエラーがでてしまうのは理解できたのですが、どうしたらこのエラーがでなくなるのかわかりません。お願いします。

もう一度デバックして確認したら下記の"商品名"の箇所でエラーが出ていました。
```
 '行変更
    Private Sub DataGridView1_SelectionChanged(sender As Object, e As EventArgs) Handles DataGridView1.SelectionChanged

 Try
'選択行の内容を表示する
  ComboBox1.Text = DataGridView1.CurrentRow.Cells("商品名").Value
  price_text.Text = DataGridView1.CurrentRow.Cells("価格").Value
  num_text.Text = DataGridView1.CurrentRow.Cells("個数").Value

   Catch ex As Exception
    MsgBox(ex.Message)
   End Try

    End Sub
```

[VB.NET]オブジェクト参照がオブジェクト インスタンスに設定されていません。

### 実現したいこと

矩形Aと矩形Bがあったとして、
矩形Aと矩形Bが埋まったら
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-11-20/feb03503-bc2a-446d-98bc-7eadb91a98c2.png)
埋まっている分を離れさせるようにするにはどうすればいいですか?
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-11-20/d281bb01-6a37-4f03-b66e-4a2ff6ce8481.png)

**試したこと以外の方法を教えてほしいです。**

### 前提

VB.NET(C#)で物理演算を使ったアクションゲームを作っています。  
描画エンジンはDxLibを使っています。

### 試したこと

埋まったら、矩形Aと矩形Bのスピードの逆の方向に移動させたあと、
矩形Aと矩形Bのスピードを0にすることで実質的に再現することができました。
ですが、もとから埋まっていたりすると、両方がずっとスピードを0にし続けるため、
重力に逆らう動きを取ることがありました。

### 調査したこと

https://thinkit.co.jp/article/8467

### 補足

矩形Aと矩形Bは角度のついていない単純な矩形です。

矩形同士の埋まっている部分を飛び出させる。

### 実現したいこと

●元ファイルにデータが順に記録されています
AA1,AA2,AA3,AA4
BB1,BB2,BB3,BB4
CC1,CC2,CC3,CC4
DD1,DD2,DD3,DD4
EE1,EE2,EE3,EE4

●新たに取得したデータ
DD1,DD2,DD3,DD4
EE1,EE2,EE3,EE4
FF1,FF2,FF3,FF4
GG1,GG2,GG3,GG4
HH1,HH2,HH3,HH4

両方のファイルをVBで読み込み、
AA1,AA2,AA3,AA4
BB1,BB2,BB3,BB4
CC1,CC2,CC3,CC4
DD1,DD2,DD3,DD4
EE1,EE2,EE3,EE4
**FF1,FF2,FF3,FF4
GG1,GG2,GG3,GG4
HH1,HH2,HH3,HH4**

元ファイルに、新たに取得したデータの中から、元ファイルにないデータを
追加したいです。

今できたところは、
元ファイルの最終行を取得

最終行の文字列をあたらに取得したファイル内から検索
何番目にあるか確認し、それ以降のデータを元ファイルにつけたしていますが、
まどろっこしい方法で、きれいに書けません。

もっと簡単に差分データを付け足す方法をご存じないですか？
あたらに取得するデータは行数が決まっており（仮に５行とします）、元ファイルは行数がきまってません。

ヒントでもご教授いただければ幸いです。

VB.netで作成中のシステムです。


CSVファイルの継ぎ足し

### 実現したいこと
画像をクリップボードにコピーするところまではできました。
しかし、PictureBoxに貼り付けるときにPictureBoxに読み込んでいた画像の上に同じサイズで貼り付けてしまいます。
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-10-28/06237674-22a9-4539-9bda-f61485896a8b.jpeg)
添付画像のように貼り付けることは可能でしょうか？
Windowsのペイントのように出来ればと思っております。
何方かお力添えお願いします。

下記のように貼り付けています。
```vb.net
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    'クリップボードにあるデータの取得
    Dim img As Image = Clipboard.GetImage()
    If img IsNot Nothing Then
        'データが取得できたときは表示する
        PictureBox1.Image = img
    End If
End Sub
```
### 環境
Windows 11 Pro
Visual Studio 2022 (64 ビット)


クリップボードの画像を拡大縮小して任意の場所に貼り付けたい

###実現したい事
既にインストール済みの自作アプリ（.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によるバージョンアップとログインは関係ないと予想

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

### 実現したいこと

VB.Netで作成したアプリのメモリリークを解決したい。
・タスクマネージャー上のワーキングセットを肥大化していくためこれを抑制、もしくは一定期間で破棄を行いたい。

### 前提
・.Net Framework 4.5 をターゲットフレームワークとしています。
・Windowsサービスとして構成し、処理クラスをサービスからインスタンス化して実行しています。
・処理クラスはThreading.Timerを使ってファイル監視を行い、ファイルが存在した場合に内容を読み込んでODBCによりDB更新を行っています。

### 発生している問題・エラーメッセージ
現象としてはファイル（20KB～78KB）を処理するにともなってタスマネージャー上のワーキングセットが肥大化しており、これがサーバー実行上3日間ぐらいの稼働（原則24時間稼働）で10GBを超えることから何とかリークを解消したいという思いです。
開発端末（Windows10）では完全無風状態が続くと、タスクマネージャー上のワーキングセットが減少しますが、顧客環境のWindowsサーバー上では減少しているのかいまいち把握できないのと、もっと早いタイミングで減少させたいという思いです。

【質問事項】
先輩方にお聞きしたいのが、VisualStudio2019のデバッグでメモリの状況を確認しているとプロセスメモリ（MB）が368MB以上にも係わらずスナップショットを取るとヒープサイズは1Mとなっています。
このプロセスメモリの内容調査をしたい場合どのような手法があるでしょうか。
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-09-03/4e336342-4e0d-488e-93d8-745a0f5227ee.png)

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

```VB.Net

### 試したこと
・Fileへのアクセス時のUsing使用
・ODBCオブジェクトUsing使用
・内部変数の破棄
・内部のStringクラスの使用をやめる検討
・内部クラスでDisposeを実装してクラス変数のDictionaryのすべてのキーのRemoveを実行する。
・関数で使用している内部変数をFinallyブロックを作成して破棄　等...
```

###追記
WinDBGを使用してダンプの解析を行ってみた内容です。
・ヒープに割り当たっているメモリ（heap -s 0）の予約、コミットはタスクマネージャーと近しい数値が見えました。
・割り当てされたオブジェクトサイズごとの一覧（heap -stat -h 0）ではやはり小さい数字の合計しか取れませんでした。
・リークしたヒープ（heap -l）を取ると確かに大量にCountのメモリが検出されますがトータルサイズですと、タスクマネージャーのワーキングセットの大きさにはならず。

VB.Netで作成したアプリのメモリリークを解決したい

### 実現したいこと

Yahooショッピング 注文APIにて、「公開鍵で暗号化した認証情報をAPIリクエストヘッダに付加してリクエスト」をVB.NETにて実装

認証手順
１．公開鍵ファイルを作成
　　公開鍵の内容はYahooショッピング管理コンソールにて発行
　　内容をコピーし、public.keyというファイル名でファイル作成
　　＜公開鍵内容例＞
　　-----BEGIN PUBLIC KEY-----
　　ABCfMA0GCSqGSIb...6txJ/YUbwIDACBA
　　-----END PUBLIC KEY-----
２．認証情報の作成
　　ストアアカウントとunixtimestampを:で結合した情報を作成
３．認証情報を公開鍵で暗号化
　　認証情報を公開鍵で暗号化(PKCS1PADDING)し、BASE64エンコード
４．暗号化した認証情報をAPIリクエストヘッダに付加してリクエスト

### 前提

・認証情報がなくてもエラーとはならない。
・APIリクエスト・レスポンスは、認証なしでも問題なくできている。

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

・下記のコードを実行した場合、
　レスポンスヘッダー取得「X-SWS-Authorize-Status」にて、「unauthorized」のレスポンスが返る。
　※成功すれば、「authorized」が返る

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

```VB.NET
           ' UTF-8でエンコードする
            Dim enc As Encoding = New UTF8Encoding()

            'WebAPI暗号鍵処理
            'ストアクリエイターPro上で発行した公開鍵のパス
            Dim keyFilePath As String = String.Format("{0}/key/{1}", sCurrentDir, PUBLICKEYFILENM)

            '現在日時取得（unixtimestamp取得）
            Dim unixTime As Long = GetUnixTime(DateTime.Now)
　　　　⇒GetUnixTimeメソッドは最下部に記載

            '認証情報作成(ストアアカウントとunixtimestampを:で結合する)
            Dim authenticationValue As String = String.Format("{0}:{1}", STOREACCOUNT, unixTime)

            'pem形式の公開鍵読み込み
            '読み込むファイル
            Dim textFile As String = keyFilePath
            'テキストファイルの中身をすべて読み込む
            Dim publicKeyPem As String = System.IO.File.ReadAllText(textFile, enc)

            '不要部分を削除
            publicKeyPem = Replace(publicKeyPem, "-----BEGIN PUBLIC KEY-----" & vbCrLf, String.Empty)
            publicKeyPem = Replace(publicKeyPem, "-----END PUBLIC KEY-----", String.Empty)
            publicKeyPem = Replace(publicKeyPem, vbLf, String.Empty)

            '公開鍵と秘密鍵を取得
            Dim privateKey As String = publicKeyPem
            Dim publicKey As String = publicKeyPem
            CreateKeys(PublicKey, privateKey)
　　　　⇒CreateKeysメソッドは最下部に記載

            '認証情報の暗号化
            Dim encodedAuthenticationValue As String = Encrypt(authenticationValue, publicKey)
　　　　⇒Encryptメソッドは最下部に記載
            
            'POST送信する文字列を作成
            Dim postData As String = _
                GetRequestXMLData_OrderList(iGetOrderMaxCnt, sIsSeen, Format(Now.AddDays(-iOrderGetPeriod), "yyyyMMddHHmmss"), Format(Now, "yyyyMMddHHmmss"), "1,2", STOREACCOUNT)
　　　　⇒GetRequestXMLData_OrderListメソッドは今回の問題点とは関係ないため未記載

            'バイト型配列に変換
            Dim postDataBytes As Byte() = _
                System.Text.Encoding.UTF8.GetBytes(postData)

            'TLS1.2での通信対応
            ServicePointManager.SecurityProtocol = DirectCast(3072, SecurityProtocolType)

            'WebRequestの作成
            Dim req As System.Net.HttpWebRequest = _
                System.Net.HttpWebRequest.Create(YAHOOAPI_ORDERLISTURL)

            'アクセストークン取得
            sAccessToken = Get_AccessToken()
　　　　⇒Get_AccessTokenメソッドは今回の問題点とは関係ないため未記載
            
            'ヘッダ指定
            req.Headers.Add("Authorization: Bearer " & sAccessToken)
            req.Headers.Add("X-sws-signature: " & encodedAuthenticationValue) '暗号化した認証情報
            req.Headers.Add("X-sws-signature-version: 1") '取得した公開鍵のバージョン
            
            'メソッドにPOSTを指定
            req.Method = "POST"
            'ContentTypeを"application/x-www-form-urlencoded"にする
            req.ContentType = "application/x-www-form-urlencoded"

            'POST送信するデータの長さを指定
            req.ContentLength = postDataBytes.Length

            'データをPOST送信するためのStreamを取得
            Dim reqStream As System.IO.Stream = req.GetRequestStream()
            '送信するデータを書き込む
            reqStream.Write(postDataBytes, 0, postDataBytes.Length)
            reqStream.Close()

            'サーバーからの応答を受信するためのWebResponseを取得
            Dim res As System.Net.HttpWebResponse = req.GetResponse()
            'レスポンスヘッダー取得「X-SWS-Authorize-Status」
            For i As Integer = 0 To res.Headers.Count - 1
                If res.Headers.Keys(i) = "X-Sws-Authorize-Status" Then
                    If res.Headers(i) <> "authorized" Then
                        'エラー
                    End If
                    Exit For
                End If
            Next
            
            '応答データを受信するためのStreamを取得
            Dim resStream As System.IO.Stream = res.GetResponseStream()
            '受信して表示
            Dim sr As New System.IO.StreamReader(resStream, enc)
            Dim sInfo As String = sr.ReadToEnd()

            '閉じる
            sr.Close()

    ''' <summary>
    ''' UNIXTIMESTAMP取得
    ''' </summary>
    ''' <param name="targetTime"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function GetUnixTime(ByVal targetTime As DateTime) As Long
        ' UNIXエポックを表すDateTimeオブジェクトを取得
        Dim UNIX_EPOCH As DateTime = New DateTime(1970, 1, 1, 0, 0, 0, 0)

        ' UTC時間に変換
        targetTime = targetTime.ToUniversalTime()

        ' UNIXエポックからの経過時間を取得
        Dim elapsedTime As TimeSpan = targetTime - UNIX_EPOCH

        ' 経過秒数に変換
        Return CType(elapsedTime.TotalSeconds, Long)

    End Function

    ''' <summary>
    ''' 公開鍵と秘密鍵を作成して返す
    ''' </summary>
    ''' <param name="publicKey">作成された公開鍵(XML形式)</param>
    ''' <param name="privateKey">作成された秘密鍵(XML形式)</param>
    Public Shared Sub CreateKeys(ByRef publicKey As String, _
                                 ByRef privateKey As String)
        'RSACryptoServiceProviderオブジェクトの作成
        Dim rsa As New System.Security.Cryptography.RSACryptoServiceProvider()

        '公開鍵をXML形式で取得
        publicKey = rsa.ToXmlString(False)
        '秘密鍵をXML形式で取得
        privateKey = rsa.ToXmlString(True)
    End Sub

    ''' <summary>
    ''' 公開鍵を使って文字列を暗号化する
    ''' </summary>
    ''' <param name="str">暗号化する文字列</param>
    ''' <param name="publicKey">暗号化に使用する公開鍵(XML形式)</param>
    ''' <returns>暗号化された文字列</returns>
    Public Shared Function Encrypt(ByVal str As String, _
                                   ByVal publicKey As String) As String
        'RSACryptoServiceProviderオブジェクトの作成
        Dim rsa As New System.Security.Cryptography.RSACryptoServiceProvider()

        '公開鍵を指定
        rsa.FromXmlString(publicKey)

        '暗号化する文字列をバイト配列に
        Dim data As Byte() = System.Text.Encoding.UTF8.GetBytes(str)
        '暗号化する
        '（XP以降の場合のみ2項目にTrueを指定し、OAEPパディングを使用できる）
        Dim encryptedData As Byte() = rsa.Encrypt(data, False)

        'Base64で結果を文字列に変換
        Return System.Convert.ToBase64String(encryptedData)
    End Function
```

様々なサイトを参考にしましたが、手詰まり状態です。
お気づきの点等ありましたらご指摘・ご教授頂けるとありがたいです。
※VB.NETは”.Net Framework4.0”を使用

### 参考サイト
[公開鍵暗号方法で暗号化する](https://dobon.net/vb/dotnet/string/rsaencryption.html)


Yahooショッピング 注文APIの公開鍵認証を実装したい

Visual Studio 2010で作成したVB.NETのプログラムを、
違う端末のVisual Studio2017でデバッグ実行させた際に、「アプリケーションはブレークモードになっています」と表示されてデバッグできなくなっています。
[マイ コードのみを有効にする]のチェックは外しましたが状況は変わりませんでした。
コードがおかしいのでしょうか？
それともVisual Studioのバージョンが違いすぎるからでしょうか？
原因が分からず困っています。よろしくお願いします。