 |
 |
 |
| |
Amusez-vous et
gagnez de l'argent
|
|
 |
|
 |
|
|
|
| |
NEWSLETTER
Soyez tenu au courant des nouveautés ou bons plans. Les sujets concernés sont :
- la photo
- la programmation
|
|
|
|
|
|
 |
|
 |
| |
Empecher l'agrandissement d'une fenêtre 
Ce petit code évite à l'utilisateur d'agrandir votre programme.
à coller dans le module :
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
Const SC_MAXIMIZE = &HF030 'Empêche l'aggrandissement de la feuille
Const MF_BYCOMMAND = 0
Public Sub SupprimeAgrandissement(NOM As Form)
Dim hMenu As Long
'Récupère le handle du menu système de la feuille
hMenu = GetSystemMenu(NOM.hwnd, 0)
'Action à effectuer sur ce menu système
Call DeleteMenu(hMenu, SC_MAXIMIZE, MF_BYCOMMAND)
End Sub
à coller dans la procédure LOAD de la Form :
SupprimeAgrandissement Me
|
|
 |
|
 |
|
IDDN Certification
