Окно стороннего приложения внутри VB-формы

[Petroid]

Помогите несмышленышу.
Как сделать так, чтобы окно другого приложения, скажем Exсel размещалось внутри созданной VB-формы. Без всяких там OLE. Просто надо чтобы окно, в том виде, как мы видим его обычно (с тулбарами, полосами прокрутки и т.д.) не выходило за пределы созданной формы.

[t116]

Использовать WinAPI-функцию SetParent


Пример. Помещение окна блокнота в окно нашей программы.

1. Создаем новый проект Standart EXE
2. Вписываем этот код в код формы:

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

Private Sub Form_Load()

    Shell "notepad.exe", vbNormalNoFocus

    N = FindWindow("Notepad", vbNullString)

    Call SetWindowPos(N, 0, 0, 0, Me.Width / Screen.TwipsPerPixelX, Me.Height / Screen.TwipsPerPixelY, &H10)

    Call SetParent(N, Me.hWnd)

End Sub


3. Создаем модуль.
4. Вписываем в него этот код:

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

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Public Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long


Запускаем.

[Twister]

Использовать WinAPI-функцию SetParent

Ну-ну. Попробуй-ка эксель СетПарентом вогнать к себе на форму. Что ты видишь? Для эксперементов можно воспользоваться моим WnDViewer'ом - http://twister.orgfree.com/projects

[t116]

Использовать WinAPI-функцию SetParent

Ну-ну. Попробуй-ка эксель СетПарентом вогнать к себе на форму. Что ты видишь?

Вижу тоже самое что и в случае с блокнотом:

[Twister]

Гм... Виста...
Я исхожу из того, что может быть конфликт адресов, или другая лабуда. Мы же, все-таки, тянем окно из чужого приложения. Достаточно переместить часики из трея к себе на форму и увидеть, как синий цвет (в случае с ХР) теряется и часики становятся черными. Вообщем, я бы этот способ не рекомендовал.

[Хакер]

Я исхожу из того, что может быть конфликт адресов, или другая лабуда.

Конфликт каких адресов? Онко при изменении парента не теряет привызки к процессу и потоку.

[Twister]

Конфликт каких адресов? Онко при изменении парента не теряет привызки к процессу и потоку.

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

[Хакер]

Это ты мне рассказываешь?

От такого вопроса я даже засомневался, а действительно ли это я?

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

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

Но не известно, как поведет себя конкретное окно в общем случае со всеми хуками, сабклассами и т.д.

Если это окно в юзерском понимании (а в юзерском понимании это такая рамочка, с синей полосочкой и кнопочками. Кнопка в их понимании - не окно), т.е. оно без стиля WS_CHILDWINDOW, то с вероятностью в 90% всё будет работать.

[Twister]

то с вероятностью в 90% всё будет работать

Вот-вот. А остальные 10 процентов могут предложить отправить отчет об ошибке к такой-то матери... И кому такое приложение будет нужно?

[Хакер]

Нет, отчёта об ошибке быть не должно. Откуда ему взяться?

[Petroid]

Я извиняюсь, но объясните, как недалёкому, как это сделать. Я в вышеуказанном примере вместо Notepad подставил путь к Excel и Word, но олкна приложения открываются вне VB-формы, в то время как в случае с Notepad окно открывается там, где надо.

[Хакер]

Я в вышеуказанном примере вместо Notepad подставил путь к Excel и Word

Мало в этой строчке менять путь:

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

Shell "notepad.exe", vbNormalNoFocus

Нужно ещё в этой строчке менять класс окна.

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

N = FindWindow("Notepad", vbNullString)

[t116]

Узнать класс интересующего тебя окна можно, например, при помощи этой утилиты.

[Хакер]

Мерзость. Мезрость потому что за названием спай плюс (косящим под Spy++ (великолепная утилита от Microsoft) ) скрывается какая-то поделка с до боли знакомым "ВуБиндом" в названии и бестолковой формой, сжирающей много рабочего пространства.

[tyomitch]

А у меня есть Spy-без-плюсов, из Win31 SDK.
Бе-бе-бе

[t116]

Какое первое слово в голову взбрело, так и назвал
И делал я эту утилиту 10 минут.

PS. Название изменил, только не бейте!

[Petroid]

Последний (опятьб же глупый) вопрос.
А как обращаться из VB к этому окну. Скажем, как получить данные из одной из ячеек, находящихся внутри длочернего окна Excel.

[Twister]

А как обращаться из VB к этому окну. Скажем, как получить данные из одной из ячеек, находящихся внутри длочернего окна Excel

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

Как вариант - создать экземпляр экселя через CreateObject, найти его окно, налепить на форму и общаться стандартным способом. Но не знаю, прокатит ли это после такого изврата с окном.