Как создать массив

[Nikolka]

Здрасте!

Волнует проблема: ранее для создания массива просто брал и визуально их создавал (скажем Image1 => Copy => Paste => Yes). Но сейчас очень нужно следующее:

1) Программно загрузить, скажем Picture1
2) Программно сделать из неё массив, скажем Picture1(0) и Picture1(1)

Помогите плиз!

[Tarik]

Для начала тебе нужно создать хотя бы один экземпляр контрола, из которого ты хочешь сделать массив. Присвой св-ву index значение 0.
Затем просто загружай новые элементы массива вот так:

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

Load Picture1(1) 'загрузить Picture1 с индексом 1
Picture1(1).Visible=True 'сделать его видимым


[Nikolka]

Нет, так я делаю сейчас, но надо просто программно загружать новые объекты и ПРОГРАММНО делать их массивами.

[A.A.Z.]

Программно загружать объекты:

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

Private WithEvents Picture1 As PictureBox

Sub Form_Load()
Set Picture1 = Me.Controls.Add("VB.PictureBox", "Picture")
With Picture1
.Visible = True
'и так далее...
End With
End Sub

Sub Form_Unload(Cancel As Integer)
Set Picture1 = Nothing
End Sub

[Amed]

Это понятно. А вот как динамически подгружать массивы объектов (индексированные)? У меня не вышло...

[A.A.Z.]

Что ж тут сложного? Делаем массив имен переменных, а к каждому новому объекту присваиваем новое имя. Из VB вызов будет через массив переменных, но адресоваться он будет не массиву, а самостоятельным объектам. Хотя, возможно, есть и другой способ.

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

Const LB As Long = 0 'Самый первый индекс
Const UB As Long = 1 'Самый последнмй индекс

Dim Picture1() As PictureBox, I&, X&, Y&

Sub Form_Load()
ReDim Picture1(LB To UB) As PictureBox
For I = LB To UB
Set Picture1(I) = Me.Controls.Add("VB.PictureBox", "Picture" & I)
With Picture1(I)
.Visible = True
.Move X, Y
X = X + 100
Y = Y + 100
End With
Next
End Sub

Sub Form_Unload(Cancel As Integer)
For I = LB To UB
Set Picture1(I) = Nothing
Next
End Sub