Mensaje enviado por José Rubí de la Vega <jrubi@ctv.es>
At 16:31 28/02/2000 -0800, Rudy Capatinta wrote:
>Ahora estoy buscando como desaparecer o poner el boton
>de maximizar en estado de Enabled=false de un formulario MDI.
De manera similar a como poner enabled=false en el boton cerrar lo puedes hacer en el maximizar. En realidad esto que vamos a hacer hace que no funcione pero sigue viéndose "normal".
Public Const MF_BYPOSITION = &H400
Public Const MF_REMOVE = &H1000
Public Declare Function DrawMenuBar Lib "user32" _
(ByVal hwnd As Long) As Long
Public Declare Function GetMenuItemCount Lib "user32" _
(ByVal hMenu As Long) As Long
Public Declare Function GetSystemMenu Lib "user32" _
(ByVal hwnd As Long, _
ByVal bRevert As Long) As Long
Public Declare Function RemoveMenu Lib "user32" _
(ByVal hMenu As Long, _
ByVal nPosition As Long, _
ByVal wFlags As Long) As Long
En el load :
'Obtenemos un handle al menú de sistema del formulario
hMenu = GetSystemMenu(Me.hwnd, 0)
If hMenu Then
Call RemoveMenu(hMenu, 4, _
MF_REMOVE Or MF_BYPOSITION)
Call DrawMenuBar(Me.hwnd)
End If
Un saludo.
_________________________________________________
José Rubí de la Vega
E-mail : jrubi@ctv.es
WWW : http://www.ctv.es/USERS/jrubi
Podrás encontrar información sobre VB, las listas
vb-esp y visualbasic-esp y un resumen de los
mensajes de las mismas