Как отключить кнопку "Закрыть" на форме?

@rfvgy · Регистрация: 26.01.2020

Студворк — интернет-сервис помощи студентам

Как отключить кнопку закрыть на форме в Visual Studio так, чтобы развернуть и свернуть остались, так как на скриншоте. Не пишите про ControlBox, потому что он уберет все кнопки, а мне нужно только "Закрыть". Если что я программирую на visual basic.

@Положительный · 12.05.2020, 02:22

Не получится. Это основная кнопка, две остальные - вспомогательные. Её нельзя убрать, не задев две вторые.

Программно всё можно - но нужно будет поднапрячься.

@Yury Komar · 12.05.2020, 03:50

Положительный, если не уверены - не пишите, утверждая, что кноки эти нельзя отключить.
Да, убрать ее будет не легко, а может и совсем не реально, а вот отключить действие по нажатию на кнопку - закрыть - пожалуйста.

Во первых, не прибегая к WinAPI, в событии FormClosing вставьте строку e.Cancel = True нем самым отменять посылку сообщения окну с командой на закрытие.

Второй вариант - WinAPI:

Заблокировать действия кнопок управления формой

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
    Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Integer, ByVal bRevert As Integer) As Integer
    Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As wFlag) As Integer
    
    Enum wFlag
        MinButton = 3
        MaxButton = 4
        CloseButton = 6
    End Enum
 
    Public Sub KillingMenu(hWnd As Long, wFlag As wFlag)
        RemoveMenu(GetSystemMenu(hWnd, 0), wFlag, &H400&)
    End Sub

Пример (блокируем нажатие кнопки Закрыть (так же убирается соответствующий пункт из системного меню формы):

VB.NET
1
KillingMenu(Me.Handle, wFlag.CloseButton)

@Orlangur · 12.05.2020, 08:09

Или так

VB.NET
1
2
3
4
5
6
7
8
9
Protected Overrides ReadOnly Property CreateParams() As CreateParams
        Get
            Dim cp As CreateParams = MyBase.CreateParams
            Const CS_DBLCLKS As Int32 = &H8
            Const CS_NOCLOSE As Int32 = &H200
            cp.ClassStyle = CS_DBLCLKS Or CS_NOCLOSE
            Return cp
        End Get
    End Property

@Yury Komar · 12.05.2020, 09:21

Orlangur, CS_DBLCLKS - это сообщение двойного клика по заголовку? Если его игнорировать, то таким образом и пропадает возможность развернуть на весь экран окно по двойному клику по заголовку? Не проверял, но думаю - это именно это самое

А ТСу это зачем? Ему ведь только кнопку ЗАКРЫТЬ надо заблокировать.

А так, да, еще один вариант, возьму в коллекцию

@rfvgy · 12.05.2020, 09:47 **[ТС]**

Спасибо всем, с вопросом темы разобрался, но возникли еще два вопроса.
1. &H8, &H200, &H400&. Это коды каких-то кнопок? Если да, то пришлите пожалуйста весь список.
2. Как по нажатию кнопки на форме сделать из НЕактивной кнопки закрыть активную?

@Orlangur · 12.05.2020, 09:51

Yury Komar, хм, описание такое

Стиль CS_DBLCLKS используется при необходимости отслеживать двойные щелчки мышью. При этом в функцию окна посылаются сообщения WM_LBUTTONDBLCLK и WM_RBUTTONDBLCLK. Если этот стиль не будет задан, как бы быстро вы ни щелкали мышью, функция окна получит только идущие парами сообщения о том, что вы нажимаете и отпускаете левую или правую клавишу мыши

На сколько я понимаю, если не указать этот стиль, то при двойном щелчке по заголовку, окно будет получать два WM_LBUTTONDOWN вместо одного WM_LBUTTONDBLCLK. Правда, если его не указывать, то это никак не влияет на

Сообщение от Yury Komar

возможность развернуть на весь экран окно по двойному клику по заголовку

Возможно, это влияет на что-то другое

@rfvgy · 12.05.2020, 10:03 **[ТС]**

Понял.А как, все таки по нажатию кнопки на форме сделать из НЕактивной кнопки закрыть активную?

@Orlangur · 12.05.2020, 10:06

rfvgy,

Сообщение от rfvgy

Это коды каких-то кнопок?

Это константы, для каждой функции свои значения, гуглите имя функции и смотрите константы

Сообщение от rfvgy

Как по нажатию кнопки на форме сделать из НЕактивной кнопки закрыть активную?

Для моего вариант выше не прокатит.

Добавляем, функцию GetSystemMenu берём из решения Yury Komar.

VB.NET
1
2
3
<DllImport("user32")>
    Public Shared Function EnableMenuItem(ByVal hMenu As IntPtr, ByVal itemId As UInteger, ByVal uEnable As UInteger) As Boolean
    End Function

Сделать кнопку неактивной

VB.NET
1
EnableMenuItem(GetSystemMenu(Me.Handle, False), &HF060, 1)

Сделать активной

VB.NET
1
 EnableMenuItem(GetSystemMenu(Me.Handle, False), &HF060, 0)

@rfvgy · 12.05.2020, 10:25 **[ТС]**

Не работает. Может я что-то не так сделал, вот скриншот. Там нет <DllImport("user32")> потому что куда бы я его не написал выдает ошибку.

@Orlangur · 12.05.2020, 10:53

rfvgy,

VB.NET
1
2
3
<DllImport("user32")>
    Public Shared Function EnableMenuItem(ByVal hMenu As IntPtr, ByVal itemId As UInteger, ByVal uEnable As UInteger) As Boolean
    End Function

Вставить именно в таком виде, навести мышкой на DllImport, студия должна предложить исправление, в данном случае - импорт пространства имен

@rfvgy · 12.05.2020, 11:10 **[ТС]**

Да, действительно предложила исправление. Все работает, спасибо. А это будет работать на этом методе?

VB.NET
1
2
3
4
5
6
7
8
9
Protected Overrides ReadOnly Property CreateParams() As CreateParams
        Get
            Dim cp As CreateParams = MyBase.CreateParams
            Const CS_DBLCLKS As Int32 = &H8
            Const CS_NOCLOSE As Int32 = &H200
            cp.ClassStyle = CS_DBLCLKS Or CS_NOCLOSE
            Return cp
        End Get
    End Property

@Orlangur · 12.05.2020, 11:39

rfvgy,

Сообщение от rfvgy

А это будет работать на этом методе?

Нет

@rfvgy · 12.05.2020, 11:46 **[ТС]**

Ясно.

Добавлено через 1 минуту
Всем спасибо за помощь!)))

@Yury Komar · 12.05.2020, 21:20

Orlangur, rfvgy, в таком случае, дополню свой код, чтобы иметь возможность включить обратно кнопки в RunTime'e

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    Declare Function EnableMenuItem Lib "user32.DLL" (ByVal hMenu As Integer, ByVal ItemID As Integer, ByVal wEnable As Integer) As Integer
    Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Integer, ByVal bRevert As Integer) As Integer
 
    Enum menuItem
        MinButton
        MaxButton
        CloseButton
    End Enum
 
    Public Sub ManageControlBox(Frm As Form, mnuItem As menuItem, IsEnabled As Boolean)
        Select Case mnuItem
            Case menuItem.CloseButton
                EnableMenuItem(GetSystemMenu(Frm.Handle, False), &HF060, If(IsEnabled, 0, 1))
            Case menuItem.MinButton
                Frm.MinimizeBox = IsEnabled
            Case menuItem.MaxButton
                Frm.MaximizeBox = IsEnabled
        End Select
    End Sub

Вот так применять:

VB.NET
1
2
3
        ManageControlBox(Me, menuItem.MaxButton, True) 'или False
        ManageControlBox(Me, menuItem.MinButton, True) 'или False
        ManageControlBox(Me, menuItem.CloseButton, True) 'или False

@rfvgy · 12.05.2020, 23:28 **[ТС]**

Спасибо, я думаю я это где-то применю.

@Yury Komar · 13.05.2020, 03:59

rfvgy, тут имейте ввиду, что при отключении сразу обеих кнопок (MinButton и MaxButton) они исчезают с заголовка формы, до следующего включения...

@rfvgy · 13.05.2020, 12:12 **[ТС]**

Кстати кнопки свернуть и развернуть можно отключить через свойство minimizebox и maximizebox

@Yury Komar · 14.05.2020, 16:32

Сообщение от rfvgy

через свойство minimizebox и maximizebox

а вы посмотрите мой код, строки 15 и 17. Я именно так это и делаю.

@rfvgy · 14.05.2020, 17:28 **[ТС]**

Я на счет этого писал:

Сообщение от Yury Komar

ManageControlBox(Me, menuItem.MaxButton, True) 'или False
ManageControlBox(Me, menuItem.MinButton, True) 'или False

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

Как отключить кнопку "Закрыть" на форме?

Решение

Решение

Решение

@rfvgy 1 / 1 / 0 Регистрация: 26.01.2020 Сообщений: 180

	Как отключить кнопку "Закрыть" на форме? 11.05.2020, 21:42. Показов 11062. Ответов 23 Метки .net, .net framework, закрытие формы, кнопка, отключение, свойства, форма, элементы формы, visual studio, visual basic (Все метки) Как отключить кнопку закрыть на форме в Visual Studio так, чтобы развернуть и свернуть остались, так как на скриншоте. Не пишите про ControlBox, потому что он уберет все кнопки, а мне нужно только "Закрыть". Если что я программирую на visual basic. Изображения 0

@Положительный 97 / 33 / 12 Регистрация: 24.11.2018 Сообщений: 191
	12.05.2020, 02:22
	Не получится. Это основная кнопка, две остальные - вспомогательные. Её нельзя убрать, не задев две вторые. Программно всё можно - но нужно будет поднапрячься. 0

@Yury Komar Модератор 4356 / 3426 / 512 Регистрация: 27.01.2014 Сообщений: 6,254
	12.05.2020, 09:21
	Orlangur, CS_DBLCLKS - это сообщение двойного клика по заголовку? Если его игнорировать, то таким образом и пропадает возможность развернуть на весь экран окно по двойному клику по заголовку? Не проверял, но думаю - это именно это самое А ТСу это зачем? Ему ведь только кнопку ЗАКРЫТЬ надо заблокировать. А так, да, еще один вариант, возьму в коллекцию 0

@rfvgy 1 / 1 / 0 Регистрация: 26.01.2020 Сообщений: 180
	12.05.2020, 09:47 [ТС]
	Спасибо всем, с вопросом темы разобрался, но возникли еще два вопроса. 1. &H8, &H200, &H400&. Это коды каких-то кнопок? Если да, то пришлите пожалуйста весь список. 2. Как по нажатию кнопки на форме сделать из НЕактивной кнопки закрыть активную? 0

@rfvgy 1 / 1 / 0 Регистрация: 26.01.2020 Сообщений: 180
	12.05.2020, 10:03 [ТС]
	Понял.А как, все таки по нажатию кнопки на форме сделать из НЕактивной кнопки закрыть активную? 0

@rfvgy 1 / 1 / 0 Регистрация: 26.01.2020 Сообщений: 180
	12.05.2020, 10:25 [ТС]
	Не работает. Может я что-то не так сделал, вот скриншот. Там нет <DllImport("user32")> потому что куда бы я его не написал выдает ошибку. Миниатюры 0

@rfvgy 1 / 1 / 0 Регистрация: 26.01.2020 Сообщений: 180
	12.05.2020, 11:46 [ТС]
	Ясно. Добавлено через 1 минуту Всем спасибо за помощь!))) 0

@rfvgy 1 / 1 / 0 Регистрация: 26.01.2020 Сообщений: 180
	12.05.2020, 23:28 [ТС]
	Спасибо, я думаю я это где-то применю. 0

@Yury Komar Модератор 4356 / 3426 / 512 Регистрация: 27.01.2014 Сообщений: 6,254
	13.05.2020, 03:59
	rfvgy, тут имейте ввиду, что при отключении сразу обеих кнопок (MinButton и MaxButton) они исчезают с заголовка формы, до следующего включения... 0

@rfvgy 1 / 1 / 0 Регистрация: 26.01.2020 Сообщений: 180
	13.05.2020, 12:12 [ТС]
	Кстати кнопки свернуть и развернуть можно отключить через свойство minimizebox и maximizebox 0