Foros del Web » Programación para mayores de 30 ;) » Programación General »

Parar cierre de aplicación en VB

Estas en el tema de Parar cierre de aplicación en VB en el foro de Programación General en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 20/12/2010, 13:00
Avatar de Sirikon  
Fecha de Ingreso: marzo-2009
Mensajes: 82
Antigüedad: 15 años, 8 meses
Puntos: 11
Parar cierre de aplicación en VB

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:
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!
  #2 (permalink)  
Antiguo 24/12/2010, 12:01
Avatar de Aquaventus  
Fecha de Ingreso: junio-2010
Ubicación: Lima-Peru , En el alba de la naturaleza
Mensajes: 2.105
Antigüedad: 14 años, 5 meses
Puntos: 267
Respuesta: Parar cierre de aplicación en VB

Hola Sirikon eso no es en el evento FormClose, es en el FormClosing :
Código vb:
Ver original
  1. Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
  2.         Try
  3.                Dim answer As System.Windows.Forms.DialogResult
  4.                answer = MessageBox.Show("Esta seguro de cerrar?", "Unsaved Document", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
  5.                      If answer = System.Windows.Forms.DialogResult.No Then
  6.                            e.Cancel = True
  7.                      Else
  8.                            e.Cancel = False
  9.                            System.Environment.[Exit](0)
  10.  
  11.                      End If
  12.         Catch ex As Exception
  13.                      MessageBox.Show(ex.Message.ToString(), "Error")
  14.         End Try
  15. End Sub

Cualquier duda comenta. Saludos !.
__________________
Internet es tener todo el conocimiento global a tu disposición.
Desarrollo de Software - Ejemplos .Net

Etiquetas: vb
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta

SíEste tema le ha gustado a 1 personas




La zona horaria es GMT -6. Ahora son las 02:10.