Как получить список управлений, имеющих дескриптор hWnd?

[ФАНТОМНЫЙ ЮЗЕР]

Подскажите, пожалуйста, как в следующей процедуре учесть только те элементы, которые имеют дескриптор hWnd ???

Код: Выделить всё

Friend Property Get BuddyControls() As Collection
' Возвращает коллекцию, которая содержит список элементов контроля
' на родительской форме. Список содержит все контроли, кроме этого
Dim c As Control
Dim sTmp As String
Dim sMyName As String

sMyName = Ambient.DisplayName
Set BuddyControls = New Collection
For Each c In UserControl.Parent.Controls
If (TypeName(UserControl.Parent.Controls(c.Name)) = "Object") Then
sTmp = c.Name & "(" & c.Index & ")"
Else
sTmp = c.Name
End If
If sTmp <> sMyName Then
BuddyControls.Add sTmp
End If
Next c
End Property


Спасибо.

[ANDLL]

Код: Выделить всё

function Havehwnd(byval nRef as object) as boolean
on error resume next
dim nLng as long
nlng=nref.hwnd
HaveHtml=cbool(err.number=0)
end function


[tyomitch]

Код: Выделить всё

Friend Property Get BuddyControls() As Collection
' Возвращает коллекцию, которая содержит список элементов контроля
' на родительской форме. Список содержит все контроли, кроме этого
Dim c As Control
Dim sTmp As String
Dim sMyName As String

sMyName = Ambient.DisplayName
Set BuddyControls = New Collection
For Each c In UserControl.Parent.Controls
If (TypeName(UserControl.Parent.Controls(c.Name)) = "Object") Then
sTmp = c.Name & "(" & c.Index & ")"
Else
sTmp = c.Name
End If
If sTmp <> sMyName Then
BuddyControls.Add sTmp
End If
Next c
End Property


Какой ужас... А почему бы не так?

Код: Выделить всё

Friend Property Get BuddyControls() As Collection
' Возвращает коллекцию, которая содержит список элементов контроля
' на родительской форме. Список содержит все контроли, кроме этого
Dim c As Control

Set BuddyControls = New Collection
For Each c In UserControl.Parent.Controls
If TypeOf c Is MyControlName Then
If c.Object Is Me Then
Else
BuddyControls.Add c
Else
BuddyControls.Add c
End If
Next c
End Property


Или не так (в стиле "спагетти"):

Код: Выделить всё

Friend Property Get BuddyControls() As Collection
Dim c As Control

Set BuddyControls = New Collection
For Each c In UserControl.Parent.Controls
On Error GoTo Add
If c.Object Is Me Then GoTo Skip
Add: BuddyControls.Add c
Skip: On Error GoTo -1
Next c
End Property


И в последний легко встраивается код ANDLL:

Код: Выделить всё

Friend Property Get BuddyControls() As Collection
Dim c As Control, sink As Long

Set BuddyControls = New Collection
For Each c In UserControl.Parent.Controls
On Error GoTo Add
If c.Object Is Me Then GoTo Skip
Add: On Error GoTo Skip
sink = c.hWnd
BuddyControls.Add c
Skip: On Error GoTo -1
Next c
End Property


[ФАНТОМНЫЙ ЮЗЕР]

Большое спасибо за ответ.
Последний пример на строке

Код: Выделить всё

sink = c.hWnd


вызывает ошибку 438: Object doesn't support this property or method.

Как обойти?

[Andrey Fedorov]

Просто обработай ошибку

[ФАНТОМНЫЙ ЮЗЕР]

Обработка ошибки следующего вида не работает:

Код: Выделить всё

    On Error GoTo Skip ' Обработать ошибку
    sink = c.hWnd        ' Ошибка не обрабатывается; а программа приостанавливается.
    ...
Skip:
    Err.Clear
    On Error GoTo 0 ' Отмена ошибок
    next с               '  Перейти к следующему элементу
end property         ' Выйти из процедуры


Как же надо поступить?
Спасибо.

[GSerg]

Если реализовать вызов через CallByName(obj, "hWnd",...), то может начнёт ловиться?

[ФАНТОМНЫЙ ЮЗЕР]

А что это за функция CallByName(obj, "hWnd",...) ????, как ее реализовать.

[ANDLL]

Она уже реализована. Вызывает функцию по имени. IDispatch::Invoke(...)

[ФАНТОМНЫЙ ЮЗЕР]

То есть вместо

Код: Выделить всё

sink = c.hWnd

подставляю

Код: Выделить всё

sink = CallByName(c, "hWnd",...)

Так что ли???

[tyomitch]

oal, просто перед "sink = c.hWnd" напиши "On Error GoTo -1", и ошибка начнёт ловиться

[ФАНТОМНЫЙ ЮЗЕР]

А как же быть с зацикливанием алгоритма на следующих строках:

Код: Выделить всё

On Error GoTo -1
        sink = c.hWnd


Алгоритм зациклился не выходит из процедуры.

[tyomitch]

Не должно быть там зацикливания...
Ещё раз, целиком:

Код: Выделить всё

Friend Property Get BuddyControls() As Collection
Dim c As Control, sink As Long

Set BuddyControls = New Collection
For Each c In UserControl.Parent.Controls
On Error GoTo Add
If c.Object Is Me Then GoTo Skip
Add: On Error GoTo -1: On Error GoTo Skip
sink = c.hWnd
BuddyControls.Add c
Skip: On Error GoTo -1
Next c
End Property


[Andrey Fedorov]

Я бы твою функцию так переделал (оно проще, согласись):

Код: Выделить всё

Friend Property Get BuddyControls() As Collection
    Dim c As Control, i As Long

    Set BuddyControls = New Collection
    On Error Resume Next
    For Each c In UserControl.Parent.Controls
        i = 0: i = c.hWnd
        If i Then BuddyControls.Add c
    Next c
End Property

[Andrey Fedorov]

Да, проверку c.Object Is Me, конечно, надо оставить - будет:

Friend Property Get BuddyControls() As Collection
Dim c As Control, i As Long

Set BuddyControls = New Collection
On Error Resume Next
For Each c In UserControl.Parent.Controls
If Not c.Object Is Me Then
i = 0: i = c.hWnd
If i Then BuddyControls.Add c
End If
Next c
End Property