Urgente!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[miki_78]

Quisiera saber como controlar que te sales de la aplicación con la x de cerrar el formulario y poner un msgbox de si te quieres salir o no.
Muchas gracias.

[mamc]

Espero te sirva estos códigos:

desde el X :

Private Sub Form_Unload(Cancel As Integer)
Dim Resp As Integer
With FrmMain.SDITree
Select Case .ActiveForm.Name
Case Is = "FrmMain"
Resp = MsgBox(" ¿ Desea Salir del Sistema Ventas ? ", vbQuestion + vbYesNo + vbDefaultButton2, Me.Caption)
If Resp = vbYes Then
If .ActiveForm Is FrmMain Or _
.ActiveForm Is Nothing Then
Else
Call .CloseForm(.ActiveForm)
End If
End
Else
Cancel = True
End If
Case Else
Call .CloseForm(.ActiveForm)
Cancel = True
End Select
End With
End Sub


desde el Editor de Menues:

Private Sub mnu_salir_Click()
Dim Resp As Integer
Resp = MsgBox(" ¿ Desea Salir del Sistema Ventas ? ", vbQuestion + vbYesNo + vbDefaultButton2, Me.Caption)
If Resp = vbYes Then
End
Else
Exit Sub
End If
End Sub

[atlantis]

Hola, la solución a tu problema es muy sencilla... debes escribir en el evento QueryUnload de tu form lo que desees... este evento se desata siempre que cierras tus forms incluso si tratas de cerrar tus aplicaciones haciendo Ctrl + Alt + Del

Avísame si funcionó...
Saludos.

[miki_78]

Hola, muchas gracias a los dos por vuestro tiempo.

Tengo un problemilla con los eventos unload y queryunload y es que el formulario principal se descarga mas veces a parte de cuando te quieres salir de la aplicacion.
Seguiré intentándolo.

Muchas gracias de nuevo.

Un saludo.