常連

![![![![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2025-06-10/0b57e79a-ccfb-469c-8408-7178ce0ffefd.png)](https://ddjkaamml8q8x.cloudfront.net/questions/2025-06-10/68d4ff84-a937-4e5b-9f66-673260548382.png)](https://ddjkaamml8q8x.cloudfront.net/questions/2025-06-10/48b72730-bb3f-4dbf-a19a-398efe72a367.png)](https://ddjkaamml8q8x.cloudfront.net/questions/2025-06-10/2aa27228-9343-40d0-9c7b-d8b407d403ed.png)### 実現したいこと
コーディングした箇所（主に下のほう）にエラーが沢山出てデバックしても開けないので、デバックしたら開いて正常に動作する状態にしたいです。

### 発生している問題・分からないこと
構文エラーや宣言が必要などのエラーが出ています。宣言を書いても消えなかったので何かが間違ったままなのだろうと思いました。

### エラーメッセージ
```error
構文エラーです
宣言が必要です
エラー	2	メソッド本体や複数行ラムダの外側では使用できないステートメントです。	
エラー	6	'End If' の前には、対応する 'If' を指定しなければなりません。	
エラー	14	'MENUK' は宣言されていません。アクセスできない保護レベルになっています。	
エラー	17	コンマ、')'、または有効な式の継続文字が必要です。	
エラー	44	派生クラスで基底クラスのイベントを発生させることはできません。	



```

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

```VB.NET
Imports 画面遷移図_メニュー定義構造体4.Form1

Public Class UCTL

    Property TagNo As Object
    Property MenuCT As Object

    Public MENUK() As MenuKoumoku = New MenuKoumoku() {
        New MenuKoumoku(1, 0, "サブメニュー1", 1, 0),
        New MenuKoumoku(2, 0, "サブメニュー2", 1, 0),
        New MenuKoumoku(99, 0, "終了", 9, 99999),
        New MenuKoumoku(101, 1, "サブメニューAA", 1, 0),
        New MenuKoumoku(102, 1, "区切り", 2, 0),
        New MenuKoumoku(103, 1, "サブメニューAB", 1, 0),
        New MenuKoumoku(104, 2, "サブメニューBA", 1, 0),
        New MenuKoumoku(105, 2, "サブメニューBB", 1, 0),
        New MenuKoumoku(106, 2, "プログラムBC", 0, 23),
        New MenuKoumoku(201, 101, "プログラムAAA", 0, 111),
        New MenuKoumoku(202, 101, "プログラムAAB", 0, 112),
        New MenuKoumoku(203, 103, "プログラムABA", 0, 121),
        New MenuKoumoku(204, 103, "プログラムABB", 0, 122),
        New MenuKoumoku(205, 104, "プログラムBAA", 0, 211),
        New MenuKoumoku(206, 104, "プログラムBAB", 0, 212),
        New MenuKoumoku(207, 105, "プログラムBBA", 0, 221),
        New MenuKoumoku(208, 105, "プログラムBBB", 0, 222)}




    Sub MenuShow()
        Dim MenuNo(0 To 6) As TextBox

        MenuNo(0) = MenuNo1
        MenuNo(1) = MenuNo2
        MenuNo(2) = MenuNo3
        MenuNo(3) = MenuNo4
        MenuNo(4) = MenuNo5
        MenuNo(5) = MenuNo6
        MenuNo(6) = MenuNo7

        Dim MenuButton(0 To 6) As Button

        MenuButton(0) = MenuButton1
        MenuButton(1) = MenuButton2
        MenuButton(2) = MenuButton3
        MenuButton(3) = MenuButton4
        MenuButton(4) = MenuButton5
        MenuButton(5) = MenuButton6
        MenuButton(6) = MenuButton7

        Dim KugiriPanel(0 To 6) As Panel

        KugiriPanel(0) = KugiriPanel1
        KugiriPanel(1) = KugiriPanel2
        KugiriPanel(2) = KugiriPanel3
        KugiriPanel(3) = KugiriPanel4
        KugiriPanel(4) = KugiriPanel5
        KugiriPanel(5) = KugiriPanel6
        KugiriPanel(6) = KugiriPanel7

        Dim LP As Integer
        LP = 0

        'Dim MenuNo.Text As String
        'Dim MenuNo.Visible As Boolean
        'Dim MenuButton.Text As String
        'Dim MenuButton.Visible As Boolean
        'Dim MenuButton.Tag As Integer
        'Dim KugiriPanel.Visible As Boolean
        Do
            MenuNo(LP).Text = ""
            MenuNo(LP).Visible = False
            MenuButton(LP).Text = ""
            MenuButton(LP).Visible = False
            KugiriPanel(LP).Visible = False

            LP = LP + 1
        Loop While LP < MenuNo.Length

        LP = 0
        Dim LP1 As Integer
        LP1 = 0
        MenuCT = 0
        'Dim UCTL As UserControl

        'Dim MENUK() As MenuKoumoku


        Do Until LP1 >= MENUK.Length
            If MENUK(LP1).Tagno = TagNo Then
                If MENUK(LP1).Kubun = 0 Or 1 Then        'サブメニュー or プログラム
                    MenuCT = MenuCT + 1
                    MenuNo(LP).Text = MenuCT
                    MenuButton(LP).Text = MENUK(LP1).MenuName
                    MenuButton(LP).Tag = MENUK(LP1).Index

                    MenuNo(LP).Visible = True
                    MenuButton(LP).Visible = True
                    KugiriPanel(LP).Visible = False

                    LP = LP + 1
                    LP1 = LP1 + 1

                ElseIf MENUK(LP1).Kubun = 9 Then         '終了
                    MenuNo(LP).Text = 99

                    MenuButton(LP).Text = "終了"
                    MenuButton(LP).Tag = MENUK(LP1).Index

                    MenuNo(LP).Visible = True
                    MenuButton(LP).Visible = True
                    KugiriPanel(LP).Visible = False

                    LP = LP + 1
                    LP1 = LP1 + 1

                ElseIf MENUK(LP1).Kubun = 2 Then            '区切り線
                    MenuNo(LP).Visible = False
                    MenuButton(LP).Visible = False
                    KugiriPanel(LP).Visible = True

                    LP = LP + 1
                    LP1 = LP1 + 1

                End If
            Else
                LP1 = LP1 + 1
            End If

        Loop


    End Sub

    'RaiseEvent Click MenuButton event

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles MenuButton1.Click
        'MenuButton1.Tag = MenuButton_Click(sender As Object, e As EventArgs)UCTL.Index
        'MenuButton1.Text = MENUK(1).MenuName
        RaiseEvent Click()
    End Sub





    Private Sub MenuButton2_Click(sender As Object, e As EventArgs) Handles MenuButton2.Click
        'MenuButton2.Tag = MenuButton_Click(sender As Object, e As EventArgs)UCTL.Index
        'MenuButton2.Text = MENUK(2).MenuName
        RaiseEvent Click()
    End Sub

    Private Sub MenuButton3_Click(sender As Object, e As EventArgs) Handles MenuButton3.Click
        'MenuButton3.Tag = MenuButton_Click(sender As Object, e As EventArgs)UCTL.Index
        'MenuButton3.Text = MENUK(3).MenuName
        RaiseEvent Click()
    End Sub


    Private Sub MenuButton4_Click(sender As Object, e As EventArgs) Handles MenuButton4.Click
        RaiseEvent Click()
    End Sub

    Private Sub MenuButton5_Click(sender As Object, e As EventArgs) Handles MenuButton5.Click
        RaiseEvent Click()
    End Sub

End Class
Public Class Form1

    Public Structure MenuKoumoku
        Public Index As Integer
        Public Tagno As Integer
        Public MenuName As String
        Public Kubun As Integer
        Public PRGID As Integer

        Sub New(Index As Integer, Tagno As Integer, MenuName As String, Kubun As Integer, PRGID As Integer)

        End Sub

    End Structure


    'Private Property UCTL1 As UserControl1

    Dim sender As Object
    Dim e As Object
    Dim LP As Integer
    Dim MessabeBox As MessageBox
    Public Property MenuCT As Integer



    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        UCTL1.TagNo = 0
        UCTL1.MenuName.Text = "メインメニュー"
        UCTL1.MenuCT = 0
        UCTL1.MenuShow()
        UCTL1.Visible = True
    End Sub

    Public UCTL As UserControl

    Public Event MenuClick()
     RaiseEvent MenuClick()

     If Button_Click(sender As Object, e As EventArgs)UCTL.TagNo=0 Then
       UCTL=UCTL2
     Else 
      UCTL=UCTL3
     End If


    LP = 0

    Do Until MENU(LP).Index=Button_Click(sender As Object, e As EventArgs)MenuButton.Tag
     LP=LP+1
    Loop

     If MENUK(LP).Kubun=0 Then
       MessageBox.Show("「menuname」のプログラムが選択されました。".OK)

     Else If MENUK(LP).Kubun=1 Then
    Sub MenuShow()
        If MENUK(LP).Tag = 0 Then
            UCTL2.Visible = True
            UCTL3.Visible = False
            UCTL2.TagNo = MenuButton_Click(sender As Object, e As EventArgs).Tag
            UCTL2.MenuName = MenuButton_Click(sender As Object, e As EventArgs).Text
            UCTL2.MenuCT = MenuButton_Click(sender As Object, e As EventArgs)UCTL1.MenuCT


        Else
            UCTL2.Visible = True
            UCTL3.Visible = True
            UCTL3.TagNo = MenuButton_Click(sender As Object, e As EventArgs).Tag
            UCTL3.MenuName = MenuButton_Click(sender As Object, e As EventArgs).Text
            UCTL3.MenuCT = MenuButton_Click(sender As Object, e As EventArgs)UCTL1.MenuCT
        End If
    End Sub
       Else If MENUK(LP).Kubun=9 Then
        MessageBox.Show("終了してもよろしいですか。","終了の確認",MessageBoxButtons.YesNo)
          If Yes Click Then
            Me.Close()
          Else
            MessageBox.Close()
          End If
    End If
End Class
```

### 試したこと・調べたこと
- [x] teratailやGoogle等で検索した
- [x] ソースコードを自分なりに変更した
- [x] 知人に聞いた
- [ ] その他

##### 上記の詳細・結果
Googleでイベントの発生やMeの構文について調べてそれらを参考に記述しましたがエラーが出ました。
ソースコードを調べながら自分なりにソースコードを変更しましたがエラーが出ました。
父親にソースコードを変更してもらいましたが、時間が少なかったのもあり、上記の状態で終わりました。

### 補足
特になし

コーディングのエラーを解決したい

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

アプリケーションはブレークモードに...

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

### 実現したいこと
[DataGridView コントロールのボタン列のボタンを無効にする](https://learn.microsoft.com/ja-jp/dotnet/desktop/winforms/controls/disable-buttons-in-a-button-column-in-the-datagrid?view=netframeworkdesktop-4.8)
こちらのサイトを参考にDataGridViewButtonColumnのカスタムコントロールを作成しました。

ここで紹介されているソースは見た目を変更するだけなので、無効化されたボタンをクリックしてもCellClickイベントやCellContentClickイベントは発生してしまいます。
イベント発生時に都度ボタンの状態を確認して無効ならば処理をしないという手もありますが、
そもそもイベントが上がらないようにできないかと考えました。

### 発生している問題・分からないこと
OnClickとOnContentClickをオーバーライドし、ボタンが有効な場合のみ基底クラスのメソッドを呼ぶようにしました。
これによってイベントが上がらなくなると踏んでいましたが、CellClickイベントやCellContentClickイベントは上がってしまいました。



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

```VBNET
Public Class DataGridViewDisableButtonColumn
    Inherits DataGridViewButtonColumn

    Public Sub New()
        Me.CellTemplate = New DataGridViewDisableButtonCell
    End Sub

End Class

Public Class DataGridViewDisableButtonCell
    Inherits DataGridViewButtonCell

    Private _enabled As Boolean

    Public Property Enabled() As Boolean
        Get
            Return _enabled
        End Get
        Set(ByVal value As Boolean)
            _enabled = value
        End Set
    End Property

    ' Override the Clone method so that the Enabled property is copied.
    Public Overrides Function Clone() As Object
        Dim cell As DataGridViewDisableButtonCell = CType(MyBase.Clone(), DataGridViewDisableButtonCell)
        Return cell
    End Function

    ' By default, enable the button cell.
    Public Sub New()
        Me._enabled = True
    End Sub

    Protected Overrides Sub Paint(
        ByVal graphics As System.Drawing.Graphics, ByVal clipBounds As System.Drawing.Rectangle, ByVal cellBounds As System.Drawing.Rectangle,
        ByVal rowIndex As Integer, ByVal elementState As System.Windows.Forms.DataGridViewElementStates,
        ByVal value As Object, ByVal formattedValue As Object, ByVal errorText As String,
        ByVal cellStyle As System.Windows.Forms.DataGridViewCellStyle, ByVal advancedBorderStyle As System.Windows.Forms.DataGridViewAdvancedBorderStyle,
        ByVal paintParts As System.Windows.Forms.DataGridViewPaintParts
    )
        If (Me._enabled) Then
            ' The button cell is enabled, so let the base class handle the painting.
            MyBase.Paint(graphics, clipBounds, cellBounds, rowIndex, elementState, value, formattedValue, errorText, cellStyle, advancedBorderStyle, paintParts)

        Else
            ' The button cell is disabled, so paint the border,
            ' background, and disabled button for the cell.

            ' Draw the cell background, if specified.
            If (paintParts And DataGridViewPaintParts.Background = DataGridViewPaintParts.Background) Then
                Dim cellBackground As SolidBrush = New SolidBrush(cellStyle.BackColor)

                graphics.FillRectangle(cellBackground, cellBounds)
                cellBackground.Dispose()
            End If

            ' Draw the cell borders, if specified.
            If (paintParts And DataGridViewPaintParts.Border = DataGridViewPaintParts.Border) Then
                PaintBorder(graphics, clipBounds, cellBounds, cellStyle, advancedBorderStyle)
            End If

            ' Calculate the area in which to draw the button.
            Dim buttonArea As Rectangle = cellBounds
            Dim buttonAdjustment As Rectangle = Me.BorderWidths(advancedBorderStyle)
            buttonArea.X = buttonArea.X + buttonAdjustment.X
            buttonArea.Y = buttonArea.Y + buttonAdjustment.Y
            buttonArea.Height = buttonArea.Height - buttonAdjustment.Height
            buttonArea.Width = buttonArea.Width - buttonAdjustment.Width

            ' Draw the disabled button.
            ButtonRenderer.DrawButton(graphics, buttonArea, VisualStyles.PushButtonState.Disabled)

            ' Draw the disabled button text.
            If (Me.FormattedValue.GetType Is GetType(String)) Then
                TextRenderer.DrawText(graphics, Me.FormattedValue.ToString, Me.DataGridView.Font, buttonArea, SystemColors.GrayText)
            End If
        End If
    End Sub

    Protected Overrides Sub OnClick(e As DataGridViewCellEventArgs)
        If (Me._enabled) Then
            MyBase.OnClick(e)
        End If
    End Sub

    Protected Overrides Sub OnContentClick(e As DataGridViewCellEventArgs)
        If (Me._enabled) Then
            MyBase.OnContentClick(e)
        End If
    End Sub

End Class
```

### 試したこと・調べたこと
- [x] teratailやGoogle等で検索した
- [ ] ソースコードを自分なりに変更した
- [ ] 知人に聞いた
- [ ] その他

##### 上記の詳細・結果
Google等で検索すると通常のButtonの例は出てきます。
Buttonのカスタムコントロールを作成した上で、上記と同様にOnClickをオーバーライドし、基底クラスのOnClickを呼ばないようにしたところ、こちらは期待通りにClickイベントが上がりませんでした。

そもそもオーバーライドしたOnClickはDataGridViewButtonCellのものなので、DataGridViewのCellClick/CellContentClickは止められないということでしょうか？

### 補足
開発環境：
Microsoft Visual Studio Enterprise 2015（Version 14.0.25431.01 Update 3）
Microsoft .NET Framework（Version 4.8.09037）

[VB.NET] 無効化されたDataGridViewボタンセルのClickイベントが上がらないようにしたい

### 実現したいこと
-vb.netにてDataTableを簡単にソートする方法を知りたいです。
-保守性を考慮してなるべるシンプルにしたい
-ソートする項目は複数指定したい


vb.net DataTableを簡単にソートする方法を知りたい

### 解決したいエラー
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)

すみませんがご存じの方、ご回答いただければ幸いです。
よろしくお願いいたします。

.NETでEXE実行時に「'System.Runtime.CompilerServices.Unsafe, Version=4.0.4.1」「依存関係の 1 つが読み込めませんでした。」

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

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

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