Autor Tema: Boton Cerrar De Un Formulario (Leído 1621 veces)

karolarivero · « **en:** Lunes 9 de Julio de 2007, 21:59 »

Hola a todos

Tengo una duda, estoy tratando de que al cerrar, o sea al darle click al botón cerrar de un formulario este emita un mensaje como: ¿Esta seguro de cerrar la aplicación? Si o No, si afirma sale si no se queda en ese formulario, para ello estoy usando el siguiente código:

Código: Text

 
Private Sub RecepcionDTrigo_Closing(ByVal sender As Object, ByVal e As_ System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
 
        Dim Respuesta As MsgBoxResult
 
        Respuesta = MsgBox(&#34;¿Realmente deseas cerrar Recepción de Materia Prima?&#34;, MsgBoxStyle.DefaultButton2 Or MsgBoxStyle.Exclamation Or MsgBoxStyle.YesNo)
 
        If Respuesta = MsgBoxResult.Yes Then
            ' Cerrar la conexión
            Try
                If ObjetoConectar.State = ConnectionState.Open Then
                    ObjetoConectar.Close()
                End If
            Catch
            End Try  
 
            me.Close()
        End If
 
 
    End Sub
 
 

Pero no se porque no me funciona, si la repuesta es afirmativa no sale y el msgBox queda desplegado, si es negativa se sale. No entiendo, alguien me podria explicar?

Me parece que no estoy usado el evento correcto, si ese es el caso que puedo usar?

Saludos y Gracias por su atención

Cajami · « **Respuesta #1 en:** Lunes 9 de Julio de 2007, 23:19 »

Hola, que tal si pruebas con esto:

Código: Text

    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        If MessageBox.Show(&#34;¿Realmente deseas cerrar Recepción de Materia Prima?&#34;, &#34;Sistema de .....&#34;, MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.Yes Then
            End
        Else
            e.Cancel = True
        End If
    End Sub
 

Espero te sirva nos vemos

karolarivero

Hola

Me funciono de la siguiente manera:

Código: Text

 
Private Sub RecepcionDTrigo_FormClosing(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
 
        If MessageBox.Show(&#34;¿Realmente deseas cerrar Recepción de Materia Prima?&#34;, &#34;Sistema de .....&#34;, MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.Yes Then
            e.Cancel = False
        Else
            e.Cancel = True
        End If
    End Sub

Gracias por la ayuda!

Cajami

Hola, para todo caso, puedes hacer lo siguiente:

en la pregunta IF en vez de que sea asi:

Código: Text

If MessageBox.Show(&#34;¿Realmente deseas cerrar Recepción de Materia Prima?&#34;, &#34;Sistema de .....&#34;, MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.Yes Then
 

pon asi (que la respuesta de No):

Código: Text

If MessageBox.Show(&#34;¿Realmente deseas cerrar Recepción de Materia Prima?&#34;, &#34;Sistema de .....&#34;, MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.No Then
 

si es No entonces pones e.Cancel = True y no se va a poder salir, si la respuesta fuera si nu se hace naa y se cierra, nos vemos

SoloCodigo

Autor Tema: Boton Cerrar De Un Formulario (Leído 1621 veces)

karolarivero

Boton Cerrar De Un Formulario

Cajami

Re: Boton Cerrar De Un Formulario

karolarivero

Re: Boton Cerrar De Un Formulario

Cajami

Re: Boton Cerrar De Un Formulario