На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Поиск Участники Календарь Избранное RSS
msm.ru
! Правила раздела 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 Сайта user posted image FAQ Раздела user posted image Кладовка user posted image Наши Исходники user posted image API-Guide user posted image Поиск по Разделу user posted image MSDN Library Online user posted image Google
Ваше мнение о модераторах: user posted image SCINER, user posted image B.V.
Модераторы: SCINER, B.V.
Ссылки по теме:
  
> Как узнать есть ли активная форма в MDI , дочерняя ес-но
Shedy
Сообщ. #1 ,

    Member
    **
    Профиль · PM
    Рейтинг (т): 1
    Нужно узнать есть ли активная дочерняя форма в MDIform.
    Master Vasya2000
    Сообщ. #2 ,
      Master
      ******
      Профиль · PM
      Поощрения: 15 Dgm
      Рейтинг (т): 71
      WM_MDIGETACTIVE

      Добавлено
      Необходимые объявления АПИ
      ExpandedWrap disabled
        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


      Вызов:
      ExpandedWrap disabled
        Dim hwndChild  As Long
        hwndChild = SendMessage(GetWindow(Me.hwnd, GW_CHILD), WM_MDIGETACTIVE, 0, 0)


      hwndChild - хэндл активного дочернего MDI-окна.
      Если 0 - активного окна нету.
      Dr._S
      Сообщ. #3 ,

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

          Member
          **
          Профиль · PM
          Рейтинг (т): 1
          спасибо большое
          1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
          0 пользователей:


          Рейтинг@Mail.ru
          [ Script execution time: 0,0195 ]   [ 15 queries used ]   [ Generated: 5.11.25, 16:18 GMT ]  
          Powered by Invision Power Board(U) v1.2 © 2003  IPS, Inc.