Nox
-
27 août 2001 à 06:10
Bruto
Messages postés214Date d'inscriptionjeudi 21 mars 2002StatutMembreDernière intervention14 mai 2004
-
19 août 2002 à 22:11
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
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
Fais gaffe avec ce code:
en redimmensionnant (avec vb5) ca fait un clignotement !!!
Vaut mieux utiliser le meme api que pour griser le x a gauche et changer la constante.
19 août 2002 à 22:11
27 août 2001 à 14:19
27 août 2001 à 11:46
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
27 août 2001 à 11:45
en redimmensionnant (avec vb5) ca fait un clignotement !!!
Vaut mieux utiliser le meme api que pour griser le x a gauche et changer la constante.
27 août 2001 à 09:59
Allez bone prog'!!!!!!!
Gogogogogogoooooooooooo
27 août 2001 à 06:11
27 août 2001 à 06:10
form1.borderstyle=1