1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Formulaire
  5. Desactiver le bouton [x] de votre formulaire

Desactiver le bouton [x] de votre formulaire

Soyez le premier à donner votre avis sur cette source.

Vue 15 192 fois - Téléchargée 604 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
DxShadow
Messages postés
69
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
12 mai 2013
22 déc. 2007 à 14:32
Y'a plus simple, on met la valeur "ControlBox" à False, et tout les boutons de légende disparaissent.
bedomon
Messages postés
8
Date d'inscription
mercredi 23 mars 2005
Statut
Membre
Dernière intervention
5 décembre 2005
5 déc. 2005 à 23:29
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
cs_shadowmoon
Messages postés
29
Date d'inscription
dimanche 1 février 2004
Statut
Membre
Dernière intervention
1 juin 2005
10 mai 2005 à 16:32
et comment faire en vb .net ?
gros71
Messages postés
23
Date d'inscription
jeudi 9 septembre 2004
Statut
Membre
Dernière intervention
7 décembre 2004
7 déc. 2004 à 14:51
ben en tout cas en version vb sous excel sa marche pas!!! alors comment on fais dans ce cas la?
Cugel
Messages postés
42
Date d'inscription
samedi 8 mars 2003
Statut
Membre
Dernière intervention
27 septembre 2010
17 mars 2003 à 14:54
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)