Cerrar formulario y confirmar cierre al presiona el boton X del form

[klaudio83]

Holas todos, tengo una duda nuevemnte haber si me pueden dar una mano con esto.

Estoy trabajando con el Visual Studio 2008 y vb.net.
Tengo un formulario que me gustaria al apretar el boton X del form (ese que esta en la esquina superior derecha, de todos los forms), se preguntara si se desea guardar los cambios hechos en el mismo formulario, entonces guardaria los cambios y se cerraria dicho form.

El punto es que busque en san google, y encontre un evento asociado al cierre del form el "closing" o algo asi ,esto me servía, pero despues me di cuenta que cuando apretaba el boton guardar (que lo agrege yo), este boton registra los datos del formulario y despues se cierra. Por lo tanto se activava el evento closing al cerrar el formulario y no es precisamente lo que quiero, solo se deberia cerrar el form.
Solo necesito que se pregunte si desea guardar los cambios al apretar el boton "X" del form o al apretar el boton Cerrar(que lo agrege yo) y no en el boton Guardar.

Espero se alla entendido, sino pregunten nomas. XD
Eso seria muchas gracias de antemano

[eperedo]

Yo una vez estuve en una situación similar, por no decir idéntica. Aunque la solución que le di en ese momento no sé si sea la indicada funcionó sin problemas.
En el botón Guardar hacía algo así:

Código vb.net:

MetodoGuardarDatos()
'Acá cerraba el formulario con un Me.Close()
'Para que no afecte al evento Form_Closing uso el Dispose XD
Me.Dispose() 'Destruye al formulario de la memoria, obviamente cerrándolo.
 

Luego en el evento Form_Closing usando la propiedad CloseReason hago lo sgte:

Código vb.net:

If e.CloseReason = CloseReason.UserClosing Then
         MessageBox.Show("¿Desea guardar los cambios?")
End If
 

Con esto mostrarás ese mensaje cuando el usuario haga click en la X del form o se llame al método Close()

Cuando implementé esta "solución" -que no me gusta mucho- era mucho más novato de lo que soy ahora, supongo que alguien podrá encontrar una solución más "limpia" por así decirlo.

Espero te sirva

[Peterpay]

la solucion de eduardo es una opcion practica y simple la otra opcion seria usar el sender de tu evento form closing y averiguar que boton envio el cerrar.

if(((Control)sender).Id.ToString().Equals("botonGu ardar"))
cerrar sin notificar
else
notificar

[eledgarr]

¿Y si aprietan alt+f4 o algun atajo que tengas y no se guardaron los cambios?

Por mi experiencia te digo que no hay mas debe ser por el evento FormClosing, si no te la vas a pasar poniendo parches por cada excepción que tengas y vas a acabar con cientos de lineas de codigo por cada pantalla, te platico como lo solucione, tengo una bandera que llamare aqui transacción que puede tomar estos valores

0:ninguna
1: alta
2: baja
3:cambio

en el evento FormClosing disparo un proceso que verifica si transaccion es mayor a cero entonces se debe hacer algo antes de cerrar, si es asi entonces realiza la transaccion.

Al abrir la ventana transaccion vale cero, cuando se aprietan los botones de alta, baja o cambio transaccion toma su valor correspondiente, igual si se detecta algun cambio en los controles detecta que hay un cambio.

Espero explicarme perdona por no ponerte codigo, pero asi es la idea, puede ser largo el analisis y diseño pero neto que a la larga vale la pena.



Perdon falto comentar es verdad que e.CloseReason te puede detectar cuando se aprieta Alt+F4 y 7 psobilidades más por las que se cierra tu ventana,es más CloseReason.None te puede atrapar practicamente cualquier excepción, pero te repito por mi caso y mi experiencia recomiendo más lo anterior además que en ese proceso que te menciono tambien aprovecho para mandar a validar los cambios, digo no es la neta y las dos personas que te contestaron tienen mucho más conocimiento y experiencia que yo, pero eso es lo que me paso ami

[eperedo]

Claro, depende de que tanto pueda modificarse el escenario a futuro.

¿Y si aprietan alt+f4 o algun atajo que tengas y no se guardaron los cambios?

Si presionan alt+f4 quiere decir que se cierra el formulario por decisión del usuario, entonces según esto:

Código vb.net:

If e.CloseReason = CloseReason.UserClosing Then
         MessageBox.Show("¿Desea guardar los cambios?")
End If
 

Le preguntaría si desea guardar los cambios y luego cerraría el formulario.
Saludos.

[klaudio83]

jajajaja Excelente Muchas graciassss, de las 2 soluciones que me dieron las junte y me dio lo que necesitaba, Muchas gracias.

Dejo el codigo por si alguien mas lo necesita

Código vb.net:

Private Sub nueva_factura_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim dlgRes As DialogResult
        dlgRes = MessageBox.Show("Desea Cerrar y Guardar los Cambios Efectuados?", "Confirmar", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
 
        If sender.Equals(guardar) Then
            Me.Dispose()
        Else
            If dlgRes = Windows.Forms.DialogResult.Yes Then
                Dim valor As Boolean
                valor = btnGuardar()
 
                If valor = True Then
                    Me.Dispose()
                End If
 
                If valor = False Then
                    e.Cancel = True
                End If
 
            End If
 
            If dlgRes = Windows.Forms.DialogResult.No Then
                Me.Dispose()
            End If
 
        End If
    End Sub
 

[klaudio83]

Ups!, disculpen, me equivoque no funciona de la manera en que habia puesto en el post anterior.
Intente de otra forma y tampoco funciono,

Código vb.net:

Private Sub nueva_factura_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim dlgRes As DialogResult
        dlgRes = MessageBox.Show("Desea Cerrar y Guardar los Cambios Efectuados?", "Confirmar", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
 
        If e.CloseReason = CloseReason.UserClosing Then
            If dlgRes = Windows.Forms.DialogResult.Yes Then
                Dim valor As Boolean
                valor = btnGuardar()
                If valor = True Then
                    Me.Dispose()
                End If
                If valor = False Then
                    e.Cancel = True
                End If
            End If
 
            If dlgRes = Windows.Forms.DialogResult.No Then
                Me.Dispose()
            End If
        End If
 
    End Sub
 

y el boton guardar lo hago de esta manera

Código vb.net:

Private Sub guardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles guardar.Click
        If String.IsNullOrEmpty(txCodigoCli.Text) Then
            ep.SetError(txCodigoCli, "Ingrese un Cliente")
            If ListView1.Items.Count - 1 < 0 Then
                MessageBox.Show("Ingrese una Linea de Detalle ", "Mensaje", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                Exit Sub
            End If
            Exit Sub
        End If
        ep.Clear()
 
        If ListView1.Items.Count - 1 < 0 Then
            MessageBox.Show("Ingrese una Linea de Detalle ", "Mensaje", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            If String.IsNullOrEmpty(txCodigoCli.Text) Then
                ep.SetError(txCodigoCli, "Ingrese un Cliente")
                Exit Sub
            End If
            Exit Sub
        End If
        ep.Clear()
 
        Dim iva As String = obtenerIVA().ToString
        iva = iva * 100
        total = CalculaTotal()
        Dim IdFactura As Integer = ingresar_factura(txCodigoCli.Text, txFecha.Text, total, txtOrden.Text, txtObs.Text, iva)
 
        Dim fila As Integer
        For fila = 0 To ListView1.Items.Count - 1
            Dim codProd As String = ListView1.Items(fila).SubItems(0).Text
            Dim cantidad As String = ListView1.Items(fila).SubItems(3).Text
            Dim precio As String = ListView1.Items(fila).SubItems(4).Text
            Dim obs As String = ListView1.Items(fila).SubItems(6).Text
            ingresar_detalle(codProd, IdFactura.ToString, precio, cantidad, obs)
        Next
        Me.Dispose()
    End Sub
 

Espero me puedan ayudar y disculpen que moleste tanto.
Gracias

[danicuco]

Hola chicos... por lo que entendí del problema de claudio es que de alguna forma tienes que saber cuando se cierra por pulsar el aspa o por venir del evento provocado por el boton guardar ¿no?.

Te dejo un link donde explican muy bien como saber cuando han pulsado el aspa creo que eso te solucionaria la cosa...

[URL="http://www.elguille.info/NET/vs2005/trucos/saber_si_cierra_el_formulario_desde_la_x.htm"]http://www.elguille.info/NET/vs2005/trucos/saber_si_cierra_el_formulario_desde_la_x.htm[/URL]

saludos

[klaudio83]

cualquier idea sirve, ayuda porfavor!

[Peterpay]

es simple cuando el formulario se cierre sea cual sea la razon tu quieres solo validar cuando el usuario no tenga el formulario lleno o hubiese guardado los cambios para ello tendria sque hacer en el form closing en esta secuencia

ManejadorDeEventoFormClosing

si sender es BotonGuardar
cierraestacosa
si no
entonces evaluas porque de las tantas razones estas cerrando y realizas las acciones
necesarias para que el usuario guarde sus datos o que se yo o muestras el dialogo
de estas realmente seguro ( y no antes como lo tienes actualmente)

ya tienes el codigo solo tienes que ajustarlo para que quede bien

[klaudio83]

Me habia equivocado al poner una linea de codigo, ya lo arregle y ahora si que si funka. Grasiaz muchas thanks

Código vb.net:

Private Sub nueva_factura_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim dlgRes As DialogResult     
 
        Select Case e.CloseReason
            Case CloseReason.ApplicationExitCall
            Case CloseReason.FormOwnerClosing
            Case CloseReason.MdiFormClosing
            Case CloseReason.None
            Case CloseReason.TaskManagerClosing
            Case CloseReason.UserClosing
 
                dlgRes = MessageBox.Show("Desea Cerrar y Guardar los Cambios Efectuados?", "Confirmar", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                If dlgRes = Windows.Forms.DialogResult.Yes Then
                    Dim valor As Boolean
                    valor = btnGuardar()
                    If valor = False Then
                        e.Cancel = True
                    End If
                End If
 
            Case CloseReason.WindowsShutDown
        End Select
 
    End Sub
 

Hay si que si, al evento del boton Guardar utilizo el Me.Dispose() y asi no me captura el formclosing, eso muchaschos gracias por las respuestas