MODIFIER LE MENU SYSTÈME DU FORMULAIRE

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
 

• ENVOYER DES MESSAGES AUX FENÊTRES
• COMPILATION & EXECUTION VBSCRIPT
• FENÊTRE 'ERREUR FATALE'
• SIMULATION DE REBONDS
• ETOILES 3D

• DÉTECTER L'APPARIATION DES SCROLLBARS DANS UN SCROLLABLECONTROL ET TRANSFORMATION EN SLIDER
• AJOUTER N'IMPORTE QUEL RACCOURCI À VOS MENUS (HOOK CLAVIER)
• CLIQUER SUR UN LIEN JAVASCRIPT / CONTRÔLE DE INTERNET EXPLORER / REMPLIR UN FORMULAIRE AUTOMATIQUEMENT / ROBOT
• USERFORM PLEIN ÉCRAN SOUS EXCEL VBA
• LIMITER LE NOMBRE DE LIGNES DANS UN TEXTBOX

• BARRE DE MENU AVEC LE CONTROL SCGRID
• AJOUTER N'IMPORTE QUEL RACCOURCI À VOS MENUS (HOOK CLAVIER)
• BASE DE DONNÉES AVEC UN FICHIER À ACCÉS DIRECT
• USERFORM PLEIN ÉCRAN SOUS EXCEL VBA
• USERFORM AVEC FONCTIONS MAXIMISER, MINIMISER ET ETIRABLE UTILISANT LES API WINDOWS