Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Цикл Добавлено: 01.04.03 00:24  

Автор вопроса:  Matrix | Web-сайт: delta-net.narod.ru
3-й день не могу наладить цикл. рограмка должна искать hwnd окна, и проверять, есть ли у этого окна Child'ы. Если есть - то записать и проверить на наличие Child'a это окно. И т.д.

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 Иван



Администратор

ICQ: 147688925 

Вопросов: 24
Ответов: 708
  Web-сайт: www.vbnet.ru
 Профиль | | #1 		Добавлено: 01.04.03 23:16

Примерно так можно перебрать все окна системы:

    hWnd = GetWindow(GetDesktopWindow, GW_CHILD)
    Do While hWnd <> vbNull
    'Запросить заголовок найдениго окна
        sWindowText = WindowTextLineFromWnd(hWnd)
        If sWindowText <> Empty Then
        'Нужное нам окно видимое, с названием и без потомков
            If IsVisibleTopWnd(hWnd, False, False, False) Then
            'вот тут все верхние окна
                 if GetWindow(hWnd, GW_CHILD) <> vbNull then
                    'вот это окно с дочками
                 end if
            End If
        End If
    'Следующее окно этого же уровня
        hWnd = GetWindow(hWnd, GW_HWNDNEXT)
    Loop

 

Declare для функций API напиши сам. Ок?

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам