VBNet - Форум - Кнопка "Закрыть"

Вопрос: Кнопка "Закрыть" Добавлено: 07.01.03 18:44

Автор вопроса: Silent Bob | Web-сайт: podelyakin.narod.ru

Как её удалить с формы эту чёртову кнопку!!!
Ответить

Ответы Всего ответов: 5

Номер ответа: 1 Автор ответа: Last_Santa ICQ: 200700724 Вопросов: 38 Ответов: 329	Web-сайт: localhost Профиль \| \| #1	Добавлено: 07.01.03 18:50
	Или у даляй все, например me.controlbox = false или юзай АПИ, какой не помню Ответить

Номер ответа: 2
Автор ответа:

Synax

Вопросов: 20
Ответов: 61

Web-сайт: elance.ru/sands
Профиль | | #2

Добавлено: 07.01.03 19:40

Тебе вообще удалить или просто сделать недоступной

Ответить

Номер ответа: 3 Автор ответа: Aleksandr Skorodumov ICQ: 161435166 Вопросов: 5 Ответов: 96	Web-сайт: www.beginning.ru Профиль \| \| #3	Добавлено: 07.01.03 20:17
	BorderStyle сделай 0 - None Ответить

Номер ответа: 4 Автор ответа: Иван Администратор ICQ: 147688925 Вопросов: 24 Ответов: 708	Web-сайт: www.vbnet.ru Профиль \| \| #4	Добавлено: 07.01.03 21:43
	Кажется удалить нельзя... можно только сделать недоступной... смотри раздел Библиотека кодов . Ответить

Номер ответа: 5
Автор ответа:

Synax

Вопросов: 20
Ответов: 61

Web-сайт: elance.ru/sands
Профиль | | #5

Добавлено: 07.01.03 23:57

http://www.vbnet.ru/faq/showtopic.asp?id=45

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 DisableCloseButton(F As Form)
Dim hSysMenu As Long
hSysMenu = GetSystemMenu(F.hwnd, 0)
RemoveMenu hSysMenu, 6, MF_BYPOSITION
RemoveMenu hSysMenu, 5, MF_BYPOSITION
End Sub
Private Sub Command1_Click()
Call DisableCloseButton(Form1)
End Sub

Ответить

Страница: 1 |