desactivar el x boton cerrar

[alex_escudero14]

hola amigos quisiera saber como puedo desactivar el boton cerrar de un formulario pues me trae problemas, quisiera la ayuda yayaaaaa

[lucasiramos]

Hola, mira, nunca pude desactivarlo. Sí pude sacar los tres botones, que es poniendo la propiedad ControlBox del formulario en False. No se si te sirve.

Saludos. Lucas

[alex_escudero14]

Y SI HERMANO ARGENTINO, ME SIRVE Y MUCHO , ME PUEDE SERVIR PARA SACARME DEL APURO , PERO SI LO AVERIGUAS ALGUN DIA ME MANDAS LA RECETA DE COMO DESACTIVAR ESE BOTON CERRAR

[GeoAvila]

ok bueno aqui va la respuesta..

coloca esto en tu form

Código:

Private Sub Form_Load()
Bloquear_Cerrar
End Sub
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

y en un modulo esto..

Código:

Public Declare Function GetSystemMenu Lib "user32" _
    (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Public Declare Function ModifyMenu Lib "user32" Alias "ModifyMenuA" _
    (ByVal hMenu As Long, ByVal nPosition As Long, _
    ByVal wFlags As Long, ByVal wIDNewItem As Long, _
    ByVal lpString As Any) As Long
Public Declare Function DrawMenuBar Lib "user32" _
    (ByVal hWnd As Long) As Long
'
Public Const MF_BYCOMMAND = &H0&
Public Const MF_ENABLED = &H0&
Public Const MF_GRAYED = &H1&
'
Public Const SC_CLOSE = &HF060&

nos vemos y espero te sirva el codigo que ya lo pongo en las faq's.

[David]

Es un buen código, pero lo q' hace simplemente es impedir que se haga click en el botón cerrar pero no impide q' se cierre como te dije en el MP la vez pasada... Alt + F4

[GeoAvila]

Iniciado por David el Grande

Es un buen código, pero lo q' hace simplemente es impedir que se haga click en el botón cerrar pero no impide q' se cierre como te dije en el MP la vez pasada... Alt + F4

la verdad no lo recuerdo.. pero vamos a ver si podemos modificarlo aunque ando corto de tiempo en estos días..

nos vemos..

[David]

Iniciado por GeoAvila

la verdad no lo recuerdo.. pero vamos a ver si podemos modificarlo aunque ando corto de tiempo en estos días..

nos vemos..

Yo pondría algo así:
En el Form...

Código:

 
Private NotClose As Boolean
Private Sub Command1_Click()
Salir
End Sub
Private Sub Salir()
NotClose = False
Unload Me
End Sub
Private Sub Form_Load()
NotClose = True
Bloquear_Cerrar
End Sub
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, "Cerrar")
End Sub
Private Sub Form_Unload(Cancel As Integer)
If NotClose Then Cancel = -1
End Sub

En el módulo...

Código:

 
Public Declare Function GetSystemMenu Lib "user32" _
    (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Public Declare Function ModifyMenu Lib "user32" Alias "ModifyMenuA" _
    (ByVal hMenu As Long, ByVal nPosition As Long, _
    ByVal wFlags As Long, ByVal wIDNewItem As Long, _
    ByVal lpString As Any) As Long
Public Declare Function DrawMenuBar Lib "user32" _
    (ByVal hWnd As Long) As Long
Public Const MF_BYCOMMAND = &H0&
Public Const MF_ENABLED = &H0&
Public Const MF_GRAYED = &H1&
Public Const SC_CLOSE = &HF060&

[GeoAvila]

ahh claro ya recuerdo.. ese post.. tenes razon.. bueno.. actualizo las faq's más adelante para este código

nos vemos..

[ideasking]

Para impedir del todo que se pueda cerrar un formulario aún con Alt+F4, coloca en el evento unload del form lo siguiente:

Private Sub Form_Unload(Cancel As Integer)

Cancel = 1

End Sub

Esto no quita el boton de cerrar pero si lo deshabilita.

[David]

Por favor, no reviváis temas tan antiguos .

http://www.forosdelweb.com/f40/polit...el-web-101485/

Gracias.