Visual Basic, .NET, ASP, VBA, VBScript
 
  Библиотека кодов  
  Работа с формой  
     
  Затемнение кнопки 'закрыть' и одновременное удаление системного меню  
  Пользуйтесь данным примером очень аккуратно! При двойном нажатии кнопки программа "выполняет недопустимую операцию"

Расположите на форме элемент 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
 
     
  VBNet online (всего: 51609)  
 

Логин:

Пароль:

Регистрация, забыли пароль?


В чате сейчас человек
 
     
  VBNet рекомендует  
   
     
  Лучшие материалы  
 
ActiveX контролы (112)
Hitman74_Library (36119)
WindowsXPControls (20739)
FlexGridPlus (19374)
DSMAniGifControl (18295)
FreeButton (15157)
Примеры кода (546)
Parol (18027)
Passworder (9299)
Screen saver (7654)
Kerish AI (5817)
Folder_L (5768)
Статьи по VB (136)
Мое второе впечатление... (11236)
VB .NET: дорога в будущее (11161)
Основы SQL (9225)
Сообщения Windows в Vi... (8788)
Классовая теория прогр... (8619)
 
     
Техническая поддержка MTW-хостинг | © Copyright 2002-2011 VBNet.RU | Пишите нам