Конференция VBStreets

**Ol1965** » 17.07.2007 (Вт) 15:13

Добрый день,
вопрос может оказаться не правильно построенным, но постараюсь быть точен. Заранее извините. Вопрос: есть приложение (скажем MS Excel, но может быть и другим Access, 1C ...), нужно при необходиости (необходимость задается средствами MS Excel) показывать форму разработаную на VB6. Объекты в форме динамически меняются (реализовано в VB6). Каким образом готовый проект в VB6 загрузить, описать в Excel. Где хотя бы начать искать в поисках ответа. Заранее спасибо.

**tyomitch** » 17.07.2007 (Вт) 15:26

Масса вариантов: например, создать ActiveX Control и положить его на экселевскую юзерформу; или, например, создать ActiveX DLL/EXE, который будет показывать свою форму, и подключить его.

**Ol1965** » 18.07.2007 (Ср) 9:09

Спасибо, тема закрыта.

**Ol1965** » 19.07.2007 (Чт) 16:03

Еще один вопрос. В созданной DLL есть форма. При открытии ее из тест-программы (ЕХЕ-проект), эта форма открывается автономно, т.е. не зависимо от формы тест-программы. А возможно ли открыть ее внутри формы вызывающей тест-программы. Ох и намудрил!!! Заранее спасибо.

**Andrey Fedorov** » 19.07.2007 (Чт) 16:21

Точно помню что делал чтобы форма открывалась модально по отношению к Excel (не внутри окна, но тоже нормально). Но вот хоть убей не помню в каком из проектов и как...

Напомните кто может...

**Konst_One** » 19.07.2007 (Чт) 16:51

API: SetParent

**Хакер** » 19.07.2007 (Чт) 18:33

Модально...

**EUGY** » 19.07.2007 (Чт) 23:26

Согласно MFC (BeginModalState) модальное окно при открытии заносит в массив хендл родителя и хендлы других child popup уведомляет их WM_DISABLEMODAL (наверное, на всякий случай - вдруг чего ответят) и блокирует их с помощью EnableWindow, а при закрытии (EndModalState) разблокирует.

Вот как-то так.
SetParent Form1.hwnd , Application.Hwnd
EnableWindow Application.Hwnd, 0
Form1.show
...

**tyomitch** » 19.07.2007 (Чт) 23:43

MFC никому не указ... Там сделано одним способом, в делфи другим, может быть в VB третьим...

Дизаблить родителя мало: надо ещё, чтобы по клику по нему фокус передавался активному модальному потомку, чтобы было как будто по-настоящему.

**Хакер** » 19.07.2007 (Чт) 23:47

EUGY
Ты хоть бы опробовал свой код... перед тем как его постить.

**EUGY** » 20.07.2007 (Пт) 0:04

перед тем как его постить

А что нужно от sub до end sub? Намека на код, Вам, уважаемый Хакер, не достаточно?
Каким способом сделана модальность в vb нам MSDN не говорит.
Но то что окно блокирует родителя очевидно.

**Хакер** » 20.07.2007 (Пт) 0:07

EUGY

Но то что окно блокирует родителя очевидно.

Да.

Но очевидно ли тебе, что быть чилдом окна, и быть модальным окном - абсолютно разные вещи? Хотя бы тем, что модальное окно не ограничено клиентской частью владельца?

**EUGY** » 20.07.2007 (Пт) 0:08

tyomitch писал(а):надо ещё, чтобы по клику по нему фокус передавался активному модальному потомку.

А именно так и произойдет. Windows это сама делает.

**tyomitch** » 20.07.2007 (Пт) 0:12

EUGY писал(а):
tyomitch писал(а):надо ещё, чтобы по клику по нему фокус передавался активному модальному потомку.

А именно так и произойдет. Windows это сама делает.

Не верю. Потому что у дизабленного окна может быть два потомка одного уровня, и ей неоткуда узнать, который из них активный.

**EUGY** » 20.07.2007 (Пт) 0:19

EUGY писал(а): и хендлы других child popup ..

И насчет моего прокола по SetParent... Sorry..
GWL_HWNDPARENT

**Matew** » 20.07.2007 (Пт) 5:17

Вопрос: А как сделать SetParent или другие действия с родителем, если язык, на котором вызвана dll не поддерживает Hwnd вприципе?

**keks-n** » 20.07.2007 (Пт) 10:51

Matew
Сделать на другом языке ActiveX Control, который определяет своего родителя и кинуть в контейнер.

**Matew** » 23.07.2007 (Пн) 1:20

keks-n, я так понимаю в контейнер на форме родителя? А если язык не поддерживает ActiveX Control-ы? (1С например, который есть в вопросе Ol1965-а)

**Хакер** » 23.07.2007 (Пн) 1:23

Язык не может поддерживать или не поддерживать ActiveX контролы, ровно как и Hwnd. Среда или там платформа - я ещё пойму. Но язык...

**keks-n** » 23.07.2007 (Пн) 16:23

Хакер
На VBA до hWnd формы не достучишся

**tyomitch** » 23.07.2007 (Пн) 17:27

Отдельные умельцы достукиваются при помощи FindWindowEx.

**Iwanoffъъ** » 07.12.2007 (Пт) 1:09

На тему OLE, но несколько другой вопрос...
Допустим, что запущено 2, 3, 4 и т.д. экземпляров, к примеру, того же Exel... При помощи

Dim xlApp As Object
Set xlApp = GetObject(, "Excel.Application")

проектируемое приложение подключится к первому же из запущенных экземпляров Exel... А как лучше сделать, чтоб подключить ко второму или третьему или т. д.? И может даже вывести список всех открытых копий Exel?

**alibek** » 07.12.2007 (Пт) 9:14

Если вызывать GetObject несколько раз, то ты будешь подключаться к разным инстансам.
Правда подтверждения этому в MSDN я не нашел, но где-то такое читал.

**Iwanoffъъ** » 09.04.2008 (Ср) 20:45

alibek писал(а):Если вызывать GetObject несколько раз, то ты будешь подключаться к разным инстансам.
Правда подтверждения этому в MSDN я не нашел, но где-то такое читал.

Вот и я не нашёл... И экспериментальным путём получается так, что если запущены несколько копий программы, то все действия совершаются с первой из запущенной... Прошло три месяца, а ответ и ныне там...

Конференция VBStreets

OLE связь другого приложения с приложением на VB6

OLE связь другого приложения с приложением на VB6

Кто сейчас на конференции