Млжно ли загрузить все формы в проекте?

[Daniil]

Млжно ли загрузить все формы в проекте?
ТОЛЬКО НЕ ТАК: (а то муторно писать, если ЦЕЛЫХ 24 форма!!!!)
load form3
form3.show

load form4
form4.show

load form5
form5.show

load form2
form2.show

И можно потом их все выгрузить?

[Cyrax]

на счет загрузить все имеющиеся формы разом - я не уверен... да и нужно ли это? хотя если тебе нужно их все разом отобразить, то лучше сразу использовать FormX.Show, без предварительного Load...
а для выгрузки всех форм, загруженных в данный момент, я пользуюсь такой процедурой:

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

Public Sub UnLoadAll()
    Dim i As Integer
    i = Forms.Count
    Do While i > 0
        Unload Forms(i - 1)
        If i = Forms.Count Then Exit Do
        i = i - 1
    Loop
End Sub

[codemaster]

Млжно ли загрузить все формы в проекте?
ТОЛЬКО НЕ ТАК: (а то муторно писать, если ЦЕЛЫХ 24 форма!!!!)
И можно потом их все выгрузить?

Думаю в консерватории чтото подправить надо !
С трудом представляю приложение пользущее одновременно
_ЦЕЛЫХ 24 форма_ !

[alibek]

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

Public Sub UnLoadAll()
    Dim i As Integer
    i = Forms.Count
    Do While i > 0
        Unload Forms(i - 1)
        If i = Forms.Count Then Exit Do
        i = i - 1
    Loop
End Sub

В принципе, можно сделать и так:

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

Dim I As Integer
For I = Forms.Count-1 To 0 Step -1
  Unload Forms(I)
Next I

[codemaster]

В принципе, можно сделать и так:

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

Dim I As Integer
For I = Forms.Count-1 To 0 Step -1
  Unload Forms(I)
Next I

Можно еще короче через

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

For  Each ....  In  Forms

[alibek]

Короче, но надо заводить объектную переменную

[RayShade]

Учить матчасть

Циклы For Each и Forms.Count не прокатят. Потому что при выгрузке формы коллекция уменьшится на 1. А это уже изменение цикла.

Так что вариант Cyrax'a единственно верный.

[alibek]

Моя не согласна
Цикл идет по убыванию, а параметры цикла вычисляются только однажды. Т.е. переменная будет уменьшаться вместе с коллекцией и всегда указывать на последний элемент.
Кстати, For Each как раз таки и самое правильное (с точки зрения логики), просто не люблю объектные переменные без особой необходимости использовать.

[codemaster]

Учить матчасть
Циклы For Each и Forms.Count не прокатят. Потому что при выгрузке формы коллекция уменьшится на 1. А это уже изменение цикла.
Так что вариант Cyrax'a единственно верный.

Учить матчасть
Циклы For Each и Forms.Count не прокатят. Потому что при выгрузке формы коллекция уменьшится на 1. А это уже изменение цикла.
Так что вариант Cyrax'a единственно верный.

Мда... Клинское делает сое дело ....

Думай головой, проверь зрение,Учи матчасть


Forms это _КОЛЛЕКЦИЯ _ где Forms.Count собственно _КОЛИЧЕСТВО ЭЛЕМЕТОВ (Obj) _ в коллекции.

Надеюсь разница между Forms.Count и Forms понятна

Таперь подумай что такое For Each ... In...

Так что вариант Cyrax'a _НЕ_единственно верный.

[Cyrax]

ну... цикл For нормально отработал, без ошибок... так что, RayShade, ты это типа не прав
использовать For Each для этих целе я бы не стал

[codemaster]

использовать For Each для этих целе я бы не стал

Ко всем участникам дискуссии - расставим точки над i.
Очень интересно узнать почему For Each не стит использовать

pls. Аргументировано

[alibek]

Да используй, пожалуйста.
Но если процедура достаточно большая, ты эту объектную переменную больше нигде использовать не будешь, а Long лишним никогда не будет.