| |
|
|
| | Приветствую всех!
На дисплее открыты две формы. При этом можно мышью делать ту или иную активной.
Верхняя широкая полоса активной формы (не знаю,как она наывается) становится темно-синей, у другого она голубая.
Вопрос: как перехватить это событие экрана, когда форма становится пассивной? Может ли кто подсказать?
Кстати: если открыть на экране два Word документа и переключаться, активирование объектов и изменение цвета происходит таким же образом.
Заранее благодарю. | |
| |
| |
| |
|
|
| | Это событие не экрана, а класса Form.
Можно подписаться на это событие:
Private Sub Form_Deactivate()
Debug.Print "Deactivate"
End Sub
|
| |
| |
| |
| |
|
|
| | Lukas, спасибо за быстрый ответ. Но у меня при деактивации Формы сообщение не поступают. Теперь только вечером я смогу сесть снова за PC. | |
| |
| |
| |
|
|
| | Привет, LUKAS!
Я проверил себя еще раз. Событием Deactivate я пользовался и ранее. И оно (по-моему) наступает лишь когда форма закрывается. В данном случае цвет форм меняется, что говорит по-видимому об активации / деактивации. Но если написать
Private Sub Form_Deactivate()
msgbox "A"
end Sub
то никакого сообщения при кликании мышью по формам не происходит.
Если не согласен, ругайся.
Благодарю. | |
| |
| |
| |
 13 Кб. |
|
| | =>
Загружайте обе формы и бегайте между ними.
Смотрите заголовки. | |
| |
| |
| |
|
|
| | Но при загрузке форм идет сообщение об ошибке: "при активации возникает проблема, когда Microfoft Office с OLE Serverom и ActiveX элементом коммуницирует". Это примерно такой перевод с немецкого. При этом в заголовке форм ничего нет. Надо будет подумать.
Спасибо, LUKAS.
Надеюсь разобраться. | |
| |
| |
| |
|
|
| | У меня русская локаль, потому немецкая локаль не понимает имена разделов формы.
Попробуйте их переименовать. | |
| |
| |
| |
|
|
| | Lukas, ваш пример работает отлично. Моя же программа слишком расползлась и неуклюжа.
Кроме того 2я Форма PopUp. Надо разбираться.
Еще раз спасибо. | |
| |
| |
| |
|
|
| | Эта программа работает в 6 городах, в 2х конторах 5 лет. И все это время я что-то добавлял, подправлял. Иногда я не заглядывал в нее по месяцу и забываю многие вещи.
Для меня она все-же велика: 95 Таблиц, 100 Форм, 120 Reports. Кода не менее 25000 строк.
Но ваш пример сразу навел на мысль отказаться от PopUp. И сработало!
Теперь новые идеи реализуемы.
Спасибо. | |
| |
| |
