В hook-нутом Common Control за-hook-нутые контролы не ловят Get Focus by TAB - VB

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

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

С рисунком проще объяснить.
То что справа-это PictureBox (или Frame,не суть) напичканный элементами
Создается так:

Settings -это бывшая кнопка Help, переименованная, hook-нутая и move-нутая.
В Settings Tab-ом можно прийти без проблем, например.
А вот то что внутри Picturebox, туда клавиатурой не дойти.
Как сделать так чтоб TabStop были как бы общие для Original и Post-Implemented контролов.
Я естественно уже пытался впихивать элементы по одному вместо "Рамки-картинки" (это кстати замучаешься, но не суть). С фокусом у них все нормализуется, но при этом они могут вести себя неадеквато, скажем Option1/Option2 вообще работать не будут, а чего-нибудь другое может не срабатывать или не дай бог наделять себя ф-циями какого-нибудь Open/Cancel. Посему мой вариант Оптимальный, т.к. он не глючит с функционалом да и легко модифицируется.
Но все таки:

как сделать Фокус по TAB для выделенных элементов?


Решение задачи: «В hook-нутом Common Control за-hook-нутые контролы не ловят Get Focus by TAB»

textual
Листинг программы
<font color="blue">Sub</font> Main()
 <font color="blue">Dim</font> frm <font color="blue">As</font> <font color="blue">New</font> Form1
 frm.Show
 Form1.Show
 Form1.Command1.Caption = <font color="teal">"form1"</font>
 frm.Command1.Caption = <font color="teal">"frm"</font>
<font color="blue">End</font> <font color="blue">Sub</font>

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


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

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

9   голосов , оценка 4.333 из 5