Ver Mensaje Individual
  #3 (permalink)  
Antiguo 03/12/2011, 08:43
JonathanB
Usuario no validado
 
Fecha de Ingreso: junio-2010
Ubicación: Guatemala
Mensajes: 196
Antigüedad: 13 años, 10 meses
Puntos: 25
Mensaje Respuesta: rutina para el cierre del programa

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:
Ver original
  1. Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
  2.     Me.Close()
  3. End Sub
  4.  
  5. Private Sub mainForm_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
  6.  
  7.     Dim r As DialogResult
  8.     r = MessageBox.Show("Está a punto de cerrar el programa. ¿Seguro que quiere salir?", _
  9.                         " ATENCIÓN!!!  ", _
  10.                         MessageBoxButtons.YesNo, _
  11.                         MessageBoxIcon.Question, _
  12.                         MessageBoxDefaultButton.Button2, _
  13.                         MessageBoxOptions.RightAlign)
  14.  
  15.     If r = DialogResult.No Then
  16.         e.Cancel = True
  17.     Else
  18.         Dim i As Integer
  19.         For i = Application.OpenForms.Count - 1 To 1 Step -1
  20.             Dim frm As Form = Application.OpenForms(i)
  21.             If frm IsNot Me Then
  22.                 frm.Close()
  23.             End If
  24.         Next
  25.     End If
  26. End Sub

Espero que te sea de utilidad