Desactiver le bouton [x] de votre formulaire

Soyez le premier à donner votre avis sur cette source.

Vue 14 800 fois - Téléchargée 586 fois

Description

Comment puis-je désactiver le [X] en haut à droite (pour quitter) du Formulaire ?

Mettez ce code dans votre Formulaire :

Source / Exemple :


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

Private Const MF_BYPOSITION = &H400&
Private Const MF_REMOVE = &H1000&
Private Sub DesactiveX()
     Dim hMenu As Long
     Dim nCount As Long
     hMenu = GetSystemMenu(Me.hwnd, 0)
     nCount = GetMenuItemCount(hMenu)

     Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
     Call RemoveMenu(hMenu, nCount - 2, MF_REMOVE Or MF_BYPOSITION)

     DrawMenuBar Me.hwnd
End Sub
Private Sub Form_Load()
     DesactiveX
End Sub
Private Sub Form_Click()
     Unload Me
End Sub

' N.B : Ce code désactive également le fermeture du menu system de votre Formulaire ( icône en haut à gauche )

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
69
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
12 mai 2013

Y'a plus simple, on met la valeur "ControlBox" à False, et tout les boutons de légende disparaissent.
Messages postés
8
Date d'inscription
mercredi 23 mars 2005
Statut
Membre
Dernière intervention
5 décembre 2005

j'ai voulu mettre le code dans une appli avec des feuille MDI mais ca ne marche pas quelqu'un pourrai m'eclairer svp...

merci d'avance
Messages postés
29
Date d'inscription
dimanche 1 février 2004
Statut
Membre
Dernière intervention
1 juin 2005

et comment faire en vb .net ?
Messages postés
23
Date d'inscription
jeudi 9 septembre 2004
Statut
Membre
Dernière intervention
7 décembre 2004

ben en tout cas en version vb sous excel sa marche pas!!! alors comment on fais dans ce cas la?
Messages postés
42
Date d'inscription
samedi 8 mars 2003
Statut
Membre
Dernière intervention
27 septembre 2010

Y'a visiblement des gusses qui devraient réviser leur VB. Comme l'a signalé Pyroa, si vous faites la modif via les propriétés, ben tous les boutons sont virés... Donc merci Nix !!!
Afficher les 18 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.