VBNet - Форум - Как заблокировать кнопку закрыть?

Вопрос: Как заблокировать кнопку закрыть? Добавлено: 23.12.03 22:30

Автор вопроса: Ujif | Web-сайт: - | ICQ: -

Как заблокировать кнопку закрыть? В плане воще её блокирнуть, чтоб нажать нельзя было?

Ответить

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

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

StrikeR

ICQ: 151819

Вопросов: 32
Ответов: 110

Web-сайт: www.highlight.ee
Профиль | | #1

Добавлено: 24.12.03 03:22

Esli tebe nado ejo zablokirovat ejo v zapushennoi proge, to togda...

Dobav Commandbutton i pishi:

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) ' Podvigai formu, togda uvidish rezultat
End Sub
-----------------------

A esli te nado voobshe ejo zablokirovat, to togda ustanovi "Controlbox" ravnqm "False"

Ответить

Номер ответа: 2 Автор ответа: GlooM ICQ: 348453688 Вопросов: 88 Ответов: 356	Web-сайт: newlc.info Профиль \| \| #2	Добавлено: 24.12.03 16:49
	А не проще отключить крестик, а потом (в нужный момент) включить? Ответить

Номер ответа: 3 Автор ответа: StrikeR ICQ: 151819 Вопросов: 32 Ответов: 110	Web-сайт: www.highlight.ee Профиль \| \| #3	Добавлено: 26.12.03 02:57
	2 Дем0краТ: v smqsle? Ответить

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

LamerOnLine

ICQ: 334781088

Вопросов: 108
Ответов: 2822

Профиль | | #4

Добавлено: 30.12.03 12:16

Присвой свойству формы ControlBox=false. Правда, тогда пропадут все кнопки (min и max).

Можешь сделать так:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

If UnloadMode = 0 Then Cancel = True

End Sub

Кнопка будет нажиматься, но происходить ничего не будет.

Ответить

Страница: 1 |