| |
Затемнение кнопки 'закрыть' и одновременное удаление системного меню |
|
| |
Пользуйтесь данным примером очень аккуратно!
При двойном нажатии кнопки программа
"выполняет недопустимую операцию"
Расположите на форме элемент CommandButton.
Private Declare Function GetSystemMenu Lib "user32"
(ByVal hwnd As Long, ByVal bRevert As Long) As Long
'процедура определения системного меню (кнопки
закрытия)
Private Declare Function DestroyMenu Lib "user32" (ByVal hMenu As Long) As Long
'процедура удаления меню
Sub Disable_SysMenu(handle As Long)
On Error GoTo errhan
Dim menu_handle As Long 'переменная с хэндлом меню
menu_handle = GetSystemMenu(handle, 0)
DestroyMenu (menu_handle)
Exit Sub
errhan:
End Sub
Private Sub Command1_Click()
Disable_SysMenu (Form1.hwnd)
End Sub
|
|
| |
|
|
|
|