Min/Max/Close Buttons

[jorevale]

Hola amigos

Mi ignorancia me hace preguntarles si es posible en un formulario tener habilitados los botones de minimizar y maximizar, pero no el de cerrar.

Me explico. No me interesaría que la aplicación la cerraran por la X del botón cerrar, sino por la opción salir del menú del programa; sin embargo, si me interesaría que el usuario tuviera la posibilidad de minimizarla.

Resulta que si en el formulario pongo la propiedad ControlBox a False me desaparecen los tres, claro, por tanto creo debo dejarla a True, y poner las propiedades MinButton, MaxButton a True y CloseButton a False (o enabled)... pero es que CloseButton no existe!!! jejeje

Alguien tiene idea? Gracias

[GeoAvila]

seria algo asi

Código:

Private Sub Bloquear_Cerrar()
Dim hMenu As Long
	'
hMenu = GetSystemMenu(hWnd, 0)
	' Deshabilitar el menú cerrar del formulario
Call ModifyMenu(hMenu, SC_CLOSE, MF_BYCOMMAND Or MF_GRAYED, -10, "Close")
End Sub

nos vemos...

[lucasiramos]

Hola Geo ¿Hay que agregar alguna librería o algo por el estilo? Me tira que el procedimiento GetSystemMenu no esta definido

Saludos. Lucas

[RadicalEd]

GetSystemMenu es un api debes buscar el valor de esa api, con el apiviewer, una forma un poquito mas facil seria asi:

Código:

Private Sub Form_UnLoad(Cancel As Integer)
On Error Resume Next
Cancel = True
End Sub

[e1_rg]

La declaracion API es asi :


Public Declare Function GetSystemMenu _
Lib "user32" _
(ByVal hWnd As Long, _
ByVal bRevert As Long) As Long

( esto ya sabes como llamarlo con la respuesta de GeoAvila )
Esta funcion te puede ayudar :

Private Declare Function RemoveMenu _
Lib "user32" _
(ByVal hMenu As Long, _
ByVal nPosition As Long, _
ByVal wFlags As Long) As Long

y la llamas asi :

RemoveMenu hWndMenu, 6, MF_BYPOSITION Or MF_REMOVE

las constantes son :

Private Const MF_BYPOSITION = &H400&
Private Const MF_REMOVE = &H1000&


Saludos

[David]

Iniciado por jorevale

Hola amigos

Mi ignorancia me hace preguntarles si es posible en un formulario tener habilitados los botones de minimizar y maximizar, pero no el de cerrar.

Me explico. No me interesaría que la aplicación la cerraran por la X del botón cerrar, sino por la opción salir del menú del programa; sin embargo, si me interesaría que el usuario tuviera la posibilidad de minimizarla.

Resulta que si en el formulario pongo la propiedad ControlBox a False me desaparecen los tres, claro, por tanto creo debo dejarla a True, y poner las propiedades MinButton, MaxButton a True y CloseButton a False (o enabled)... pero es que CloseButton no existe!!! jejeje

Alguien tiene idea? Gracias

Coloca así:

Código:

Private RClose As Boolean
Private Sub Form_Unload(Cancel As Integer)
If Not RClose Then
Cancel = -1
End If

En el Menú Coloca:

Código:

RClose = True
Unload Me

[jorevale]

Mil gracias. Saludos.

[GeoAvila]

Cierto disculpen pero esque en ese momento no tenia teclado, lo mas que alcance a hacer fue copìar y pegar y algo a la rapida, pido disculpas por eso..

pero bueno.. ya esta solucionado..

nos vemos..