Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

GRISER ET DESACTIVER LA CROIX D'UNE FORM


Information sur la source

Catégorie :Control Niveau : Initié Date de création : 24/09/2002 Date de mise à jour : 24/09/2002 16:59:00 Vu : 3 219

Note :
9,75 / 10 - par 4 personnes
9,75 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (21)
Ajouter un commentaire et/ou une note

Description

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

  • '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
'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 !]
 

Commentaires et avis

signaler à un administrateur
Commentaire de babeuk le 24/09/2002 17:43:26

cool ! je cherchais également qqe ch du genre ! J'espère que ca marche ;) !

signaler à un administrateur
Commentaire de lumesh le 24/09/2002 17:47:01

Je tiens a precisé, ca a été testé par d'autre personne et ca marche impec !!!!!

signaler à un administrateur
Commentaire de BasicInstinct le 24/09/2002 18:02:10

ca marche nickel en effet, par contre faut changer ca :

Private Sub Form_Load()
    REP = DesactiveX(Me)
End Sub

signaler à un administrateur
Commentaire de miko500 le 24/09/2002 18:03:33

Ben, c vrai que l'idée est tré bonne, je tiens juste à préciser...ne me voyez pas venir mais, g fé exactement ce qu'il été marqué ds le code..et ça marche pas, il me met "Compile error: Argument nor optional", quelqu'un pourré m'aider svp ? Miko500

signaler à un administrateur
Commentaire de miko500 le 24/09/2002 18:05:09

excellent, g fé exactement ce qu'a marqué BasicInstict, et ça a marché, merci à toi!!!

signaler à un administrateur
Commentaire de miko500 le 24/09/2002 18:07:37

Comment fo faire pour désactiver le bouton agrandir et réduire de la form ? est ce que c possible ? merci!!

signaler à un administrateur
Commentaire de lumesh le 24/09/2002 18:08:10

vi par contre DSL g oublié le Me ds lappelle de la fonction !

call DesactiveX Me  

fo mettre ca a la place

signaler à un administrateur
Commentaire de miko500 le 24/09/2002 18:18:32

lumesh, tu pourrais me dite, stp, si on peut aussi griser le bouton d'agrandissement et le bouton de reduction stp ??????

signaler à un administrateur
Commentaire de Alan71 le 24/09/2002 19:36:32

Kool !

qqn posé la question sur le 4um, C toa ?

signaler à un administrateur
Commentaire de Alain Proviste le 24/09/2002 21:50:52 administrateur CS

Ouais c bien mais c'était déjà sur le site.

signaler à un administrateur
Commentaire de derkin le 24/09/2002 22:10:23

kool --> magique --> simpa !!!

sinon alain proviste c'était sur quel page j'trouve pas donne l'adresse

signaler à un administrateur
Commentaire de celiphane le 25/09/2002 18:40:34

Mouais... mais bon c un peu pareil que de mettre la valeur "ControlBox" de la form a false non ? si ce n'est que oui, bon, c vrai, ya toujours le petit "plus grd" et le petit "plus petit"...

Sympa donc

signaler à un administrateur
Commentaire de lumesh le 25/09/2002 18:44:20

non c po pareil !!
car ton ControlBox=false
vire
l'icone a gauche ainsi que la croix ! et ca peu faire Style de griser la croix :)

signaler à un administrateur
Commentaire de laurent207 le 19/01/2003 22:13:01

ça marche au poil. c juste ce que je cherchais. Merci.

signaler à un administrateur
Commentaire de Pyroa le 02/03/2003 23:36:16

Heu moi ca marche po :/
meme avec DesactiveX(Me) c peut etre du à XP ...

signaler à un administrateur
Commentaire de Foxix le 08/05/2004 12:49:06

Ben moi aussi, j'ai XP et sa marche pas :-/

signaler à un administrateur
Commentaire de Pyroa le 08/05/2004 19:00:13

en fait jai trouvé pour désactiver la croix il suffit de mettre e.cancel=true dans l'évènement "closing" de la form concernée
voilà +++

signaler à un administrateur
Commentaire de j_bus le 28/05/2004 16:14:50

lumesh, ton code marche du tonerre, mais pourrais tu m'indiquer les constantes a utiliser ainsi que les valeurs en hexa pour DEGRISER la croix de la fenetre cette fois; merci par avance si quelqu'un d'autre sait faire! par ailleurs mieux vaut toujours doubler cette methode de celle du Cancel dans le Form_Load de la fenetre pour plus de securite (cf XP)!

signaler à un administrateur
Commentaire de lumesh le 28/05/2004 16:20:59

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

&h100 ou
&h800 ou
&h10

signaler à un administrateur
Commentaire de j_bus le 28/05/2004 16:39:00

nan ce n'est aucune de celles la, aurait tu une url ou tu avais trouve les valeurs hexa concernant ces apis???

signaler à un administrateur
Commentaire de lumesh le 28/05/2004 18:10:08

Date d'ajout :
24/09/2002

depuis le temps jai oublié !

Ajouter un commentaire



Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Comparez les prix Nouvelle version

Photothèque Nouveau !



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,328 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.