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