Griser et desactiver la croix d'une form

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 698 fois - Téléchargée 42 fois

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

Ajouter un commentaire

Commentaires

Messages postés
1
Date d'inscription
samedi 12 mars 2005
Statut
Membre
Dernière intervention
16 avril 2010

Bonjour je confirme que le code fonctionne trés bien par contre je ne le comprends pas. Quelqu'un pourrait m'expliquer un peu plus en détail. Merci
Messages postés
4
Date d'inscription
mercredi 6 décembre 2000
Statut
Membre
Dernière intervention
17 septembre 2009

bonjour
merci pour vos aides, bon je veux just svoire pourquoi la variable frm.hwnd n'est pas accepter par mon projet ?
merci
Messages postés
564
Date d'inscription
jeudi 21 février 2002
Statut
Membre
Dernière intervention
7 novembre 2008

Date d'ajout :
24/09/2002

depuis le temps jai oublié !
Messages postés
5
Date d'inscription
vendredi 28 mai 2004
Statut
Membre
Dernière intervention
15 décembre 2004

nan ce n'est aucune de celles la, aurait tu une url ou tu avais trouve les valeurs hexa concernant ces apis???
Messages postés
564
Date d'inscription
jeudi 21 février 2002
Statut
Membre
Dernière intervention
7 novembre 2008

oh la je ne c point mais essai tjrs les valers HEXAs:

&h100 ou
&h800 ou
&h10
Afficher les 23 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.