VBA и Exel, Описание свойств рабочего окна
Формулировка задачи:
Здравствуйте, подскажите пожалуйста:
Как создать окно, которое автоматически запускалось бы при открытии этого exel документа, а так же имело следующие свойства:
- оно всегда было на экране по верх всех остальных окон
- его нельзя было закрыть (нет кнопок закрытия окна) - только если закрыть этот exel документ
- и чтобы оно не захватывало управление.
Когда создаешь обычное окно - оно перехватывает все управления на себя и после этого нельзя работать с документом, пока не закроешь это окно. А мне необходимо создать вспомогательное окно, которое всегда было бы на экране, но позволяло работать с Exel документом.
Как создать окно, которое автоматически запускалось бы при открытии этого exel документа, а так же имело следующие свойства:
- оно всегда было на экране по верх всех остальных окон
- его нельзя было закрыть (нет кнопок закрытия окна) - только если закрыть этот exel документ
- и чтобы оно не захватывало управление.
Когда создаешь обычное окно - оно перехватывает все управления на себя и после этого нельзя работать с документом, пока не закроешь это окно. А мне необходимо создать вспомогательное окно, которое всегда было бы на экране, но позволяло работать с Exel документом.
Решение задачи: «VBA и Exel, Описание свойств рабочего окна»
textual
Листинг программы
<font color="blue">Private</font> <font color="blue">Sub</font> Form_Load() SetTransparent hwnd, <font color="darkblue"><b>150</b></font> <font color="00AA00">' прозрачное окно</font> <font color="blue">Me</font>.Left = (Screen.<font color="blue">Width</font> - <font color="blue">Me</font>.<font color="blue">Width</font>) \ <font color="darkblue"><b>2</b></font> <font color="00AA00">' Form1 в центр экрана</font> <font color="blue">Me</font>.Top = (Screen.Height - <font color="blue">Me</font>.Height) \ <font color="darkblue"><b>2</b></font> On_Top <font color="blue">Me</font>.hwnd <font color="00AA00">' поверх всех</font> <font color="blue">End</font> <font color="blue">Sub</font> <font color="blue">Private</font> <font color="blue">Sub</font> Form_Unload(Cancel <font color="blue">As</font> <font color="blue">Integer</font>) Off_Top <font color="blue">Me</font>.hwnd <font color="00AA00">' обычное окно</font> <font color="blue">End</font> <font color="blue">Sub</font>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д