Is it possible to dynamically create Collections in VB6?

[suguimoto]

Hello! Does anyone know if it's possible to dynamically create Collections in VB6? I wanted to dynamically create as many Collections as the user needs/wants. Just like TextBox1(0), TextBox1(1), and so on. Is it possible? Regards

[Thomas Krojer]

yes. Dim x(13) As New Collection x(1).Add "1,1" x(1).Add "1,2" x(2).Add "2,1" x(3).Add "3,1" Debug.Print x(1).Item(1) Debug.Print x(3).Item(1) it´s also possible to do this dynamically: Dim x() As New Collection ReDim x(13) x(1).Add "1,1" x(1).Add "1,2" x(2).Add "2,1" x(3).Add "3,1" ReDim Preserve x(17) x(17).Add "17,1" Debug.Print x(1).Item(1) Debug.Print x(17).Item(1)

[parth p]

Or simple way of doing it is, Changing Index to 0 for the component in Properties Window. For Example, Add & Select Text1, and goto Properties and in Index type 0. Now when you want to create new one's just use following code, it's much simple. Private Sub LoadTextBox() 'Get the number of Textbox User wants or needs Dim itext As Integer itext = InputBox("Enter how many text box you want") 'Now let's create and show them on form Dim i As Integer For i = 1 To itext Load Text1(i) Text1(i).Visible = True 'the lines below show new created textbox rightBelow eachother, like Table Text1(i).Left = Text1(0).Left Text1(i).Top = Text1(i - 1).Top + Text1(i - 1).Height Next i End Sub Hope it helps...

[suguimoto]

Hi! Thank you very much for replying! Best Regards

[suguimoto]

Hi Thomas, Thank you very much! I declared in a module Public m_Collection() As Collection And in my form: (i needed to "Set" in order to work) Private Sub Command1_Click() For i = 0 To 13 Set m_Collection(i) = New Collection m_Collection(i).Add "1234" Next i End Sub It work perfectly :) Thanks! Best Regards!!