常連

###前提・実現したいこと
タイトル通りですが、ブレイクポイントを指定しても指定の場所から実行できず処理が終了してしまいます。
処理は正常に実現されているのですが、指定の箇所からのデバッグができず面倒な状況です。
VSの設定は変更していないのと、新規プロジェクトでテストした場合は問題ないのです。
エラーメッセージやブレイクポイントを指定した際にもエラー表記なし。
管理者権限にて実行しているのでどこに問題があるのかわからない状況です。

>元のバージョンと完全に一致するソースファイルを必要とする
>ブレークポイントは現在の設定ではヒットしません。
上記らの問題では無いようです。

###発生している問題・エラーメッセージ
ブレイクポイントを指定した箇所で処理がストップしない。
処理はじめからのステップ実行は問題なし。
X86でのデバッグで上記の問題が確認。何故かAnyCPUでは問題なし。
自作のライブラリが影響？。

###該当のソースコード

どの箇所でも再現。

###試したこと

コンパイル方法の変更や、ターゲットの変更。X86→AnyCPU。
プロジェクトのクリーン。binやobjの削除。

###補足情報(言語/FW/ツール等のバージョンなど)
VS2015。

debug時にブレークポイントで止まらないことがある。

### 実現したいこと
実現したいこと
以下の条件で、
クライアント（VB.NETフォームアプリ）から
サーバー（os:ubuntu 22.04.02 LTS）のデータベース（MySQL 8.0.33）に接続する。
（現在は、同一LAN内での接続です。）

条件
１．	クライアントとサーバー間はSSHで接続する。
２．	サーバ（Ubuntu）のファイアーウォールの設定は、
Incomig、基本deny としssh用ポートのみ Action:allow, From:anywhere とする。
３．MySQLの設定で、bind-addressは‘127.0.0.1’とする。
４．MySQLにログインするMySQLのユーザーは　'xxx'@'localhost'とする。

### 前提

DBサーバーは、OS：ubuntu 22.04.02 LTS　DBMS：MySQL 8.0.33にて作成しました。
クライアントはOS：Windows11でサーバに接続するプログラムは、VB.NET で作成しました。

クライアントよりサーバーのデータベースに接続するのにMySQLのバインドアドレスを0.0.0.0として
Mysqlプロトコルで直にサーバーのMySQLの待ち受けポートに接続するのは好ましくないと考えました。

SSH接続で接続した後、ポート転送をして接続をすれば、
MySQLのバインドアドレスも0.0.0.0から127.0.0.1に変更でき
ユーザーもローカルホストのユーザーでMySQLログインできることで、
セキュリティの向上を実現できると思い実装したつもりが、思うように動作しません。

以下の手順で実装できると考えコーディングしました。
１．サーバーにSSH接続する
２．ポートを転送する
３．MySQLにログインする


### 発生している問題・エラーメッセージ
 以下のコード最終行 ‘mysql_conn.Open()’の所で例外が投げられます。
　　 エラーメッセージは次の通りです。
　　   MySqlException:Reading from the strem has failed.
       EndOfStreamException: ストリームの末尾を越えて読み取ろうとしました。

```

### 該当のソースコード
VB.net で作成したフォームアプリ 
接続に関連している部分の抜粋です。
ソースコード
01 Imports Renci.SshNet
02 Imports MySql.Data.MySqlClient
-----------------------------------------------------------------------------------------------
03 Public Class Mainform

04  'SSH接続設定
05  Private Const ssh_host As String = 192.168.10.36  'リモートホストのIPアドレス
06  Private Const ssh_port As Integer = 2222          'サーバ側SSHの待ち受けport番号（デフォルト値を変更しています。）
07  Private Const ssh_user As String = "aaa"          'サーバーのユーザー名
08  Private ssh_key = New PrivateKeyFile("C:\Users\user\Documents\aaa\id_rsa.pem","pass01")
                                                      '("秘密キーのパス", "キーのパスフレーズ")'
09  Private ssh_mthd = New PrivateKeyAuthenticationMethod(ssh_user, ssh_key)
10  Private ssh_cninf = New ConnectionInfo(ssh_host, ssh_port, ssh_user, ssh_mthd)
11  Private ssh_client = New SshClient(ssh_cninf)

12  ' ポートフォワーディング設定
13  Private Const localPort As Integer = 5001         'クライアントSSH接続用ポート
14  Private Const remotePort As Integer = 3306        'サーバーのMySQL用ポート番号（デフォルト）
15  Private fpl = New ForwardedPortLocal("127.0.0.1", localPort, ssh_Host, remotePort)

16  'DB接続設定
17  Private mysql_conn As MySqlConnection
18  Private Const mysql_db As String = "schm01"       '対象データベース
19  Private Const mysql_user As String = "bbb"        'MySQLのユーザー名
20  Private Const mysql_pswd As String = "pass02"     'bbbのMySQLパスワード
     ・・・・・
-----------------------------------------------------------------------------------------
21 Sub New()

22  InitializeComponent()

23     'SSH接続
24     Try
25          ssh_client.Connect()
26     Catch ex As Exception
27          MessageBox.Show("サーバーに接続できません", "SSH接続", MessageBoxButtons.OK)
28     End Try

29     'SSH接続確認
30     If ssh_client IsNot Nothing AndAlso ssh_client.IsConnected Then
31          MessageBox.Show("接続OK", "サーバーSSH接続", MessageBoxButtons.OK)
32     End If
       
33    'ポート転送
34    Try
35          ssh_client.AddForwardedPort(fpl)
36          fpl.Start()
37    Catch ex As Exception
38          MessageBox.Show("転送失敗 :" & ex.Message, "ポートフォワーディング ", MessageBoxButtons.OK)
39    End Try

40   'ポート転送確認
41   If fpl.isstarted Then
42        MessageBox.Show("転送OK", "sshポート転送", MessageBoxButtons.OK)
43   End If

44  'MySQLログイン
45  Dim cnstr As String = $"server={fpl.BoundHost};" &
46                        $"port={fpl.BoundPort};" &
47                        $"database={mysql_db};" &
48                        $"user={mysql_user};" &
49                        $"password={mysql_password}"

50  mysql_conn = New MySqlConnection(cnstr)
51  mysql_conn.Open()

### 補足情報（FW/ツールのバージョンなど）
上記コーディングで31行目と42行目では正常に動作している（と自分は考える）メッセージが表示されるので、
51行目のOpenメソッドはサーバー内部からの操作だから、
MySQLのbind-addressを‘127.0.0.1’とすると接続できない理由が自分には理解できません。

MySQLの設定で、bind-addressを‘0.0.0.0’とすると
MySQLのユーザー 'bbb'@'%' ではMySQLにログイン出来て正常にクエリを発行できます。

また上記コードでSSH接続するサーバーのユーザー、およびMySQLのユーザーで
「MySQL Workbenchで同一クライアント機よりサーバーへの接続してMySQLにログインすること」
「Tera Termを使用でSSH公開鍵認証によりサーバーへの接続してMySQLにログインすること」
はできています。

一応、MySQLへの接続文字列を、記述しておきます。
server=127.0.0.1;
port=5001;
database=schm01;
user=bbb;
password=pass02

最後まで、目を通していただきありがとうございます。
よろしくお願いいたします。




MySQLにログインできません。

textareaのクリックした位置にテキストを挿入したいです。

### 問題点
textareaに、
あいうえお
かきくけこ
と入力。
そして、「け」と「こ」の間にカレット位置を合わせて、
ボタンを押して「ダミー」という文字列を挿入。

### 望む結果
あいうえお
かきくけダミーこ
になるようにしたい。

### 実際
あいうえお
かきくダミーけこ
になってしまいます。

```aspx
<%@ Page Language="VB" %>
<%@ Import Namespace="System" %>
<%@ Import Namespace="System.Xml" %>
<%@ Import Namespace="System.Linq" %>
<%@ Import Namespace="System.Xml.Linq" %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.Web.UI.HtmlControls" %>
<%@ Import Namespace="System.Windows.Forms" %>
<%@ Import Namespace="System.Data" %>

<script runat="server">
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Page.IsPostBack Then

            Dim index As Integer = Integer.Parse(Request.Form("FocusIndex"))

            Dim length As String = Request.Form("FocusLength")
            Dim targetId As String = Request.Form("FocusItem")
            Dim target As TextBox = DirectCast(FindControl(targetId), TextBox)
            Dim inserttext As String = "ダミー"

            target.Text = target.Text.Substring(0, index) + inserttext + target.Text.Substring(index - length)



        End If
    End Sub
</script>

<html>
<head>
    <script src="https://code.jquery.com/jquery-3.3.1.js"></script>
    <title></title>
</head>
<body>
    <form runat="server">
        <table>
            <tr>
                <td>Item 1 :  
                    <asp:TextBox ID="ItemBox1" runat="server" TextMode="MultiLine"></asp:TextBox></td>
                <td>Item 2 :  
                    <asp:TextBox ID="ItemBox2" runat="server" TextMode="MultiLine"></asp:TextBox></td>
            </tr>
        </table>
        <input type="hidden" runat="server" id="FocusItem" name="FocusItem" value="" />
        <input type="hidden" runat="server" id="FocusIndex" name="FocusIndex" value="" />

        <asp:Button ID="Button1" runat="server" Text="Button" />
    </form>

    <script>
        $("textarea").on("focus click keyup", function (e) {
            $("#FocusItem").val(e.target.id);
            var index = e.target.selectionStart;
            $("#FocusIndex").val(index);
            $("#FocusLength").val(e.target.selectionEnd - index);
            console.log(e.target.selectionEnd);
        });
    </script>
</body>
</html>
```

ご教授いただけると幸いです。

textareaのクリックした位置にテキストを挿入したい

お世話になっております
VB.NETでEXCEL操作を行っているのですが、処理の最後でコンポーネントを開放しているのにも関わらず、タスクマネージャー上にEXCELのプロセスが残ってしまいます
（ただしこのプロセスはアプリケーションを終了させると何故か消えます）
EXCELのバージョン等で動かない場合があるので今回オブジェクトはCreateObject("Excel.Application")にて作成しております
開放の仕方が悪いのでしょうか？
ご教示ください

当方で使用しているEXCELは2019です

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

```VB.NET
        Dim objXLApp As Object
        Dim objXLBook As Object
        Dim objXLSheet As Object

        objXLApp = CreateObject("Excel.Application")

        objXLApp.ScreenUpdating = False '画面を更新しないようにします
        objXLApp.DisplayAlerts = False 'ユーザーに入力を促すメッセージや警告メッセージを表示させない
        objXLApp.EnableEvents = False 'マクロ無効化

        objXLBook = objXLApp.Workbooks.Open("C:\TEST.xlsx")
		
        objXLBook.Worksheets(1).Activate()
        objXLSheet = objXLBook.ActiveSheet
		
		'値書き込み
        objXLSheet.Range("C3") = "テスト"

        '保存
        objXLBook.SaveAs("C:\TEST2.xlsx")

        objXLApp.EnableEvents = True
        objXLApp.DisplayAlerts = True
        objXLApp.ScreenUpdating = True

        objXLBook.Saved = True

        ' Microsoft Excel およびスプレッドシートへの参照を解放します。
        System.Runtime.InteropServices.Marshal.ReleaseComObject(objXLSheet)
        objXLSheet = Nothing
        objXLBook.Close()
        System.Runtime.InteropServices.Marshal.ReleaseComObject(objXLBook)
        objXLBook = Nothing
        objXLApp.Application.Quit()
        System.Runtime.InteropServices.Marshal.ReleaseComObject(objXLApp)
        objXLApp = Nothing
```

### 試したこと
ただオブジェクトをNothingにするだけではなくSystem.Runtime.InteropServices.Marshal.ReleaseComObjectで開放した



【VB.NET】【EXCEL】VB.NETでEXCELを操作した後オブジェクトを処理してもプロセスが残ってしまう

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

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

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]オブジェクト参照がオブジェクト インスタンスに設定されていません。

### 実現したいこと

でかいピクセル数のtiff画像を縮小したい。
30000*20000 程度
どうすればできるでしょう。

### 前提

以下で作成したファイル「10000.tiff」と「28000.tiff」に対して
両方を変換できる必要があります。
※実際にはもっといろいろ絵があるファイルを変換する必要があるのですが
　上記ファイルでも同じエラーとなる為、上記２ファイルを変換できれば良いと考えています。

```VB.Net
Imports System.Drawing.Imaging
Imports System.IO

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim bmp As Bitmap
        Dim g As Graphics

        bmp = New Bitmap(10000, 10000)
        g = Graphics.FromImage(bmp)
        g.Clear(Color.FromArgb(255, 0, 0))
        g.Dispose()
        bmp.Save("C:\Temp\FromTiff\10000.tiff", System.Drawing.Imaging.ImageFormat.Tiff)
        bmp.Dispose()

        bmp = New Bitmap(28000, 20000, System.Drawing.Imaging.PixelFormat.Format1bppIndexed)
        bmp.Save("C:\Temp\FromTiff\28000.tiff", System.Drawing.Imaging.ImageFormat.Tiff)
        bmp.Dispose()
    End Sub
```

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

以下のプログラムで「10000.tiff」は変換できるが
「28000.tiff」はエラーが出て変換できない。

```VB.Net
Imports System.Drawing.Imaging
Imports System.IO

Public Class Form1

    Private Shared Function GetEncoderInfo(mimeType As String) As ImageCodecInfo
        Dim j As Integer
        Dim encoders() As ImageCodecInfo
        encoders = ImageCodecInfo.GetImageEncoders()
        For j = 0 To encoders.Length
            If encoders(j).MimeType = mimeType Then
                Return encoders(j)
            End If
        Next
        Return Nothing
    End Function

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim myEncoder As Encoder
        Dim myEncoderParameter As EncoderParameter
        Dim myEncoderParameters As EncoderParameters
        Dim myImageCodecInfo As ImageCodecInfo
        myImageCodecInfo = GetEncoderInfo("image/jpeg")
        myEncoderParameters = New EncoderParameters(1)
        myEncoder = Encoder.Quality
        myEncoderParameter = New EncoderParameter(myEncoder, 100L)
        myEncoderParameters.Param(0) = myEncoderParameter



        For Each path In {"C:\Temp\FromTiff\10000.tiff", "C:\Temp\FromTiff\28000.tiff"}
            Using fs As FileStream = File.OpenRead(path)

                Dim tBmp As Image = Image.FromStream(fs, False, False)

                Dim newImg As New Bitmap(100, 100)
                newImg.SetResolution(72, 72)
                Dim g As Graphics = Graphics.FromImage(newImg)
                g.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.HighQualityBicubic
                g.DrawImage(tBmp, 0, 0, 100, 100)
                g.Dispose()

                tBmp.Dispose()
                tBmp = Nothing
                newImg.Save(Replace(Replace(path, "FromTiff", "ToTiff"), ".tiff", ".jpg"), myImageCodecInfo, myEncoderParameters)

            End Using
        Next


    End Sub
End Class


```


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

「28000.tiff」のファイル時、g.DrawImage(tBmp, 0, 0, 100, 100)のコードにおいて
以下のエラーが出ます。

```
System.OverflowException: 'オーバーフロー エラーです。'
```

### 試したこと

OpenCvSharpでならできるかなと思って、一旦以下で画像を小さくしてみようとしましたが
こちらもエラーが発生しました。「10000.tiff」の方は実行できています。
```VB.Net
            Using srcImg As Mat = Cv2.ImRead(path)
                Using resizeImg As New Mat(size:=New OpenCvSharp.Size(), type:=srcImg.Type)
                    Cv2.Resize(srcImg, resizeImg, New OpenCvSharp.Size(), 0.5, 0.5, InterpolationFlags.Area)
                    Cv2.ImWrite(topath, resizeImg)
                End Using
            End Using
```

エラー発生個所は
Cv2.Resize(srcImg, resizeImg, New OpenCvSharp.Size(), 0.5, 0.5, InterpolationFlags.Area)
で、エラー内容は
OpenCvSharp.OpenCVException: '!ssize.empty()'
でした。

尚、現在はデカくてエラーになるファイルはPhotoshopで小さくしています。


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

でかいピクセル数のtiff画像を縮小したい。

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