C# と VB.NET の質問掲示板

VB6からVB2005へのコンバージョンを行っています。

構造体の動的配列の初期化について質問です。
自動アップグレードの際に「この構造体のインスタンスを初期化するには、"Initialize" を呼び出さなければなりません。」
というメッセージが出ていた為、どのように対応を行うか悩んでいます。


'構造体
Private Structure Array1
    Dim a() As Integer
    Dim b as Integer
    Public Sub Initialize()
        'UPGRADE_TODO: この構造体のインスタンスを初期化するには、"Initialize" を呼び出さなければなりません。
        ReDim a(10)
    End Sub
End Structure

Public Sub Main()
    Dim ary1() As Array1	'動的配列を宣言
    Dim W_RECCNT As Long	'SQLの件数

    ･･･（処理）･･･

    'SQLの件数を取得
    W_RECCNT = W_DYNASET.RecordCount

    ReDim ary1(W_RECCNT)

    ･･･（処理）･･･
End Sub


構造体の動的配列の初期化について参考になるサイトが見当たりませんでした。

この動的配列ary1()をInitializeメソッドにて初期化する場合の記述方法を教えていただきたいです。

よろしくお願いいたします。

■No54481 (shu さん) に返信
> forループで配列の各要素に構造体のインスタンスを設定すれば良いです。Initializeはメソッドなので
> 作成したインスタンスに対し各々実行すればよいです。(〜.Initialize)

ご返信ありがとうございます。
この文章について質問なのですが、ソース上で記述すれば

    '構造体
    Private Structure Array1
        Dim a() As Integer
        Dim b As Integer
        Public Sub Initialize()
            'UPGRADE_TODO: この構造体のインスタンスを初期化するには、"Initialize" を呼び出さなければなりません。
            ReDim a(1)
        End Sub
    End Structure

    Public Sub Main()
        Dim ary1() As Array1    '動的配列を宣言
        Dim W_RECCNT As Long    'SQLの件数
        Dim W_CNT As Long    'カウンタ

        'SQLの件数を取得
        W_RECCNT = 2

        ReDim ary1(W_RECCNT)

        For W_CNT = 0 To W_RECCNT
            '初期化
            Select Case W_CNT
                Case 0
                    ary1(W_CNT).Initialize()
                    ary1(W_CNT).a(0) = 0
                    ary1(W_CNT).a(1) = 1
                    ary1(W_CNT).b = 2
                Case 1
                    ary1(W_CNT).Initialize()
                    ary1(W_CNT).a(0) = 3
                    ary1(W_CNT).a(1) = 4
                    ary1(W_CNT).b = 5
                Case Else
                    ary1(W_CNT).Initialize()
                    ary1(W_CNT).a(0) = 6
                    ary1(W_CNT).a(1) = 7
                    ary1(W_CNT).b = 8
            End Select
        Next

    End Sub

このような記述で合っていますか？私の知識不足で申し訳ありませんが、教えていただきたいです。

皆様ご回答ありがとうございました。