Quitar el botón cerrar de un formulario

Alvaro
02 de Marzo del 2004
Alguien sabe como desactivar el botón cerrar de una ventana.
Gracias.

sdemingo
02 de Marzo del 2004
Hola,

aki lo tienes...

Private Declare Function GetSystemMenu Lib "User32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "User32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Const MF_BYPOSITION = &H400

Private Sub Form_Load()
'Elimina el menu del sistema numero 6 que es el equivalente a la X o al ALT+F4
RemoveMenu GetSystemMenu(Me.hWnd, 0), 6, MF_BYPOSITION
'Tambien puedes eliminar los demas submenus de sistema del Form
End Sub

salu2
sdemingo

Jorge
02 de Marzo del 2004
Lo otro que puedes hacer más sencillo es poner la propiedad ControlBox del Form a False.

Saludos.

Jorge

lvaro
02 de Marzo del 2004
Muchísimas gracias, he estado mucho tiempo queriendo quitar el botón y no había manera.
Un saludo
Álvaro