DÉSACTIVER LE BOUTON FERMER / X D'UNE FEUILLE VB

Tabarnak - 2 oct. 2001 à 15:22
rdelesalle

Messages postés: 3
Date d'inscription: mardi 11 mars 2003
Statut: Membre
Dernière intervention: 20 février 2009

- 16 juin 2008 à 10:47

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/1903-desactiver-le-bouton-fermer-x-d-une-feuille-vb

rdelesalle

Messages postés: 3
Date d'inscription: mardi 11 mars 2003
Statut: Membre
Dernière intervention: 20 février 2009

16 juin 2008 à 10:47

Bonjour.
Avec le code ci-dessous, je n'ai pas le problème.

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Integer, ByVal bRevert As Integer) As Integer
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Integer) As Integer
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Integer) As Integer

Private Const MF_BYPOSITION As Integer = &H400
Private Const MF_REMOVE As Integer = &H1000

Private Sub DesactivePartieMenu()
Dim hMenu As Integer
Dim nCount As Integer
Dim hwnd As Int32 = Me.Handle.ToInt32
hMenu = GetSystemMenu(hwnd, 0)
nCount = GetMenuItemCount(hMenu)
RemoveMenu(hMenu, 4, MF_REMOVE Or MF_BYPOSITION) 'Suppression AGRANDIR
RemoveMenu(hMenu, 2, MF_REMOVE Or MF_BYPOSITION) 'Suppression TAILLE
RemoveMenu(hMenu, 0, MF_REMOVE Or MF_BYPOSITION) 'Suppression RESTAURER
DrawMenuBar(hwnd)
End Sub

Bon courage.

dreamsworks

Messages postés: 8
Date d'inscription: jeudi 15 mai 2008
Statut: Membre
Dernière intervention: 28 novembre 2009

14 juin 2008 à 18:43

Merci rdelesalle, ce probleme est résolu.

Mais un autre problème se produit lors du débogage : j'ai le message "PInvokeStackImbalance a été détecté" aux lignes 35, 38, 41, 42, 43 et 44. A ce moment là, les variables lItemCount, lRet et lSysMenu sont au alentour de 9E18. J'ai remarqué que cette valeur est en dehors de la plage de Long, je suis donc passé en single, mais cela n'a rien changé.

rdelesalle

Messages postés: 3
Date d'inscription: mardi 11 mars 2003
Statut: Membre
Dernière intervention: 20 février 2009

26 mai 2008 à 09:40

Dim hwnd As Int32 = Me.Handle.ToInt32

dreamsworks

Messages postés: 8
Date d'inscription: jeudi 15 mai 2008
Statut: Membre
Dernière intervention: 28 novembre 2009

19 mai 2008 à 11:18

Je travaille sur Visual Studio 2005 et je rencontre le même problème que Laurent.
VS m'indique que "hwnd n'est pas un membre de Monformulaire".

j'ai tenté plusieurs fois mais rien n'y fait.

Aidez-moi !

merci

laurent colas

Messages postés: 3
Date d'inscription: mardi 28 mars 2006
Statut: Membre
Dernière intervention: 9 mars 2008

10 févr. 2008 à 11:06

Salut a tous.

Je suis avec VB2005 express et impossible de pourvoir utiliser hwnd. j'ai essaye a mainte reprise et cela me donne systématiquement a l'écriture du code :

"hwnd n'est pas un membre de mao.form1"

si quelqu'un a une idée?

merci

Afficher les 14 commentaires