В 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. Посему мой вариант Оптимальный, т.к. он не глючит с функционалом да и легко модифицируется.
Но все таки:
То что справа-это 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>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д