Заранее неизвестное количество переменных

[Yuri_S]

Я делаю программу учета CD.Но есть одна проблемма-я знаю единственный способ ее выполнения(показан в примере), но тогда надо вводить определенное максимальное значение дисков, как записей-в моем случае 2(var1/var2). А как сделать, чтоб например при создании новой записи в файл записывалось имя диска но с N-переменной, ведь мы не знаем зараннее сколько у меня дисков, 2 или 200.... Вобщем мне надо каким-нить образом не прописывать эти 200 или больше переменных, а выкрутиться по другому.Как?


'в модуль
Public Type MyType
var1 As Variant
End Type

'на форму
Private Sub Save_Click()
Dim MyVar As MyType
MyVar.var1 = Text1.Text
MyVar.var2 = Text2.Text
Dim ff As Long
ff = FreeFile
Open (App.Path & "\file.txt") For Binary As #ff
Put #ff, , MyVar
Close #ff
End Sub

Private Sub Form_load()
Dim MyVar As MyType
Dim ff As Long
ff = FreeFile
Open (App.Path & "\file.txt") For Binary As #ff
Get #ff, , MyVar
Close #ff
Text3.Text = MyVar.var1
Text4.Text = MyVar.var2
End Sub

[RayShade]

Коллекции для этого существуют.

И тогда будешь в нее добавлять переменные методом Add и доставать их оттуда методом Item и ноу проблем.

[Yuri_S]

а....ну попробоую.А какой синтаксис создания коллекции?

[sanches]

Да в ClassBuilder'е меньше чем за секунду создашь

[A.A.Z.]

Код: Выделить всё

Sub Form_Load()
Dim Col As Collection
Set Col = New Collection
End Sub


[Kostyan]

А не легче-ли использовать динамический массив?

Public Type MyType
var1 As Variant
var1 As Variant
End Type

Redim Preserve MyVar (сколько нужно) As MyType
Redim Preserve MyVar (сколько нужно+1) As MeType
......