Доброе время суток господа садмины и сусопы !
Имею
Set Items = cmBars.Controls.Add(msoComboEdit)
Items.Tag="Hello"

Как ли при таких входящих параметрах определить
HDC и HWND обьекта Items ?

Спасибо !

А если через API GetProp попробывать
Ну Hwnd может не быть
Но HDC наверняка должен быть ......

Спасибо !

Прошу прощения за отсутствие - были проблемы со связью
Как говорили связисты
- спутник сошел с орбиты (сбили арабы)
- телеф. колодязь залило фикальными водами (снова арабы ...........)
- снижение температуры по Украине привело к изменению принципа
электронно-дырочной проводимости кремния.............
- и т.д. и т.п.

Hwnd в Cpy++ у меня появляеться если был хоть один перенос фокуса
Если обьект еще не был активен - Hwnd нет (по иерархии окон искал - НЕТУ)
А из параметров (указатель на обьект и Tag обьекта) получить эту HDC невозможно ?

Set Items = cmBars.Controls.Add(msoComboEdit)
Items.Tag="Hello"

"Вообще, в курсе, что такое одно и другое................"

Вы правы - что есть Hwnd - видел, понимаю - указатель на окно представленный в виде
уникального длинного целого числа

Что есть HDC - читал, догадываюсь но до конца не чувствую.......................(пардон)

"просходит в VBA, а там у контролов hwnd нет....."
Абсолютно точно в приложении Outlook - это элемент CommandBar...............

Хочу в координатах Add.Controls сделать так ................... (погнать закраску)
но нужен HDC - как его найти .............. ?

Private Const COLOR_HIGHLIGHT = 13
Private Declare Function GetSysColorBrush Lib "user32" (ByVal nIndex As Long) As Long
Private Declare Function FillRect Lib "user32" (ByVal hdc As Long, lpRect As Rect, ByVal hBrush As Long) As Long

Private Sub .........................
Dim R As Rect
I = I + 10
R.Left = 10
R.Top = 10
R.Right = 10 + I
R.Bottom = 50
Call FillRect(Hdc, R, GetSysColorBrush(13))
End Sub

Его возможно получить через ......
Private Declare Function ApiGetActiveWindow Lib "user32" Alias "GetActiveWindow" () As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal

H = FindWindowEx(ApiGetActiveWindow, 0, "MsoCommandBarDock", "MsoDockTop")
H = FindWindowEx(H, 0, "MsoCommandBar", "FTP_FOSS")

но если в обьекте Controls.Add(msoComboEdit) в текущем сеансе не было фокусе
искать это окно невозможно ..... проверял ...

А по координатам обьекта можно найти его HDC
(координаты можно вычислить CommandBars.Left+Controls().Left ???????????)

Файл - копия экрана
Вторая панель сверху - это панель FTP_FOSS
Второй Control слева - это обьект msoControlEdit (представлен константой = 2)
Это из стандартного набора компонентов Office

(неверно в исходном варинте
Set Items = cmBars.Controls.Add( msoComboEdit )
читать как
Set Items = cmBars.Controls.Add( msoControlEdit )
но значение константы правильное
)

Private Const msoControlButton = 1
Private Const msoControlEdit = 2
Private Const msoControlDropdown = 3
Private Const msoControlActiveX = 22
Private Const msoComboNormal = 0
Private Const msoComboLabel = 1
Private Const msoButtonCaption = 2

Вошел в Outlook - запуск Cpy++ обьекта msoControlEdit не виден - рисунок 1
Теперь перевел фокус просто походил по обьектам панели (запуск Cpy++) Hwnd виден рисунок 2
Т.е эпизодическая инициализация (до востребованию)....
Так базировать програмнный код не есть хорошо.......

Hello - взываю к диалогу....