Ver Mensaje Individual
  #1 (permalink)  
Antiguo 14/02/2007, 05:45
Avatar de keroveros
keroveros
 
Fecha de Ingreso: febrero-2006
Mensajes: 55
Antigüedad: 19 años, 4 meses
Puntos: 0
Evitar cierre de aplicación

Muy buenas:

¿Como puedo controlar cuando clickean sobre la X de la ventana?

es decir, cuando pincha para cerrar se dirige al evento form_terminate no? (pregunto esto basico porque empiezo a dudar ya de que sea asi,jejeje)

veran, tengo puesto en el form terminate el siguiente codigo:

Private Sub Form_Terminate()

M = MsgBox("¿Seguro?", vbOKCancel, "Salir")
If M = 2 Then

Exit Sub

Else
If Not (xlBook Is Nothing) Then
xlBook.Application.Quit
End If
End If

End Sub

----------

tambien he probado con esta variante:

Private Sub Form_Terminate()

If MsgBox("¿Seguro?", vbOKCancel, "Salir") = vbCancel Then
Exit Sub

Else
If Not (xlBook Is Nothing) Then
xlBook.Application.Quit
End If
End If

End Sub
------------------

tanto si le doy a cancel como a aceptar cierra la aplicacion, ¿como se aborta el cierre de la aplicacion?he probado con abort, exit, exit sub

Gracias de antemano y Salu2!