• pavel
  • Восстановленный участник
  • На форуме с 12 апреля 2005г.
  • Сообщений: 35
  • Спасибо: 0

Тема: Модальные и Немодальные формы. ПОТЕРЯ и БЛОКИРОВКА фокуса

Кто-нибудь наверняка сталкивался с такой проблемой, как БЛОКИРОВКА фокуса на МОДАЛЬНОЙ форме и отнятия Автокадом фокуса от НЕМОДАЛЬНОЙ формы, когда необходимо работать одновременно в Автокаде и на форме в textbox. Подскажите, каким образом можно оставить фокус ввода на немодальной форме???
Я попробовал во всех процедурах формы и textbox'а, отвечающих за какие-либо действи(активация, клики, изменения, нажатия клавиш) вставить строчку forma1.textbox.setfocus. Тогда будет работать, но это порнография. А если у меня таких текстовых окон около 8?
Можно ли определить, что мышка находится вне зоны формы и перерисовывать форму с параметром vbModeless, а по возвращению на форму перерисовать ее с параметром vbModal?
Подскажите, как решить проблему?

  • На форуме с 6 октября 2002г.
  • Сообщений: 162
  • Спасибо: 0

Re: Модальные и Немодальные формы. ПОТЕРЯ и БЛОКИРОВКА фокуса

1)

что мышка находится вне зоны формы

У UserForm нет событий типа MouseOut. Значит, нельзя. Однако, учитывая мои последние фантастические опыты с Win32 API, советую поискать что-нибудь по этой теме в MSDN.
2)

перерисовать ее с параметром vbModal?

Цитата из хелпа:

ShowModal Property. Sets a UserForm to be modal or modeless in its display. Read-only at run time.

Изменять это свойство нельзя.
VBA в AutoCAD -- это всегда немного порнография :).

  • pavel
  • Восстановленный участник
  • На форуме с 12 апреля 2005г.
  • Сообщений: 35
  • Спасибо: 0

Re: Модальные и Немодальные формы. ПОТЕРЯ и БЛОКИРОВКА фокуса

По поводу перерисовать, в смысле:
Сначала скрыть, потом опять показать
UserForm1.Hide
UserForm1.Show vbModal
или UserForm1.Show  vbModeless
Осталось отследить уход хвостатой с формы или определить клик на автокадовском документе.
Кстати, по поводу порнографии с SetFocus'ом, в автокаде 2005 данная фича не рулит, вот голяк