VBA + Exce l+ UserForm - Как найти хендл формы?

Узнай цену своей работы

Формулировка задачи:

Нужно сделать пользовательскую форму поверх всех окон. Столкнулся с первой проблемой - как найти ее хендл. (так чтобы форма была сверху, даже когда эксель свернутый в значок)
Спасибо всем кто знает!

Решение задачи: «VBA + Exce l+ UserForm - Как найти хендл формы?»

textual
Листинг программы
<font color="blue">Private</font> <font color="blue">Declare</font> <font color="blue">Function</font> GetAncestor Lib <font color="teal">"user32"</font> ( _
   <font color="blue">ByVal</font> hWnd <font color="blue">As</font> <font color="blue">Long</font>, <font color="blue">ByVal</font> gaFlags <font color="blue">As</font> <font color="blue">Long</font>) <font color="blue">As</font> <font color="blue">Long</font>
<font color="blue">Private</font> <font color="blue">Const</font> GA_PARENT = <font color="darkblue"><b>1</b></font>
<font color="blue">Private</font> <font color="blue">Const</font> GA_ROOT = <font color="darkblue"><b>2</b></font>
<font color="blue">Private</font> <font color="blue">Const</font> GA_ROOTOWNER = <font color="darkblue"><b>3</b></font>

<font color="blue">Private</font> <font color="blue">Sub</font> CommandButton1_Click()
 Debug.<font color="blue">Print</font> Hex$(GetAncestor(Frame1.[_GethWnd], GA_ROOT))
<font color="blue">End</font> <font color="blue">Sub</font>

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.692 из 5
Похожие ответы