néo.balastik
-
7 août 2001 à 10:12
cs_liquide
Messages postés1016Date d'inscriptionsamedi 22 mars 2003StatutMembreDernière intervention24 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.
cs_liquide
Messages postés1016Date d'inscriptionsamedi 22 mars 2003StatutMembreDernière intervention24 juin 2008 20 mai 2003 à 11:28
Grand merci , pas testé, mais je pense que c'est tout a fait ce que je cherchais. mes feuilles sont en dynamiques, sauf une qui doit toujours rester presente avec les données
cs_Ordiman
Messages postés40Date d'inscriptionmercredi 5 juin 2002StatutMembreDernière intervention28 avril 2004 7 juin 2002 à 15:38
Intéressant pour un installateur maison ou pour des boites de dialogue qui peuvent être réduites sans être fermées.
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).
yoman64
Messages postés962Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 2 août 20102 5 juin 2002 à 19:32
Voilà pour supprimer et ajouter la croix sur un formulaire:
'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
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