Как по имени объекта получить сам объект и его дескриптор?

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

Имеется некоторый список объектов.
В этом символьном списке выбираешь требуемый и требуется получить его дескриптор hWnd.

Подскажите, пожалуйста, как это осуществить при помощи API

[ANDLL]

Что такое объект? И что за символьный список?

[Andrey Fedorov]

Может имеется в виду:

me(ControlName).hWnd ???

Только не все контролы имеют hWnd...

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

Так именно. Не все элементы имеют дескриптор. Поэтому в программе именно эти элементы надо пропустить, а учесть только те элементы, которые имеют дескриптор.
Имеется следующая процедура в UserControl:

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

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=UserControl,UserControl,-1,Controls
Friend Property Get BuddyControls() As Collection
' Возвращает коллекцию, которая содержит список элементов контроля
' на родительской форме. Список содержит все контроли, кроме этого
Dim sMyName As String
Dim c As Control
Dim sTmp As String
Dim sink As Long

     sMyName = Ambient.DisplayName
     Set BuddyControls = New Collection
     For Each c In UserControl.Parent.Controls ' Обработать все элементы формы
     If c.Object Is Me Then GoTo Skip
Add: On Error GoTo Skip ' При возникновении ошибки, ее обойти
     sink = c.hWnd ' Получить дескриптор любого элемента управления (в том числе и без дескриптора)
     sTmp = c.Name
     If sTmp <> sMyName Then
         BuddyControls.Add sTmp
     End If
Skip: On Error GoTo -1
    Next c
End Property


Таким образом на строке

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

sink = c.hWnd

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

Как же быть????

[Andrey Fedorov]

Ну что тут сложного:

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

Dim c As Control, iHWnd As Long
   
On Error Resume Next
For Each c In UserControl.Parent.Controls
    iHWnd = 0: iHWnd = c.hWnd
    Debug.Print c.Name, iHWnd
Next c

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

Не работает... VB6 выдает ошибку 438!!!!

[Andrey Fedorov]

А что у тебя установлено в Tools/Options/General/Error Trapping ?

[tyomitch]

Andrey, всё дело в том, что такой код:

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

On Error GoTo 1
Error 123
1: On Error GoTo 2
Error 234
2: Debug.Print "не напечатается"


- не работает, т.к. нельзя устанавливать "вложенные" обработчики.

А вот такой - работает:

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

On Error GoTo 1
Error 123
1: On Error GoTo -1: On Error GoTo 2
Error 234
2: Debug.Print "напечатается!"


[Andrey Fedorov]

- не работает, т.к. нельзя устанавливать "вложенные" обработчики.

Не знаю - работает он или нет - проверять как-то не интересно было - ибо я так не пишу по определению. А вот свой вариант перед отправкой на всякий случай проверил - он точно работает... И зачем его еще накручивать?

[tyomitch]

Andrey, ты таки не понял, из-за чего все глюки...
Твой код у oal вызывается в обработчике, и пытается установить свой обработчик. Потому и не работает.
В отдельной процедуре он, вполне может быть, работает - не проверял. А вот свои два примера я перед отправкой на всякий случай проверил - они точно работают...