begin process at 2008 09 06 20:16:51
1 237 931 membres
313 nouveaux aujourd'hui
14 314 membres club

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 !

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
 
    Aucun commentaire pour le moment.

Ajouter un commentaire

Pub



Appels d'offres

CalendriCode

Septembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
2930     

Téléchargements

Logiciels à télécharger sur le même thème :

Boutique

Boutique de goodies CodeS-SourceS