La finalización del programa pasa también por varias fases.
Existe una fase previa de salida en la cual se puede abortar la salida del programa.
Private Sub Programa_FormClosing(ByVal sender As Object, _
ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
e.Cancel = MsgBox("Desea salir.", MsgBoxStyle.YesNo) = MsgBoxResult.No
End Sub
Y una fase en la que el programa se cierra.
Private Sub Programa_FormClosed(ByVal sender As Object, _
ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
FileClose(Canal)
End Sub
De esta forma la salida del programa puede personalizarse en función de las necesidades del mismo, y controlar si hay datos pendientes de guardar para realizar una confirmación de salida.
If DatosPendientes then
e.Cancel = MsgBox("Hay datos sin grabar, ¿desea salir?.", MsgBoxStyle.YesNo) = MsgBoxResult.No
End if
Síguenos en: Facebook Sobre aulaClic Política de Cookies