Создание объекта по имени класса

[Antonariy]

Есть dll с кучей приватных классов (около сотни) и публичным, который получает строку - название приватного класса. Чтобы не городить лестницу типа

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

select case classname
Case "Class1": set obj = New Class1
Case "Class2": set obj = New Class2

хочется сделать что-то типа CreateObject(classname), однако CreateObject в данном случае не канает. Существует ли выход из положения без объявления классов как public multiuse?

[alibek]

А я бы использовал Implements.

[Antonariy]

Как Implements поможет создать объект по имени класса?
Dim obj as Inteface не отменяет лестницы.

[alibek]

Это я неправильно вопрос понял.
А Select Case не нравится только из-за того, что набивать много? Или есть еще причины?

[Antonariy]

Все уже набито, и это и есть основная причина. В изначальном виде код был собран в десятке модулей (размер исходников 8,29 мб!!!) и кое-где даже стали вылезать ограничения вб на размер модулей, процедур и даже количество case-элементов. Такой код сложно модернизировать и просто невозможно с ним работать в группе. Сейчас занимаюсь рефакторингом. Хочется ужать код - таких лестниц там навалом. Уже раскидал скриптом главную лестницу по классам, теперь нужно научиться создавать из них объекты.

[alibek]

Даже сходу и не скажу.
Но может тогда просто сгруппировать объекты?
Типа Set obj = Catalog("Customers").Object("Class2")
Конечно тот же Select, но его читать будет проще.

[Antonariy]

Не подходит. За сеанс создается лишь один из классов, хранить остальные нигде не нужно.

[ALX_2002]

Поглядел в нете. Спросил Tyomitch-а. Новости не особо радужные, но всё же:

1) Создание классов таким образом невозможно из-за того, что в VB не сохраняются метаданные. О как Ничё про это не знаю. Буду читать

2) Есть мысль реализовать это криво. Через MSScriptControl. Загрузив в него код классов. Тогда их можно будет создавать по имени.

3) Переделать все классыв UserControl-ы. И создавать их через Controls.Add

Возможно ошибаюсь, но это пока всё что пришло в голову.

[Antonariy]

1) Это означает, что в exe не сохраняются имена приватных классов.
2) Не подходит из-за невысокой скорости.
3) Не подходит потому что это IIS-библиотека.
Придется делать multiuse.

[Хакер]

Способ есть.

А что дальше предполагается делать с объектом?

[Antonariy]

Выполнить метод и забыть о нем.

[Хакер]

Позднее связывание?

[Antonariy]

Позднее связывание возможно только при multiuse и как раз это я сейчас и делаю. Просто надеялся на существование какого-нибудь хитрого способа для создания именно приватного объекта по имени.

[Хакер]

Позднее связывание возможно хоть когда, в том числе и для Private классов.

(Если вдруг не веришь, создай два Private-класса, присваивай их поочерёдно [As Object]-переменной и черз неё вызывай их методы. Вызываются? -- Позднее связывание)

Вобщем, хитрый способ для создания именно Private классов есть.

Функция __vbaNew из msvbvm60.dll является воплощением (в статье ув. тов. GPcH написано, что это, якобы, аналог API-функции DialogBox. ЛОЛ) оператора New.

Это (к счастью) StdCall функция и её можно Declare .... As Object. В качестве аргументов принимает юнион с информацией о классе.

Т.е.

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

Declare Function VbaNew Lib "msvbvm60" alias "__vbaNew" (Byval epiClassInfo as long) as object


...


Dim my_obj as object
Set my_obj = VbaNew(...)

my_obj.SomeMethod

...
Set my_obj = Nothing


[Antonariy]

Верю
Как-то выпало из головы, что объявление as object это тоже позднее связывание даже при наличии референсов.

А какой параметр она принимает? Указатель на строку? Будет ли это работать в скомпилированном виде учитывая 1)?

[Хакер]

В скомпиленном будет, а вот будет ли в IDE - не знаю. Принимает не указатель на строку, а указатель на инфу о классе, т.е. на большую структуру, состоящую из кучи указателей на указатели на кучу других указателей (я не знаю, насколько глубока эта цепочка).

В скомпилированном проекте эта информация будет валяться в адресном пространстве процесса, взять её оттуда не будет составлять труда (не пробовал, может и будет).

В IDE надо проверять. Ушёл проверять.

[Antonariy]

Жестокий способ. Не стоит овчинка такой выделки. Прятать классы сильной нужды нет, пусть остаются multiuse.

[Хакер]

Проверил: в IDE этот механизм работать не будет. Но если ActiveXDLL - то я не вижу в нём большой необходимости. Разве что для Immediate-кода.

[Antonariy]

ВБстритные прогеры настолько суровы, что создают объекты через __vbaNew

[Хакер]