Griser et desactiver la croix d'une form

Commenter

Contenu du snippet

Voila ayant cherché deja depuis un bout de temps comment faire pour désactiver et griser
la croix d'une FORM , je viens de trouver PAR MIRACLE et toutes petite source pour le faire !!!!
Donc je vous la met car ca va rendre grd service je pense !

La voici:

Source / Exemple : 


'a mettre ds un module

Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Public Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Public Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Public Const MF_BYPOSITION = &H400&
Public Const MF_REMOVE = &H1000&

Public Function DesactiveX(ByVal frm As Form)
     Dim hMenu As Long
     Dim nCount As Long
     hMenu = GetSystemMenu(frm.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 frm.hwnd
End Function

'et ensuite dans le code mettre:

Private Sub Form_Load()
    Call DesactiveX
End Sub

Conclusion :


vala valou !!!!!

Bonne progz a tous et que ce bout de code vous serve !!!

Lumesh.
Be Happy With Mad Fire ! [The Fun Life !]

A voir également

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 (lumesh)