powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Кнопка закрытия окна.
8 сообщений из 8, страница 1 из 1
Кнопка закрытия окна.
    #34558298
salvador
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Как заблокировать кнопку закрытия окна? или вообще сделать чтобы её не было на форме?
...
Рейтинг: 0 / 0
Кнопка закрытия окна.
    #34558332
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
http://www.tek-tips.com/viewthread.cfm?qid=523899
...
Рейтинг: 0 / 0
Кнопка закрытия окна.
    #34558498
salvador
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
VladConnhttp://www.tek-tips.com/viewthread.cfm?qid=523899
спасиб!
...
Рейтинг: 0 / 0
Кнопка закрытия окна.
    #34559010
salvador
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Нашёл такой код:
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, _
ByVal wFlags As Long) As Long

Const MF_BYPOSITION = &H400&
Public Sub RemoveCloseMenu(frm As Form)
Dim hSysMenu As Long
hSysMenu = GetSystemMenu(frm.hwnd, 0)
Call RemoveMenu(hSysMenu, 6, MF_BYPOSITION)
Call RemoveMenu(hSysMenu, 5, MF_BYPOSITION)
End Sub

Private Sub Form_Load()
RemoveCloseMenu Me
End Sub
Пожалуйста, кто чего-нибудь в нём понял напишите комментарий??
...
Рейтинг: 0 / 0
Кнопка закрытия окна.
    #34559713
max_111
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
salvadorКак заблокировать кнопку закрытия окна? или вообще сделать чтобы её не было на форме?

Отключение доступа к системным кнопкам
...
Рейтинг: 0 / 0
Кнопка закрытия окна.
    #34559716
max_111
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
max_111 salvadorКак заблокировать кнопку закрытия окна? или вообще сделать чтобы её не было на форме?

Отключение доступа к системным кнопкам
...
Рейтинг: 0 / 0
Кнопка закрытия окна.
    #34560031
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Cancel = True
End Sub
I Have Nine Lives You Have One Only
THINK!
...
Рейтинг: 0 / 0
Кнопка закрытия окна.
    #34561666
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
HandKot
Код: plaintext
1.
2.
3.
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Cancel = True
End Sub
I Have Nine Lives You Have One Only
THINK!

HandKot, такое делать - Боже упаси. Такой подход (но не он один), только в правильном исполнении, указан уже в приведенной мною ссылке. Он имеет один недостаток (не ваше исполнение, неверное), но как таковой. Дело в том, что при этом кнопка закрытия окна остается доступной для нажатия, и у пользователя возникает смешанное чувство, когда нажатие на крестик не закрывает форму. Тут уже нужно показывать какое-то объяснение и т.д. А зачем тогда вообще делать доступный крестик, так? Бывает лучше его или убрать или показывать неактивным. А вот приведенный вами подход, но в корректном исполнении:

Код: plaintext
1.
2.
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Cancel = UnloadMode = vbFormControlMenu
End Sub

Успехов
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Кнопка закрытия окна.
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]