Основы офисного программирования и язык VBA


Пример 6.8


Public Sub GetCaptions()

'Вызов Win32 API функции EnumWindows,

'вызывающей в свою очередь Callback функцию EnumWindowsProc

Dim item As Variant

Dim Res As Long

Res = EnumWindows(AddressOf EnumWindowsProc, 0&)

'Обработка глобальных переменных, определенных в

'результате совместной работы EnumWindows и EnumWindowsProc

Debug.Print "Число окон = ", HandleCol.Count

Debug.Print "Описатели окон"

Res = 0

For Each item In HandleCol

Debug.Print item

Res = Res + 1

If Res > 10 Then Exit For

Next item

Debug.Print "Число окон с заголовками= ", CaptCol.Count

Debug.Print "Заголовки окон"

Res = 0

For Each item In CaptCol

Debug.Print item

Res = Res + 1

If Res > 10 Then Exit For

Next item

Debug.Print "Число окон, возвращающих класс = ", ClassNameCol.Count

Debug.Print "Имена классов окон"

Res = 0

For Each item In ClassNameCol

Debug.Print item

Res = Res + 1

If Res > 10 Then Exit For

Next item

End Sub




Начало  Назад  Вперед