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

**Крост** » 21.08.2005 (Вс) 22:48

BV
SetParent - конечно проверял.....форма (вторая) внутри первой получается, т.е. как MDIшная...мне эт нафиг не надо...=)

**Naked** » 26.08.2005 (Пт) 9:11

Крост ты решил свою проблему?
а то мне тоже такое стало нужно

мож добрые дяденьки помогут, а?

**Крост** » 26.08.2005 (Пт) 13:03

Не, не решил...=(

**Naked** » 29.08.2005 (Пн) 6:12

видать никто не в силах это сделать...

BV » 29.08.2005 (Пн) 14:19

Просто я не вижу в этом смысла.

**Konst_One** » 29.08.2005 (Пн) 14:27

все о чем ты так рассказываешь - это всего-навсего интерфейс вида MDI, и он есть в VB

**Крост** » 29.08.2005 (Пн) 18:52

Konst_One
А если топ внимательно прочитать?

Вообще, если показать форму из DLL, то получаеться то, что мне нужно..

**Naked** » 30.08.2005 (Вт) 1:03

Крост писал(а):Konst_One
А если топ внимательно прочитать?

Вообще, если показать форму из DLL, то получаеться то, что мне нужно..

дай поглазеть, мож что-нибудь переделаю

**Крост** » 30.08.2005 (Вт) 2:07

Naked
Лови..=)

Зарегистрируй дллку, и запусти проект 2.

**Naked** » 30.08.2005 (Вт) 2:37

нда, при запуске в бэйсике работает, но не так как положено
создал exe, вообще перестало пахать

**Крост** » 30.08.2005 (Вт) 2:42

Naked
Эм...в смысле?

**Крост** » 30.08.2005 (Вт) 2:43

На пальцах:

Создай ActiveX Dll, добавь туда форму. В классе напиши процедуру (публичную), показывающую эту форму. Откомпилируй, создай обычный exe проект, подключи библиотеку, объяви класс, вызови процедуру....переключайся между формами и смотри на панель задач...=)

**Naked** » 30.08.2005 (Вт) 2:55

нууу, я так и сделал

**Крост** » 30.08.2005 (Вт) 3:01

Так что не работает?

**Naked** » 30.08.2005 (Вт) 3:05

неа, не хочет

**Крост** » 30.08.2005 (Вт) 3:10

Я не спрашиваю работает или нет, спрашиваю что именно не работает?

И.... Если мой проект не работает, создай свой, как выше описанно ("На пальцах")..=)

**Naked** » 30.08.2005 (Вт) 3:29

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

**Крост** » 30.08.2005 (Вт) 3:32

Хм...у меня нет....странно...=(

**Крост** » 30.08.2005 (Вт) 3:35

Хм..однако то, что когда запускаешь в ВБ, форма фокус не теряет...а при запуске exe теряет..=( жаль..

**Naked** » 26.09.2005 (Пн) 2:58

Крост, у меня получилось, но надо еще доделать

Sub Main()

'поиск APPWINDOW
hAppWindow = FindWindow("ThunderRT6Main", vbNullString)
GWL = GetWindowLong(hAppWindow, GWL_STYLE)
Call SetWindowLong(hAppWindow, GWL_STYLE, GWL Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX)

GWLEX = GetWindowLong(hAppWindow, GWL_EXSTYLE)
Call SetWindowLong(hAppWindow, GWL_EXSTYLE, WS_EX_APPWINDOW)

'MDI
GWL = GetWindowLong(MDIForm.hwnd, GWL_STYLE)
Call SetWindowLong(MDIForm.hwnd, GWL_STYLE, GWL Or WS_POPUP)

GWLEX = GetWindowLong(MDIForm.hwnd, GWL_EXSTYLE)
Call SetWindowLong(MDIForm.hwnd, GWL_EXSTYLE, GWLEX And Not WS_EX_APPWINDOW)

'убери у всех форм WS_EX_APPWINDOW, если есть
GWLEX = GetWindowLong(ашвнд формы, GWL_EXSTYLE)
Call SetWindowLong(MDIHwnd, GWL_EXSTYLE, GWLEX And Not WS_EX_APPWINDOW)

Call ShowWindow(MDIForm.hwnd)
Form1.Show vbModeless, MDIClient
Form2.Show vbModeless, MDIClient
Form3.Show vbModeless, MDIClient
Form4.Show vbModeless, MDIClient

End Sub

ничего сложного нет, надеюсь разберешься

работает только в exe

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

Без потери фокуса.

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