Parar cierre de aplicación en VB

[lord_Sirikon]

Hola a todos tengo una duda:

Veréis estoy haciendo un editor de textos y quiero hacer que cuando le de a cerrar, antes me diga "¿Seguro que quieres cerrar sin guardar?", Si le doy a Aceptar se me salga de la aplicacion y si le doy a cancelar que no se cierre.

Ya lo tengo casi todo, solo necesito un comando para que anule el cierre de la aplicación y no haga nada.

Os pongo el código del "Antes de cerrar" tal cual lo tengo ahora.

Código (vb) [Seleccionar] Expandir

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

Salu2 y gracias de antemano!

[TGa.]

No tenes que colocar nada solo quedaria asi

Código (vb) [Seleccionar] Expandir

If MsgBox("Seguro que quiere salir sin guardar?", 1) = 1 Then
End
en else no tenes que colocar nada

[Psyke1]

No tenes que colocar nada solo quedaria asi

Código (vb) [Seleccionar] Expandir

If MsgBox("Seguro que quiere salir sin guardar?", 1) = 1 Then
End
en else no tenes que colocar nada

Código (vb) [Seleccionar] Expandir

If MsgBox("Seguro que quiere salir sin guardar?", 1) = 1 Then End

DoEvents!

[Elemental Code]

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"

[lord_Sirikon]

He probado y tampoco funciona.

¿No hay alguna acción que lo que haga sea simplemente anular el cierre o algo así?

[lord_Sirikon]

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"

Ya xD, de ese modo si se, la cosa es colocarlo en la X de cerrar predeterminada de Windows xD

[Psyke1]

Código (vb) [Seleccionar] Expandir

Private Sub Form_Unload(Cancel As Integer)
    If MsgBox("¿Salir?", vbYesNo) = vbNo Then Cancel = True
End Sub

No lei bien...

DoEvents!

[lord_Sirikon]

Código (vb) [Seleccionar] Expandir

Private Sub Form_Unload(Cancel As Integer)
    If MsgBox("¿Salir?", vbYesNo) = vbNo Then Cancel = True
End Sub

No lei bien...

DoEvents!

Que hago con eso? xDD, lo añado al código o lo sustituyo por el que e puesto yo?

[lord_Sirikon]

Bueno como hiciera lo que hiciera se acababa cerrando lo que he hecho al final es preguntar si guardar antes o no, si le doy a si lo guarda y sale y si le doy a no pues no guarda y sale.

Salu2 a todos y gracias por la ayuda!

[TGa.]

Perdon no habia leido bien, ahora que me fijo mejor esto va en .NET, de todos modos aqui tienes tu respuesta

Código (vbnet) [Seleccionar] Expandir

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If saved = True Then
            End
        Else
            If MsgBox(" Seguro que quiere salir sin guardar?", 1) = 1 Then
                End
            Else
                e.Cancel = True
            End If
        End If
    End Sub