Как узнать есть ли активная форма в MDI -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [216.73.216.3]

Правила раздела Visual Basic: Общие вопросы

Здесь обсуждаются вопросы по языку Visual Basic 1-6 (а так же по схожим языкам, как, например, PowerBASIC).
Вопросы по Visual Basic .NET (это который входит в состав Visual Studio 2002/2003/2005/2008+, для тех, кто не в курсе) обсуждаются в разделе .NET.

Обратите внимание:
1. Прежде чем начать новую тему или отправить сообщение, убедитесь, что Вы не нарушаете правил форума!
2. Обязательно воспользуйтесь поиском. Возможно, Ваш вопрос уже обсуждали. Полезные ссылки приведены ниже.
3. Темы с просьбой выполнить какую-либо работу за автора в этом разделе не обсуждаются. Студенты, вам сюда: ПОМОЩЬ СТУДЕНТАМ!
4. Используйте теги [ code=vba ] ...текст программы... [ /code ] для выделения текста программы подсветкой.
5. Помните, здесь телепатов нет. Формулируйте свой вопрос максимально грамотно и чётко: Как правильно задавать вопросы
6. Запрещено отвечать в темы месячной (и более) давности, без веских на то причин.

Полезные ссылки:
user posted image

FAQ Сайта

FAQ Раздела user posted image

Кладовка

Наши Исходники user posted image

API-Guide

Поиск по Разделу user posted image

MSDN Library Online user posted image

Google

Ваше мнение о модераторах: user posted image

SCINER,

B.V.

Модераторы: SCINER, B.V.

Ссылки по теме:

Как узнать есть ли активная форма в MDI (дочерняя ес-но)

Новое голосование

Как узнать есть ли активная форма в MDI , дочерняя ес-но

Shedy	Сообщ. #1 , 07.05.05, 09:46
Member Профиль · PM Рейтинг (т): 1	Нужно узнать есть ли активная дочерняя форма в MDIform.

Vasya2000

Сообщ. #2 , 10.05.05, 11:43

Master

Профиль · PM

Поощрения: 15 Dgm

Рейтинг (т): 71

WM_MDIGETACTIVE

Добавлено 10.05.05, 12:41
Необходимые объявления АПИ

Private Const GW_CHILD = 5

Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Const WM_MDIGETACTIVE = &H229

Вызов:

Dim hwndChild As Long

hwndChild = SendMessage(GetWindow(Me.hwnd, GW_CHILD), WM_MDIGETACTIVE, 0, 0)

hwndChild - хэндл активного дочернего MDI-окна.
Если 0 - активного окна нету.

Dr._S	Сообщ. #3 , 10.05.05, 17:44
Senior Member Профиль · PM Поощрения: 3 Dgm Рейтинг (т): 35	Shedy, можно проще, без апи, вот пример: Прикреплённый файл______________.rar (2.46 Кбайт, скачиваний: 162)

Shedy	Сообщ. #4 , 10.05.05, 18:59
Member Профиль · PM Рейтинг (т): 1	спасибо большое

1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,3450 ] [ 15 queries used ] [ Generated: 15.09.25, 21:03 GMT ]