ＶＢ6 動的配列の使用方法

超初心者 2009-03-08 00:15:59 No: 141647

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
*---------------------------------------------------
どうしたら２番目以降の配列の中身が参照出来ますか？

超初心者 2009-03-08 00:32:48 No: 141648

<訂正>
Private Sub A1
   Do Until iMax > 4
     ReDim Preserve iWK(0 To iMax) As I_WK
     iWK(iMax).aaa = text
     iWK(iMax).bbb = text
     iWK(iMax).ccc = text
     iMax = iMax + 1
  Loop
Exit Sub

Private Function B1
  iMax = 0
  Do Until iMax > 4
     ReDim Preserve iWK(0 To iMax) As I_WK
     aaa = iWK(iMax).aaa --> 1番目は参照出来るがLoopした後の
     bbb = iWK(iMax).bbb  --> 2番目が参照出来ない
     ccc = iWK(iMax).ccc  -->
     iMax = iMax + 1
  Loop
End Function