Как закрыть ActiveX документ?

[Хемуль]

В смысле, как это сделать программно. Unload Me не идет, так как ActiveX документ не ведает, что такое Me, в отличии от формы.
Т.е. по сути вопроса - что написать в кнопке, чтобы закрыть саму форму.

[Konst_One]

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

Unload me.Parent

[ANDLL]

ActiveX документ или ActiveX контрол? Это разные вещи...
Впрочем, ответ будет один: определять hwnd родительского окна(GetParent и его сородичи) и закрывать его(DestroyWindow).

2Konst_One:А если родитель не VBшная форма?

[Konst_One]

тогда

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

Unload Me.Parent.Parent

и тд и тп

[ANDLL]

Ты не понял.
Если родитель вообще никакого отношения к VB не имеет?
Скажем это WebBrowser(что очень вероятно в случае с ActiveX document) или еще какая-то Cшная программа.
В этом случае опреатор Unload не будет работать.
Как наиболее простой вариант можно использовать

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

DestroyWindow (Parent.hWnd)

Правда этот код будет работать при условии, что контейнер предоставляет доступ к этому свойству.

[Хемуль]

Речь идет именно об ActiveX-документе. Родителем является программа 1С.
На DestroyWindow бейсик ругается что такая функция не определена

[ANDLL]

Ну так объяви:

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

Private Declare Function DestroyWindow Lib "user32" Alias "DestroyWindow" (ByVal hwnd As Long) As Long

[Хемуль]

Огромное спасибо!
Именно DestroyWindow (Wnd) мне и помогло!