users_user-20.html -  Désactiver le bouton de fermeture d'une fenêtre
  1. Public Const SC_CLOSE = &HF060& 
  2. Public Const MF_BYCOMMAND = &H0& 
  3.   
  4. Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long 
  5. Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long 
  6. Public Sub DisableCloseBtn(oForm As Form) 
  7. Dim hSysMenu As Long 
  8.     hSysMenu = GetSystemMenu(oForm.hwnd, False) 
  9.     RemoveMenu hSysMenu, SC_CLOSE, MF_BYCOMMAND 
  10. End Sub
Poster un commentaire
Utilisateur
Mot de passe
 
Informaticien.be - © 2002-2024 AkretioSPRL  - Generated via Kelare
The Akretio Network: Akretio - Freedelity - KelCommerce - Votre publicité sur informaticien.be ?