VB.netで構造体配列の各要素を一括で初期化したい。

Question

お世話になります。
構造体配列の初期化で困っています。
以下内容

Public Structure MES_DATA_STRUCTURE
Public Tc As Double
Public Vp As Double
Public Vc As Double
Public Id As Double
End Structure
という構造体があったとして

Public mes_data(100) As MES_DATA_STRUCTURE
を宣言したとします。全ての要素データを-999で初期化する場合
FOr文を使わずに、書く事は可能でしょうか。
（１つ１つ要素を指定して初期化しないという意味です。）
実際、構造体の要素数は３０個ぐらいあり、For文で書くのは結構
大変です。（要素数が増えたら間違えそう）

よろしくお願いします。

Answer 1

リフレクションを使うというのはどうでしょう？

リフレクションを使って構造体フィールドに値を設定する(FieldInfo.SetValue) - Programming/.NET Framework/Tips - 総武ソフトウェア推進所

■追記：サンプルコード

Imports System
Imports System.Reflection

Public Class Test
  Public Shared Sub Main()
    Dim s As new MES_DATA_STRUCTURE
    Dim v As ValueType = s
    Dim fieldInfo() As FieldInfo = s.GetType().GetFields( _
        BindingFlags.Instance Or BindingFlags.Public)
    For Each f As FieldInfo In fieldInfo
      f.SetValue(v, -999)
    Next f
    Console.WriteLine(s.Tc) ' 初期化されて「-999」が出力される
  End Sub
End Class

Structure MES_DATA_STRUCTURE
  Public Tc As Double
  Public Vp As Double
  Public Vc As Double
  Public Id As Double
End Structure

Comments

[HidehiroOgata]

まさに、こういうやり方をさがしていました。ありがとうございます。いろいろ、ご意見いただいた方も、参考にさせていただきます。みなさまありがとうございました。

Answer 2

大本のやりたいこととして、値がセットされているかどうかを区別したいのだとすれば、
それを通常ではありえない値(-999)を初期値とすることで実現するのではなく、
Nullableを使うのも手だと思います。

Answer 3

勘違いでウソついてましたすみません。

構造体ではなくクラスであれば下記の方法でうまくいきます。

---

初期化漏れが怖いならこの方法でもよいかと思います。

Public Structure MES_DATA_STRUCTURE 
        Public Tc As Double = -999
        Public Vp As Double = -999
        Public Vc As Double
        Public Id As Double = -999
 End Structure 

このように漏れが出てもわかりやすいです。

Comments

[ttyp03]

Constならともかく、Publicでは無理じゃないですか？

[iwamoto_takaaki]

ほんとだ、コンパイルエラーが出なかったので、クラスと同様にいけるものだと勘違いしてました恥ずかしい・・・　https://paiza.io/projects/hQlcFPRNEMViaYcHtdkp9A

[ttyp03]

そうなんですよ。
エラーにはならないんですよね。