2 Владимир Саныч
да пжалста
меня извиняет мой склероз, и то, что последний раз я на это убил день -другой в году ... не помню в каком, но в прошлом веке. Очень может быть, что и в 7-м (95) аксе, какой был на редкость глюкав. Опять же я кодер не по призванию, а скорей по необходимости. Т.е. не фанат. А то бы сразу вспомнил :).
Вот подумал, как может быть устроен объект Controls. Понятно, что это не стандартный VBA.Collection, а видимо нечто наследуемое от общего предка
в VBA аналогичная функциональность могла быть такой:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
'в классе TControls
Private ControlsC as new collection 'содержит ссылки только на контролы
Private ControlsF as new collection 'содержит ссылки на поля
' и/или (перекрывающие) контролы,
'...
'как - то заполнили
'и реализация метода
'.Item:
Public Function Item(Index)
'ругань возложим на .Item Vba.Collection
If AND VarType(Index)< 8 Then
Item = ControlsC(Index)
elseIF VarType(Index)= 8
Item = ControlsF(Index)
end if
End Function
причем колеекции (внутренние)именно приватные, поскольку в Hidden свойствах формы и Controls я не нашел ничего похожего на Collect DAO.Recordset-а
2 Victosha
.Collect прекрасно понимает имя (т.е. поля вставлены в коллекцию по key), но не возвращает имен и прочих свойств. Т.ч. обратиться .Collect("anyName") можно, и нет необходимости вызывать .Fields нет необходимости, хотя, если полагать, что вызов по номеру быстрее, чем по key, то, т.к. такая полезная штука как .CollectionIndex есть токмо в DAO.Fields
