Масив форм

[neic]

Как можно создать массив форм?

Поиск результатов не дал!
Гугол не предлагать! и ему подобные тоже!

[alibek]

Плохо искал.
Поиск, Яндекс, Гугль.

[neic]

читай выше!

[alibek]

http://bbs.vbstreets.ru/viewtopic.php?p=137853#137853

[neic]

НУ и что? alibek либо гвори либо не засоряй тему!

[FaKk2]

neic, ты специально игнорируешь? Как ты ищешь? Я например со второго запроса нашел.

[neic]

FAKK2 заделись!

[Twister]

Лучше коллекцию форм:

Dim coll as collection
Dim frm as Form1 ' К примеру
set frm = form1
coll.add frm

[neic]

Павлов Максим
Ошибка 91

[Twister]

А коментарий к ошибке можно? У меня ЩАС бейсик не стоит.

Вообще, я ж дал просто общий подход, а не готовый код. Если честно, не помню там Add или AddItem

[tyomitch]

Максим, ты просто создать коллекцию забыл, прежде чем добавлять в неё

[Twister]

Бывает - с утра не выспался.

[Twister]

Set coll = new Collection

[Naked]

Dim frm() As New Form1

Private Sub Form_Click()
For i = 1 To 5
ReDim Preserve frm(i)
frm(i).Show
Next
End Sub

или я не так понял?

[Twister]

Нет.

Создай коллекцию: set coll = new collection
Создай форму set frm = new Form1
Добавь в коллекцию 5 одинаковых форм:

for i=1 to 5
coll.add frm
next

потом ссылаться на них так (помоему, я уж подзабыл):
frm=coll.items(i) 'i - нужный индекс
frm.show

[neic]

Макс опять не работает! Загружает вродебы, но открывать их в не какую не хочет!

[tyomitch]

Макс опять не работает! Загружает вродебы, но открывать их в не какую не хочет!

Это потому, что Максим пропустил Set.
Надо: Set frm = coll(i) 'i - нужный индекс

[Twister]

Да блин, вот сказывается отсутствия БАСИКА на компе...

[Naked]

Да, нифига не работает...
neic вот это попробуй:

Dim frm() As New Form1
Dim h As Long

Private Sub Form_Click()
AddItem 5
Item(1).Caption = "Forma 1"
Item(1).Visible = True
Item(2).Caption = "Forma 1"
Item(2).Visible = True
Item(5).Caption = "Forma 5"
Item(5).Visible = True
Caption = nCount
h = nCount
End Sub

Function AddItem(Item)
ReDim Preserve frm(1 To Item)
End Function

Function nCount() As Long
nCount = UBound(frm)
End Function

Function Item(Index) As Form
Set Item = frm(Index)
End Function

Function Remove(Index) 'это сам доделаешь
Unload frm(Index)
For i = LBound(frm) To UBound(frm)
If i = Index Then
h = h - 1
ReDim Preserve frm(1 To h)
End If
Next
End Function

[Twister]

Да? А мы с tyomitch-ем видать пургу несем? Какой массив? Нафига он нужен? Просто дело в ручках...

[ANDLL]

Какой массив? Нафига он нужен?

Есть подозрение, что массив чуточку быстрее коллекций. Вот зафига.

[Twister]

Ну это-то да, но в данном случае это не имеет значения - в коллекции же не 10 000 форм! А с коллекцией удобнее работать. Да и выигрыш во времени будет минимальный...