Вопрос № 27644: Здрасте, надо что бы при выходе из программы стандартным путём(то есть на крестик вверху формы :)) программа сворачивалась, а не закрывалась(закрываться будет на кнопочку). Или может быть можно вообще убрать этот крестик?...
Вопрос № 27.644
Здрасте, надо что бы при выходе из программы стандартным путём(то есть на крестик вверху формы :)) программа сворачивалась, а не закрывалась(закрываться будет на кнопочку). Или может быть можно вообще убрать этот крестик?
Отвечает: Александр Шевченко
Здравствуйте, 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 появляется строка вверху для тоскания формы, а при отсутствии - исчезает)
--------- Учиться никогда не поздно. Особенно программированию!