tesia2003 Victosha1) для того, чтобы объявления интерфейсов классов были видимыми,
Instancing класса должен быть PublicNotCreatable
2) Создавать экземпляры таких классов нужно функциями, помещенными в публичный (не private) обычный модуль
Спасибо.
Не понял, как выполнить условие 1)
У меня классов 200 штук, которые вызываются на каждом шагу - это что, еще 200 штук функций писать надо? или я чего-то не понял?
если ты выполнишь подобны экспорт-импорт, оно само таким станет
иначе, если акцесс 2000 и старше, то - в оне редактора жми Ctrl-R - появится окно эксплорера проекта со списком классов/модулей,
далее жми F4
появится окно свойств
далее в эксплорере выбираешь нужный класс
во второй строке свойств класса (Instancing) через комбобокс выбираешь PublicNotCreatable
дальше заводишь обычный модуль в библиотечном проекте
и пишешь в нем функцию
1.
2.
function createMyClass As MyClass
set createMyClass = new MyClass
end function
что получаешь в итоге:
методы классов объявленных как PublicNotCreatable могут быть (и хорошо если будут) пустыми, без реализации.
каждому такому классуу может соответствовать произвольное количество внутренних, не видимых снаружи классов, каждый из которых реализует поведение заявленного интерфейса с применением ключевого слова
Implements
Твоя порождающая функция тогда может быть записана так
1.
2.
function createMyClass As MyClass
set createMyClass = new MyInternalClass
end function
еще замечание - все функции, записанные в обычном модуле библиотеки будут видны с клиента.
Если тебе нужно скрыть часть функций, размести их в модуле, в объявлениях
которого содержится предложение
