VBA и 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>

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


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

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

10   голосов , оценка 3.9 из 5
Похожие ответы