Desactiver le bouton [x] de votre formulaire

Soyez le premier à donner votre avis sur cette source.

Vue 14 649 fois - Téléchargée 578 fois


Télécharger le projet
Commenter

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 )
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Signaler
DxShadow
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.
Signaler
bedomon
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
Signaler
cs_shadowmoon
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 ?
Signaler
gros71
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?
Signaler
Cugel
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
S'inscrire maintenant

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.

Du même auteur (Nix)