Создать объект приватного класса

[Alexanbar]

Проект (Standard.exe)содержит приватные классы Class1,Class2....

В процессе выполнения программы нужно создать объект одного из классов по строке, содержащей имя класса.

Для классов из ActiveX.Dll достаточно вызвать ф-ю CreateObject.


Можно, конечно, пойти ломовым путем, перебрав все имена классов проекта, и сравнить с образцом:

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

Select Case strClassName
   case "Class1"

      Set Obj=New Class1
.......

Или, скажем, создать ActivX.Dll, и превратить приватные классы в глобальные. Другие варианты есть?

[Antonariy]

Тоже задавался этим вопросом. Насколько понял из объяснений, теоретически это возможно, но настолько сложно, что лучше не надо. Сделал классы публичными (у меня сразу была dll) и забыл об этой проблеме.

[Sebas]

Вот не пробовал, а Type Lib к ехе прикурутить никак?

[Денис]

Можно, конечно, пойти ломовым путем, перебрав все имена классов проекта, и сравнить с образцом

Насколько я понимаю, это функция-перечислитель (enumerator). Вполне годный метод, когда надо получить класс по его текстовому описанию. Единственное неудобство: в такой функции надо следить за списком классов и при добавлении нового, добавлять в select case

[Antonariy]

Вот не пробовал, а Type Lib к ехе прикурутить никак?

Нет. В tlb описываютсяя интерфейсы, их имена ничем не помогут.

[Vi]

Можно уйти от "ломового пути", но совсем автоматизировать не удастся:

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

Public class1 As New class1
Public class2 As New class2
Public class3 As New class3
' ...

Private Sub Command1_Click()
  Dim o As Object
  On Error Resume Next
  Label1.Caption = ""
  Set o = CallByName(Me, Text1.Text, VbGet)
  Label1.Caption = TypeName(o)
End Sub


[Sebas]

Вот не пробовал, а Type Lib к ехе прикурутить никак?

Нет. В tlb описываютсяя интерфейсы, их имена ничем не помогут.

я про библиотеку Type Library ... (под рукой нет полного названия), которая позволяет работать а-ля рефлекшн в .NET

[alibek]

я про библиотеку Type Library ... (под рукой нет полного названия), которая позволяет работать а-ля рефлекшн в .NET

TLI, Type Library Information.
Только не уверен, что она будет видеть приватные типы.

Vi дал оптимальный совет (как всегда ). Только в качестве вспомогательного класса лучше использовать не форму, а именно класс.

[tyomitch]

я про библиотеку Type Library ... (под рукой нет полного названия), которая позволяет работать а-ля рефлекшн в .NET

TLI, Type Library Information.
Только не уверен, что она будет видеть приватные типы.

Не будет.