Nested Arrays Solution

Example

Original Author: Ulli

Code

Option Explicit
Private Type tNested
  Blah      As String
  Blabla     As Long
End Type
Private Type tSomething
  Stuff      As String
  MoreStuff    As Long
  aNested()    As tNested
  Whatever    As Integer
End Type
Private aSomething() As tSomething
Private Sub Form_Click()
Dim i As Long
  ReDim aSomething(1 To 500)
  For i = 1 To 500
    ReDim aSomething(i).aNested(1 To 10)
  Next i
  
  aSomething(12).aNested(7).Blah = "Hallo Michael"
  
  Debug.Print aSomething(12).aNested(7).Blah
End Sub

About this post

Posted: 2003-06-01
By: ArchiveBot
Viewed: 97 times

Categories

Visual Basic 6

Attachments

No attachments for this post

Comments

No comments have been added for this post.

You must be logged in to make a comment.