rutina para el cierre del programa

[catanzaro99]

Hola estimados amigos

Soy nuevo en esto de programar (aunque soy un vejete en edad 52 jovenes años)
aunque he hecho mis pinitos en el viejo y querido Basic y Qbasic (cuantos recuerdos)
Ahora que estoy jubilado (a la fuerza) se me dió por aprender (autodidacticamente hablando) Visual Basic.
Cuento con el VB 2008 (Gracias a Jhony) y estoy programando (y practicando) para hacer un programa de Administración Escolar.
El tema que no puedo resolver (aunque no es muy importante) es el de poner un aviso que alerte a los usuarios cuando intentan cerrar el programa mediante un MessageBoxButtons.YesNo
la duda es que scree una pequeña rutina:

Código vb:

Dim Caption As String = " ATENCIÓN!!!  "
        Dim Message As String = "Está a punto de cerrar el programa. ¿Seguro que quiere salir?  "
        Dim Buttons As Integer = MessageBoxButtons.YesNo
        Dim Result As DialogResult
 
        'Exhibe un Mensaje con ícono de ? Con dos botones SI/NO con seleccion default en No.
 
        Result = MessageBox.Show(Me, Message, Caption, MessageBoxButtons.YesNo, _
            MessageBoxIcon.Question, MessageBoxDefaultButton.Button2, MessageBoxOptions.RightAlign)
 
 
        ' Obtiene el resultado de la pantalla de mensaje.
 
        If Result = System.Windows.Forms.DialogResult.Yes Then
            ' Cierra el formulario principal.
            Application.Exit()
            Me.Close() 'Tambien se puede utilizar esta sentencia   
        '                  Que cierra el formulario actual si actual es el formulario principal
        End If
 

Si bien la rutina funciona a la perfección, tengo dos pequeños problemas que no logro resolver
1) Si coloco la rutina dos veces (en el evento Form1_FormClosing y en un boton salir evento Button1_Click) el evento se repite dos veces (y hasta tres si utilizo Me.Close() para cerrar el form.)
2) Me gustaria crear un solo evento que se pueda llamar desde todos los forms, supongo que mediante una clase, pero no se como hacerlo, si me pueden orientar quedaría eternamente agradecido (ojo que no quiero me hagan todo el código, si me guían como hacerlo es suficiente, pero recuerden que mis neuronas estan oxidadas...)

aquí dejo todo el código de un form para que lo analicen y me digan que es lo que estoy haciendo mal:

Código vb:

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'LoginForm1.Show()
        Dim Caption As String = " ATENCIÓN!!!  "
        Dim Message As String = "Esta a punto de cerrar el programa. ¿Seguro que quiere salir?  "
        Dim Buttons As Integer = MessageBoxButtons.YesNo
        Dim Result As DialogResult
 
        'Exhibe un Mensaje con ícono de ? Con dos botones SI/NO con seleccion default en No.
 
        Result = MessageBox.Show(Me, Message, Caption, MessageBoxButtons.YesNo, _
            MessageBoxIcon.Question, MessageBoxDefaultButton.Button2, MessageBoxOptions.RightAlign)
 
 
        ' Obtiene el resultado de la pantalla de mensaje.
 
        If Result = System.Windows.Forms.DialogResult.Yes Then
            ' Cierra el formulario principal.
            Application.Exit()
            'Me.Close() 'Tambien se puede utilizar esta sentencia que cierra el formulario actual
            '           si actual es el formulario principal
        End If
 
    End Sub
 
       Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
 
        Dim Caption As String = " ATENCIÓN!!!  "
        Dim Message As String = "Esta a punto de cerrar el programa. ¿Seguro que quiere salir?  "
        Dim Buttons As Integer = MessageBoxButtons.YesNo
        Dim Result As DialogResult
 
        'Exhibe un Mensaje con ícono de ? Con dos botones SI/NO con seleccion default en No.
 
        Result = MessageBox.Show(Me, Message, Caption, MessageBoxButtons.YesNo, _
            MessageBoxIcon.Question, MessageBoxDefaultButton.Button2, MessageBoxOptions.RightAlign)
 
 
        ' Obtiene el resultado de la pantalla de mensaje.
 
        If Result = System.Windows.Forms.DialogResult.Yes Then
            ' Cierra el formulario principal.
            Application.Exit()
            'Me.Close() 'Tambien se puede utilizar esta sentencia que cierra el formulario actual
            '           si actual es el formulario principal
        End If
 
    End Sub
End Class
 

Gracias...

[erbuson]

Hola, si estás aprendiendo con el VB2008, debes efectuar tus consultas en el foro de VB NET ya que este es de nuestro querido VB Clásico

Probablemente, algun administrador te lo cambié allí, pero por si quieres ir ganando tiempo.

Un saludo y bienvenido entre todos nosotros.

[JonathanB]

Saludos,

• Felicitaciones por ese animo en seguir aprendiendo
• Para el formulario principal, solamente necesitas colocar el código en el evento FormClosing y en el botón debes invocar el método Close del formulario.
• Si se cierra el formulario principal y aceptan en el MessageBox, se cerraran todos los demás formularios; si estos formularios tienen la validación de salida, te mostrará un MessageBox por cada formulario que tengas abierto.

Código vb:

Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
    Me.Close()
End Sub
 
Private Sub mainForm_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
 
    Dim r As DialogResult
    r = MessageBox.Show("Está a punto de cerrar el programa. ¿Seguro que quiere salir?", _
                        " ATENCIÓN!!!  ", _
                        MessageBoxButtons.YesNo, _
                        MessageBoxIcon.Question, _
                        MessageBoxDefaultButton.Button2, _
                        MessageBoxOptions.RightAlign)
 
    If r = DialogResult.No Then
        e.Cancel = True
    Else
        Dim i As Integer
        For i = Application.OpenForms.Count - 1 To 1 Step -1
            Dim frm As Form = Application.OpenForms(i)
            If frm IsNot Me Then
                frm.Close()
            End If
        Next
    End If
End Sub
 

Espero que te sea de utilidad

[catanzaro99]

Hola Jonathan

En principio dejame pedirte disculpas por la demora en la respuesta, pero estuve alejado unos días y sin acceso a Internet.
Gracias por la rutina que me enviastes, funciona de maravillas (aunque solo en el form1 ya que si la duplico en cualquiera de los otros form's tal cual me lo avisastes, se abre un MessageBox por cada form abierto...

De allí surge mi otra pregunta ¿Se puede crear una Classe para que pueda ser llamada desde cualquier form desde el que se quiera cerrar el programa y realizar la rutina de cierre solo una vez para todos los form's (es decir una Application.Exit única)?

Nuevamente gracias, me fué realmente útil tu explicación y sigo analizándola... (para lubricar las neuronas jeje)


PD: Si el Moderador del foro o alguien quiere mover el mensaje al foro que le corresponda le estaré agradecido...

[Carlangueitor]

Hola catanzaro99,

Siendo que usas VB 2008 te paso el tema al foro Adecuado

Saludos

[Aquaventus]

Hola catanzaro99

• Reiterarte la Bienvenida al Foro!! .
• Si mas no me equivoco tu quieres salir de la aplicación desde cualquier form, si es eso cierto lo que te puedo dar es esta linea de código :

Código vb:

System.Environment.Exit(0)
 

Esperamos que tu actividad por el foro séa mas seguida. Saludos!.

[catanzaro99]

Hola Carlangueitor

Gracias por mover el tema, seguramente aquí lograré respuestas mas específicas...

Hola Aquaventus

Gracias por responder

En principio si bien lo que quiero es cerrar la aplicación desde cualquier form, el tema está en que quiero que antes de que se cierre el programa, se le envíe un mensaje de alerta el usuario, donde se le avise que está por cerrar la aplicación.
Yo creé una rutina en la que, mediante un MessageBoxButtons.YesNo se le avisa al usuario el cierre de la aplicación y este puede decidir si continua o cierra.
Con el aporte de JonathanB, la rutina mejoró, ya que al principio el MessageBox, se abria en multiples oportunidades y con la rutina nueva solo lo hace una vez (aunque funciona bien solo en el form1).
Ya que si pongo esta rutina en cualquier otro form, el MessageBox aparece tantas veces como form's abiertos tenga.

Lo que me planteo es hacer una llamada a un Class (desde cualquier form) que ejecute la rutina y si el usuario decide cerrar la aplicación, cierre todos los form's obviando la repeticion de la rutina.

Vale decir: Supongamos que tengo abiertos tres form's (form1, form2 y form3)
y desde el form3 se pide cerrar la aplicación (sea desde un button o desde el FormClosing) la acción del ButtonClick sea llamar al Class que maneja la rutina de cierre y mediante el MessageBoxButtons.YesNo si el usuario decide NO cerrar la plicación retorne al form que llamo la Class.
Pero si el usuario SI decide cerrar la aplicación, se ejecute Applicacion.Exit sin que se vuelva a llamar al Class.

Se entiende o me estoy complicando???

[catanzaro99]

Gracias a todos los que me ayudaron con este problema...

Al fin y al cabo lo resolví creando un cierre de Sesion de usuaro, ya que para usar todas las funcionalidades del programa es imprescindible loguearse, entonces aprovechando esto lo que se realiza es una finalización de sesión y se deriva al usuario al form1 (que es el único en el que no es necesario estar logueado) y desde alli si el usuario quiere cerrar el programa, pues utilizo la rutina de cierre (aportada por JohathanB... Gracias amigo...)

Gracias a todos los que aportaron su granito de arena...

Nos vemos...