Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Basic / VBA


Информационный Канал Subscribe.Ru

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 134
от 18.10.2005, 23:09

Администратор:Калашников О.А.
В рассылке:Подписчиков: 124, Экспертов: 20
В номере:Вопросов: 1, Ответов: 7


Вопрос № 27644: Здрасте, надо что бы при выходе из программы стандартным путём(то есть на крестик вверху формы :)) программа сворачивалась, а не закрывалась(закрываться будет на кнопочку). Или может быть можно вообще убрать этот крестик?...

Вопрос № 27.644
Здрасте, надо что бы при выходе из программы стандартным путём(то есть на крестик вверху формы :)) программа сворачивалась, а не закрывалась(закрываться будет на кнопочку). Или может быть можно вообще убрать этот крестик?
Отправлен: 13.10.2005, 16:32
Вопрос задал: Dushin Igor (статус: 1-ый класс)
Всего ответов: 7
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Александр Шевченко
Здравствуйте, Dushin Igor!
Нужно прописать в событие Form_Unload такое:
Cancel=1 'отмена закрытия окна
Me.WindowState=vbMinimized 'сворачивание окна
Ответ отправил: Александр Шевченко (статус: 4-ый класс)
Отправлен: 13.10.2005, 16:46
Оценка за ответ: 5
Комментарий оценки:
Спасибо!

Отвечает: Чурсанов Евгений Ильич
Здравствуйте, Dushin Igor!
Свойство формы ControlBox=false.

---------
Создайте систему, которой сможет пользоваться дурак, и только дурак захочет ею пользоваться.
Ответ отправил: Чурсанов Евгений Ильич (статус: 3-ий класс)
Отправлен: 13.10.2005, 17:20

Отвечает: Евгений Неверов
Здравствуйте, Dushin Igor!
Скопируйте нижеприведённый код в необходимую форму:

Приложение:

Ответ отправил: Евгений Неверов (статус: Студент)
Отправлен: 13.10.2005, 18:38

Отвечает: Puma
Здравствуйте, Dushin Igor!
>>Или может быть можно вообще убрать этот крестик?
Можно, только не убрать, а деактивировать. Это можно сделать с помощью функций WinAPI для работы с меню.
Удаление пунктов из системного меню DeleteFromSystemMenu. Можно также удалить пункт меню Закрыть. При этом кнопка Х станет неактивной, т.е. на нее нельзя будет нажать.

Приложение:

---------
Куда б я ни пошел, оно со мною: на форумах, в e-mail иль в ICQ. Мое ИМХО могучею скалою поддержит точку зрения мою.

Ответ отправил: Puma (статус: Практикант)
Отправлен: 13.10.2005, 22:02

Отвечает: Licvidator
Здравствуйте, Dushin Igor!
Я лишь добавлю как действительно можно заблокировать "крестик":) См приложение

Приложение:

Ответ отправил: Licvidator (статус: Профессор)
Отправлен: 13.10.2005, 22:51

Отвечает: Miklucho
Здравствуйте, Dushin Igor!

Option Explicit

Private Sub Form_Unload(Cancel As Integer)
Cancel = -1
Me.WindowState = 1 'Сворачивание формы на панель
End Sub
Ответ отправил: Miklucho (статус: Студент)
Отправлен: 14.10.2005, 09:14

Отвечает: Залетин Виталий Викторович
Здравствуйте, Dushin Igor!

Dim IsClose as Boolean
Private Sub Form_Unload(cancel as Integer)
If Not IsClose Then
Cancel=1
Me>WindowState=vbMinimized
End If
End Sub

Private Sub cmdClose_Click()
IsClose=True
Unload Me
End Sub

Насчет убирания креста, то смотри рассылку - там есть ответ на такой вопрос. Да, убрать крестик не выйдет, можно сделать его только недоступным (не считая случая, когда в форме вообще панель контроля отключена и при наличии Caption появляется строка вверху для тоскания формы, а при отсутствии - исчезает)
---------
Учиться никогда не поздно. Особенно программированию!
Ответ отправил: Залетин Виталий Викторович (статус: 4-ый класс)
Отправлен: 15.10.2005, 15:00


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2005, RusFAQ.ru, Россия, Москва. Все права защищены.
Идея, дизайн, программирование, авторское право: Калашников О.А.

Rambler's Top100 Яндекс


Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора
Подписан адрес:
Код этой рассылки: comp.soft.prog.basicvba
Архив рассылки
Отписаться
Вспомнить пароль

В избранное