Accueil > > > MODIFIER LE MENU SYSTÈME DU FORMULAIRE
MODIFIER LE MENU SYSTÈME DU FORMULAIRE
Information sur la source
Description
Pour changer les effets, il suffit de modifier l'instruction Call DeleteMenu(hMenu, SC_MAXIMIZE, MF_BYCOMMAND) en changeant "SC_MAXIMIZE" par d'autres effets comme SC_MINIMIZE, SC_RESTORE....
Source
- Option Explicit
-
- Const SC_MAXIMIZE = &HF030
- Const SC_MINIMIZE = &HF020
- Const SC_MOVE = &HF010
- Const SC_RESTORE = &HF120
- Const SC_SIZE = &HF000
- Const SC_CLOSE = &HF060
-
- Const MF_BYCOMMAND = 0
-
-
- Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
- Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
- Private Sub Form_Load()
-
- Dim hMenu As Long
-
- hMenu = GetSystemMenu(Me.hwnd, 0) 'Récupère le handle du menu système de la feuille
- Call DeleteMenu(hMenu, SC_MAXIMIZE, MF_BYCOMMAND) 'Action à effectuer sur ce menu système
-
- 'Remplacer SC_MAXIMIZE par une des valeurs ci-dessous
-
- 'SC_MAXIMIZE : Empêche l'aggrandissement de la feuillle
- 'SC_MINIMIZE : Empêche la réduction de la feuille
- 'SC_MOVE : Empêche le déplacement de la feuille
- 'SC_RESTORE : Empêche la restauration de la feuille
- 'SC_SIZE : Empêche le redimensionnement de la feuille
- 'SC_CLOSE : Empêche la fermeture de la feuille
-
-
- End Sub
-
Option Explicit
Const SC_MAXIMIZE = &HF030
Const SC_MINIMIZE = &HF020
Const SC_MOVE = &HF010
Const SC_RESTORE = &HF120
Const SC_SIZE = &HF000
Const SC_CLOSE = &HF060
Const MF_BYCOMMAND = 0
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Sub Form_Load()
Dim hMenu As Long
hMenu = GetSystemMenu(Me.hwnd, 0) 'Récupère le handle du menu système de la feuille
Call DeleteMenu(hMenu, SC_MAXIMIZE, MF_BYCOMMAND) 'Action à effectuer sur ce menu système
'Remplacer SC_MAXIMIZE par une des valeurs ci-dessous
'SC_MAXIMIZE : Empêche l'aggrandissement de la feuillle
'SC_MINIMIZE : Empêche la réduction de la feuille
'SC_MOVE : Empêche le déplacement de la feuille
'SC_RESTORE : Empêche la restauration de la feuille
'SC_SIZE : Empêche le redimensionnement de la feuille
'SC_CLOSE : Empêche la fermeture de la feuille
End Sub
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
desactivation du menu systeme contextuel dans une textbox???? [ par hugues ]
Comment desactiver le menu contextuel systeme qui est actif lors du clic droit dans une textbox
controle menu comme access [ par Shivan0910 ]
bonjour a tous,je voudrais integerer un systeme de menu comme celui present dans access par exemple, qui se positionne sur la gauche, avec un systeme
icone de mon application dans le systeme tray [ par eridyms ]
bonjours a tous.je suis actuellement entrain de developper une application en Vb6 j'ai créé dans l'application un menu que j'aimerais réduire sans déc
Ouvrir et fermer des forms [ par Maroxye ]
Bonjour à tous, Comme toujours, je n'ai pas de facilité dans VB.net...Moi qui a programmé en VBA et Visual Basic pendant plus de 10 ans, je trouve q
reconnaitre un executable en marche [ par eridyms ]
bonjour a tous .... j'ai un petit probleme j'ai un projet que j'ai presque fini.Dans se projet,le bouton FERMER de mon menu me permet de reduire l'app
VB6 : problème avec click droit [ par notpa01 ]
Bonjour à tous ! Je suis sous VB6. L'image ci-dessus explique bien mon souci : [img]http://nsa19.casimages.com/img/2010/10/11/101011040829528037.jpg
SubClassing : utiliser le lParam (sensé ête un pointeur) [ par Flocreate ]
Bonjour, Je souhaiterais refaire moi-même le disign du menu de ma fenêtre (MenuItem) Le moyen que j'ai trouvé pour ce faire est le subclassing 1) dir
event click et listview [ par ShayW ]
Bonsoir J'ai un listview nommé menu il y 4 item [code=vb] With menu .MultiSelect = False .HideSelection = False .
VBA Excel : Menus contextuels , comment modifier la commande Copier [ par rbn ]
Bonjour ; Je suis sousExcel VBA et je cherche comment modifier la commande standard "coller tout" par une commande "coller formule", ceci pour l'ense
dimonsionnement systeme photovoltaique [ par samyboud ]
Bonjour,Messsieurs J'ai besoin d'aide pour le dimonsionnemment d'un systeme photovoltaique autonome. Merci d'avance.[^^yeuxenlair]
|
Derniers Blogs
[HTML5] SLIDES ET DéMOS : AUTOUR DU W3C , NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] SLIDES ET DéMOS : AUTOUR DU W3C , NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Très bonne après-midi passée lors cette conférence avec le W3C, organisée par L' Inria sur les nouveaux standards, ce Mardi 14 Février, on sent vraiment que çà bosse au W3C, et l'avenir est très très prometteur pour le HTML5, notamment ...
Cliquez pour lire la suite de l'article par Gio GESTION D'EXCEPTION AVEC LES TASKSGESTION D'EXCEPTION AVEC LES TASKS par richardc
Nous avons vu dans un précédent article comment utiliser Task pour effectuer des opérations dans un autre thread.
Malheureusement, comme tout le monde n'est pas parfait, il se peut que cette exécution se passe mal et qu'une exception se produise.
La...
Cliquez pour lire la suite de l'article par richardc DéMARRONS AVEC LES TASKSDéMARRONS AVEC LES TASKS par richardc
Que vous le vouliez ou non, le développement multi-tâche est maintenant une obligation pour toute nouvelle application. Il est donc vital d'en comprendre les mécanismes et de s'y mettre le plus tôt possible.
En attendant le .NET Framework 4.5 avec le...
Cliquez pour lire la suite de l'article par richardc SLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPSSLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPS par Vko
Retrouvez les slides et les démo de ma session Fast & Furious XAML Apps. A ceux qui se posent la question : "est-ce que le code de la DataGrid est disponible?", je vous répondrais "pas encore". Je vais mettre en place un projet codeplex pour part...
Cliquez pour lire la suite de l'article par Vko
Forum
RE : VITESSERE : VITESSE par ossama261988
Cliquez pour lire la suite par ossama261988 RE : VITESSERE : VITESSE par ucfoutu
Cliquez pour lire la suite par ucfoutu
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|