0

Tengo una aplicación (Forms) de VB.NET necesito que cuando pulse el botón de cerrar escriba en un fichero un texto, por lo tanto capturo el evento de cierre de Form para luego escribir en el fichero de la siguiente forma:

Private Sub FrmMainPlatform_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.Closing
    Dim file As System.IO.StreamWriter
    file = My.Computer.FileSystem.OpenTextFileWriter("fichero.txt", False)
    file.Write("texto")
    file.Close()
    Application.Exit()
End Sub

Pero el cerrar la aplicación me doy cuenta de que no la termina, es decir el Visual Studio sigue corriendo y si la ejecuto manualmente en el visor de tareas sigo viendo la aplicación y no quiero abrir tantas instancias como veces la ejecute

7
  • que pasa si quitas el Application.Exit()?
    – gbianchi
    el 26 jun. 2019 a las 15:17
  • Lo mismo, sigue corriendo la aplicación, no se cierra
    – marcss
    el 26 jun. 2019 a las 15:18
  • No tendras otro formulario abierto entonces? uh otra cosa que todavia esta procesando? si cerras el unico formulario que hay, la aplicacion deberia cerrarse sin que hagas el exit. Si sacas el codigo para grabar el archivo se cierra?
    – gbianchi
    el 26 jun. 2019 a las 15:21
  • Si tengo otro formulario abierto, pero he añadido el codigo close de ese formulario, si quito el codigo tampoco se cierra, y si añado Me.close() me da stackoverflow
    – marcss
    el 26 jun. 2019 a las 15:23
  • El problema esta en que un formulario se ve que trata de mantener al otro abierto o algo asi.. si haces me.close, vuelve a querer ejecutar este evento que vuelve a querer hacer me.close eternamente... Tendriamos que tener un ejemplo mínimo verificable para poder ver que es lo que queda abierto
    – gbianchi
    el 26 jun. 2019 a las 15:24

2 respuestas 2

1

Primero pienso que deberías echar un vistazo a esto

Por mi parte yo uso End cuando no quiero que se quede ningún subproceso abierto:

El siguiente ejemplo usa la sentencia End para terminar con la ejecución de un programa con el consentimiento del usuario, como se plantea aquí:

Sub Form_Load()      
  If MsgBox("Deseas terminar la aplicación?", vbYesNo Or vbQuestion) = vbYes Then
      End
  End If
End Sub
0

Yo Pienso que debe de ser por esto, y puedes solucionar-lo así

' Has de Añadir un Reloj ( Control Timer ) y Hacer Que Allí Se Produzca el evento de Cierre del Formulario
    ' No se Puede Provocar la salida Dentro de esa Sub, Esa Sub solo sirve para Revocar la orden de cierre del mismo... 

Dim SeHizo as Boolean = False
    Private Sub FrmMainPlatform_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing   
 Dim file As System.IO.StreamWriter
        If SeHizo = False Then 
          SeHizo = True
          e.Cancel = True
          Timer1.Interval = 1000
          Timer1.Enabled = True 
        End If
        'Application.Exit()
    End Sub

     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Timer1.Enabled = False
file =  My.Computer.FileSystem.OpenTextFileWriter("fichero.txt", False)
        file.Write("texto")
        file.Close()
        Application.Exit()
    End Sub

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.