Ok lo pondré aí
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: Mr. Frog © en 20 Diciembre 2010, 21:36 PMPrivate Sub Form_Unload(Cancel As Integer)
If MsgBox("¿Salir?", vbYesNo) = vbNo Then Cancel = True
End Sub
No lei bien...
DoEvents!
Cita de: Elemental Code en 20 Diciembre 2010, 21:30 PM
el problema es que el evento tuyo esta en el form close
osea ya es inevitable.
coloca ese codigo en el boton que diga "Cerrar"
Private Sub Form1_Close(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.FormClosing
If saved = True Then
End
Else
If MsgBox("¿Seguro que quiere salir sin guardar?", 1) = 1 Then
End
Else
'no cerrar aplicacion
End If
End If
End Sub