begin process at 2012 02 16 18:20:46
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Formulaire

 > DESACTIVER LE BOUTON [X] DE VOTRE FORMULAIRE

DESACTIVER LE BOUTON [X] DE VOTRE FORMULAIRE


 Information sur la source

Note :
7,55 / 10 - par 11 personnes
7,55 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Formulaire Classé sous :désactiver, bouton, fermeture, feuille Niveau :Initié Date de création :29/05/1999 Vu / téléchargé :12 076 / 432

Auteur : Nix

Ecrire un message privé
Site perso
Ce membre participe au partage de revenus publicitaires
Commentaire sur cette source (7)
Ajouter un commentaire et/ou une note


 Description

Comment puis-je désactiver le [X] en haut à droite (pour quitter) du Formulaire ?

Mettez ce code dans votre Formulaire :

Source

  • 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 )
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 )


 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture Source .NET (Dotnet) FAIRE UN PING (ICMP) EN VB 2005 (LE PLUS SIMPLEMENT DU MONDE...
IMPRIMER LE CONTENU D'UN RICHTEXTBOX
Source avec Zip Source avec une capture TESTEUR DE REGEX (REGULAR EXPRESSIONS)
Source avec Zip Source avec une capture FORCER LE REBOOT SOUS WINDOWS NT OU WINDOWS 2000 (REDÉMARRAG...
COMPTER LES MOTS DANS UNE CHAINE DE CARACTÈRE

 Sources de la même categorie

Source avec Zip GEST COTISATION - ASSOCIATION par MOHA555
Source avec Zip HSCROLLBAR POUR L'ARRIÈRE PLAN par 320C
Source avec Zip Source avec une capture Source .NET (Dotnet) METTRE VOTRE FORM VB.NET EN PLEINE ÉCRAN par Gabilach
RECHERCHE DANS UNE LISTE À PARTIR D'UN CHAMP TEXTE par jmeunier
Source avec Zip GESTION DES COMSOMMABLE par gboraud

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture Source .NET (Dotnet) BOUTON PERSO par genesys
Source avec Zip Source avec une capture Source .NET (Dotnet) CLICK POUR QUITTER (LE JEU) par mistik124
Source avec Zip Source .NET (Dotnet) PIERRE PAPIER CISEAUX par Ultrabytes
Source avec Zip Source avec une capture BARRE DE MENU VERTICALE ASSEZ COMPLETE par Flocreate
DÉSACTIVER LE BOUTON FERMER / X D'UNE FEUILLE VB par vow

Commentaires et avis

Commentaire de Thalyee le 19/01/2003 19:57:54

Excellent marche impeccable et resoud le prbl du dbl clk sur la barre

Commentaire de Pyroa le 02/03/2003 23:23:38

Désolé les gars mais moi ca marche pas ..
Et pour les gros nains qui insulte Nix
l'option ( bandes de nazes ) vire tous les boutons, pas uniquement le bouton fermer comme doit le faire ce code ...

Commentaire de Cugel le 17/03/2003 14:54:03

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 !!!

Commentaire de gros71 le 07/12/2004 14:51:55

ben en tout cas en version vb sous excel sa marche pas!!! alors comment on fais dans ce cas la?

Commentaire de shadowmoon le 10/05/2005 16:32:12

et comment faire en vb .net ?

Commentaire de bedomon le 05/12/2005 23:29:56

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

Commentaire de DxShadow le 22/12/2007 14:32:18

Y'a plus simple, on met la valeur "ControlBox" à False, et tout les boutons de légende disparaissent.

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Fermeture d'une feuille après exécution de commande dans celle-ci [ par Mickey ] Comment fermer automatiquement une feuille à la fin de l'execution de shell contenus dans celle-ci ?Merci pb de fermeture des feuilles [ par darkyoda ] resalut a tous!j'ai mis la touche ESC pour fermer une feuille par defaut mais lorsque l'on appuie dessus c'est toute l'appli qui se ferme et non juste Bouton de commande!! [ par tinou ] Je désire ouvrir une feuille par l'intermédiaire d'un bouton situé sur une autre feuille!!!Mais je ne connais la commande qui permet l'ouverture d'une bouton de commande!!! [ par tinou ] Je désire ouvrir une feuille par l'intermédiaire d'un bouton situé sur une autre feuille!!!Mais je ne connais la commande qui permet l'ouverture d'une Bouton [X] d'une feuille [ par rodo22 ] Bonjour,Comment peut-on affecter une fonction diverse au bouton X de la feuille (en haut à droite). Par exemple : msgbox "Etes-vous sur de vouloir qui Les feuilles MDI, leurs dimensionnement, leurs boutons......la plaie [ par akhiro ] Hello,QUESTION 1Quelqu'un peut il me dire s'il existe une autre possibilité que la feuille MDI pour gérer deux autres feuilles en même temps --> EX Bouton fermeture, reduire et plein ecran... [ par ptij ] J'aimerais savoir si l'on peut affecter du code à ces trois petits bouton situé en haut a droite des fenetres.Le but en fait pour moi qui suit n'ayons Fermeture d'une feuille [ par cevennol ] Bj,je voudrais savoir comment intercepter ou gérer le clic sur la croix en haut à droite d'une feuille, plus simplement la fermeture.dans le but que l Supprimer la croix de fermeture de feuille à l'execution ? [ par jamey ] Bonjour,Quelle propriétée gère la suppression de la croix de fermeture de feuille.Merci,Cyrille68 Activer/Désactiver un Bouton [ par Beavis ] Salut, Je cherche comment activer un bouton dès que j'écris une lettre dans un text box !C'est probablement très simple, mais je ne trouve pas...J'att


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,076 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales