ABOLITION DU MENU SYSTÈME
néo.balastik
-
7 août 2001 à 10:12
cs_liquide Messages postés 1016 Date d'inscription samedi 22 mars 2003 Statut Membre Dernière intervention 24 juin 2008 - 20 mai 2003 à 11:28
cs_liquide Messages postés 1016 Date d'inscription samedi 22 mars 2003 Statut Membre Dernière intervention 24 juin 2008 - 20 mai 2003 à 11:28
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/492-abolition-du-menu-systeme
https://codes-sources.commentcamarche.net/source/492-abolition-du-menu-systeme
20 mai 2003 à 11:28
7 juin 2002 à 15:38
Essayer aussi
Private Sub Form_QueryUnload(Cancel as Integer, UnloadMode As Integer)
If UnloadMode = 0 Then
Cancel = True
Me.Hide
End If
End Sub
Ceci sert à contrôler si l'utilisateur a choisi la Croix pour fermer la fenêtre : si c'est le cas, la fenêtre est masquée (donc on peut encore appeler des propriétés ou des méthodes de contrôles).
5 juin 2002 à 19:32
7 août 2001 à 10:12
'Déclaration API
Public Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Public 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
Public Declare Function DrawMenuBar Lib "user32" (ByVal Hwnd As Long) As Long
'Constantes
Private Const MF_BYPOSITION = &H400&
Private Const MF_REMOVE = &H1000&
Public Sub DisableClose(frm As Form, Optional Disable As Boolean = True)
'Setting Disable to False disables the 'X', otherwise, it's reset
Dim hMenu As Long
Dim nCount As Long
If Disable Then
hMenu = GetSystemMenu(frm.hwnd, False)
nCount = GetMenuItemCount(hMenu)
Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or _
MF_BYPOSITION)
Call RemoveMenu(hMenu, nCount - 2, MF_REMOVE Or _
MF_BYPOSITION)
DrawMenuBar frm.hwnd
Else
GetSystemMenu frm.hwnd, True
DrawMenuBar frm.hwnd
End If
End Sub