Forms

[Mao]

Подскажите в чем трабл, когда хочу вытащит Tag формы(Forms("Форма1").tag) компилятор выдает что такой формы нет, а она на самом деле есть?

[RayShade]

А потому что Forms возвращает только по индексу числовому а не по имени. Пиши функцию, кторая вернет тебе индекс формы по ее имени. То есть что то типа:

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


private function formindex(name as string) as long
dim i as long
for i = 1 to forms.count
if forms(i).name=name then
formindex=i
exit for
end if
next i
formindex = -1
end function

....

myvar = forms(formindex("форма1")).tag


[Ennor]

RayShade, Forms - это коллекция, поэтому цикл For Each... Next будет быстрее.

[Mao]

Дык, по мойму одинаково.

[Ennor]

Ты еще не понял? Поиск нужной формы производится по ее индексу в этой коллекции, а свойство Name ясен пень у нее есть. Другой вопрос, что оно (это свойство) неуникальное, и поэтому не может быть ключом. Кстати, интересно было бы раскопать, из чего строится ключ этой коллекции - уж не из hWnd ли?

[GSerg]

Все вы не правы

Дело просто в том, что Forms содержит только формы, загруженные в данный момент, а не все объявленные в проекте.

[Ennor]

Все вы не правы

Дело просто в том, что Forms содержит только формы, загруженные в данный момент, а не все объявленные в проекте.

Эээ. А что, кто-то думал иначе???

Property Forms As object
read-only
Member of VB.Global
All loaded forms in an application.

[Mao]

Тогда такой вопрос, меняется ли индекс форм от порядка открытия этих форм??

[Sedge]

Тогда такой вопрос, меняется ли индекс форм от порядка открытия этих форм??

Да. Единственный вариант найти нужную форму - искать в цикле по совпадению .Name...