Свойство Parent в ActiveX DLL

[maxV]

Как можно установить ссылку свойства Parent на объект, в котором был создан экземляр класса Project1.Class1?

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

Option Explicit

Private mvarParent As Object

Public Sub Run()
    'ВОПРОС
    'Set Parent = объект, в котором был создан экземпляр класса
End Sub

Public Property Set Parent(ByVal vData As Object)
    If Parent Is Nothing Then
        Set mvarParent = vData
    Else
        MsgBox "Parent уже установлен"
    End If
End Property

Public Property Get Parent() As Object
    Set Parent = mvarParent
End Property

[ANDLL]

Set Экземпляр.Parent=Me

[tyomitch]

Set Экземпляр.Parent=Me

...и неубиваемый объект получен

[ANDLL]

Set Экземпляр.Parent=Me

...и неубиваемый объект получен

К чему такая уверенность?

[tyomitch]

Ну так ведь циклическая ссылка

[ANDLL]

Где?
Этот код вызывается не в Экземпляре класса, а в каком-то другом классе.

[tyomitch]

Где?
Этот код вызывается не в Экземпляре класса, а в каком-то другом классе.

А, ясно
Я стормозил.

Но всё равно, maxV-то надо в Экземпляре.

[maxV]

Маленько пропустил. Телефон не работал
Дело в том, что Public Sub Run() - глобальный метод класса. Метод является предопределенным запускающим ("входной точкой") OLE-приложения. Нужно определить Parent-объект другого приложения, в котором был создан экземпляр моего класса.
Так, что tyomitch прав.

[maxV]

Суть такова. Есть готовое приложение. К нему есть возможность подключать свои OLE-приложения.
Т.е. в приложении создается экземляр моего класса и Public Sub Run() в классе является "входной точкой" для запуска.

[tyomitch]

Может быть, передавать Parent-а параметром в Run?

[maxV]

Я не могу залесть в чужой exe.
Но я уже решил проблему подругому. Мне Parent нужен был для доступа Public методам и свойствам родительского приложения. Еще на раз перечитал "доку" к приложению и осенило.
Суть такова:
к соему проекту через References добавляю ихний exe-файл. И создаю класс с Public медодами и свойствами этого приложения.
Примерно так(код моего OLE-приложения):

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

Option Explicit

Public Sub run()
Dim objExe As exe.Class1
    Set objExe = CreateObject("exe.Class1")
    objExe.StatusBar="тра-та"     ' и примерно так доступ к основным объектам родительского приложения
End Sub