投稿日 | : 2006/02/13(Mon) 12:02 |
投稿者 | : も |
Eメール | : |
URL | : |
タイトル | : Re^11: 動的に2次元配列 |
ちょっとわからなかったので、もう一度ソースを書いてみます。
Option Explicit
'hoge型の宣言
Private Type hoge
itm() As Variant
End Type
'hoge型の配列
Private Sub Form_Load()
Dim i As Long
Dim itm() As hoge
'hoge型の配列の確保
RedimPreserve_hogeAry itm, 2, 10
'使ってみる
itm(1).itm(1) = "a"
Debug.Print itm(1).itm(1)
'hoge型の配列の拡張
RedimPreserve_hogeAry itm, 10, 10
'拡張後、要素が残っているか確かめる
Debug.Print itm(1).itm(1)
itm(8).itm(2)="b"
Debug.Print itm(8).itm(2)
End Sub
Private Sub RedimPreserve_hogeAry(ByRef h() As hoge, ByVal s1 As Long, ByVal s2 As Long)
'itmを内容を保持して再確保
Dim i As Long
ReDim Preserve h(1 To s1)
For i = 1 To s1
ReDim Preserve h(i).itm(1 To s2)
Next
End Sub
※hoge型の要素itmの再確保方法も書いてるし、hoge型の配列itmの再確保方法も書いてるし…
何か問題あったのかな…