ＶＢ6 動的配列の使用方法 (ID:141647)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Private Sub A1で動的配列にセットした内容をPrivate Function B1で使用する ロジックを作っていますが・・・ B1で1番目の配列の中身は見えるのですが2番目以降が登録されていない状況です。 B1に来る直前までは配列にセットされた値は参照出来るのですがB1に来ると参照 出来ません。 *----------------------------------------- Private Sub A1 Do Until iMax > 4 iMax = iMax + 1 ReDim Preserve iWK(0 To iMax) As I_WK iWK(iMax).aaa = text iWK(iMax).bbb = text iWK(iMax).ccc = text Loop Exit Sub Private Function B1 iMax = 0 Do Until iMax > 4 iMax = iMax + 1 ReDim Preserve iWK(0 To iMax) As I_WK aaa = iWK(iMax).aaa --> 1番目は参照出来るがLoopした後の bbb = iWK(iMax).bbb --> 2番目が参照出来ない ccc = iWK(iMax).ccc --> Loop End Function *--------------------------------------------------- どうしたら２番目以降の配列の中身が参照出来ますか？