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>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д