Visual Basic Tips

コレクションの中のコレクション

先日ある本屋さんで立ち読みしていて、おおっこんな事ができるのか！と発見してしまいました。何の事はない、コレクションの中にコレクションを持てるだけの事なんですが、これだと配列の操作が簡単にできるので感動モノです。知らなかったのは私だけですね、きっと・・・。

Private Sub Form_Load()
　　Dim col1 As New Collection
　　Dim col2 As Collection

　　'col2を作成し項目をaddします
　　Set col2 = New Collection
　　col2.Add "col2-11"
　　col2.Add "col2-12"
　　col2.Add "col2-13"
　　col2.Add "col2-14"
　　col2.Add "col2-15"
　　col2.Add "col2-16"

　　col1.Add col2 'col2をcol1にaddします。
　　Set col2 = Nothing 'col2を破棄します。

　　'col2を作成し項目をaddします
　　Set col2 = New Collection
　　col2.Add "col2-21"
　　col2.Add "col2-22"
　　col2.Add "col2-23"
　　col2.Add "col2-24"
　　col2.Add "col2-25"
　　col2.Add "col2-26"

　　col1.Add col2 'col2をcol1にaddします。
　　Set col2 = Nothing 'col2を破棄します。

　　Dim i As Integer
　　Dim j As Integer

　　For i = 1 To col1.Count
　　　　Debug.Print "--------<" & i & ">--------"
　　　　For j = 1 To col1.Item(i).Count
　　　　　　Debug.Print col1.Item(i).Item(j)
　　　　Next
　　Next
End Sub


DownLoad vbtips097.lzh 2KB (VB6.0)