Desactiver le bouton [x] de votre formulaire

Soyez le premier à donner votre avis sur cette source.

Vue 14 585 fois - Téléchargée 578 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

-
euh.........c quoi ça? tout ce code pour enlever le X du formulaire ? tu va dans ses propriété et à Clipcontrol tu met false ......lol
-
euh.........c quoi ça? tout ce code pour enlever le X du formulaire ? tu va dans ses propriété et à Clipcontrol tu met false ......lol
-
euh.........c quoi ça? tout ce code pour enlever le X du formulaire ? tu va dans ses propriété et à Clipcontrol tu met false ......lol
-
euh.........c quoi ça? tout ce code pour enlever le X du formulaire ? tu va dans ses propriété et à Clipcontrol tu met false ......lol
-
euh.........c quoi ça? tout ce code pour enlever le X du formulaire ? tu va dans ses propriété et à Clipcontrol tu met false ......lol

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.