Найти hwnd контрола

[dear]

В VB у кнопок можно найти ее хэндл: button.hwnd, в Corel VBA этого не нашел.
Плохо искал, или это можно сделать только через API?

 

[Sanchos]

Ответ: Найти hwnd контрола

Через API. Ищи в гугле "hwnd VBA", или что то в этом духе

 

[dear]

Ответ: Найти hwnd контрола

Жаль, хотелось чуть попроще. Будем делать через API. Спасибо за совет

 

[Sanchos]

Ответ: Найти hwnd контрола

Для формы ищется вот так

Private Declare Function FindWindowExW& Lib "user32" (ByVal hParent&, ByVal hChildAfter&, ByVal lpClassW&, ByVal lpTitleW&)

Dim sanUI&
meCap = Me.Caption
Me.Caption = Me.Caption & Hex$(Now) & Hex$(Timer)
sanUI = FindWindowExW(0, 0, StrPtr("ThunderDFrame"), StrPtr(Me.Caption))
Me.Caption = meCap

 

[dear]

Ответ: Найти hwnd контрола

Да, я пробовал, все получается,спасибо. Но почему-то не могу найти hwnd кнопки - и его не показывает ни WinDowse, ни Winspector, а только hwnd основной формы

 

[JAW]

Ответ: Найти hwnd контрола

Для формы ищется вот так

...
Dim sanUI[COLOR=Red]&[/COLOR]
meCap = Me.Caption
...

Извиняюсь за тупой вопрос... Давно программированием не занимался. Очень давно.
Но выделенное красным что за фигня?
Понятно что амперсант, но в каком смысле?

 

[Sanchos]

Ответ: Найти hwnd контрола

& заменяет As Long

А по поводу hwnd ищите лучще, я кажется где то натыкался случайно, когда искал как рисовать битмапы на ВинАПИ.

dear ответь на вопрос в личке