Descargar

'---------------------------------------------------------
'(c)Juan Fco. Berrocal
'Condicionar una salida (Preguntar al Cerrar) desde VB.NET
'Ejemplo para: http://www.mygnet.com
'---------------------------------------------------------
Imports System
Public Class Form1
 
    Private Sub btnSalir_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnSalir.Click
        'Declaramos la variable como tipo Object (objeto)
        'ya que manejaremos un "objeto"
        Dim salir As Object
 
        'Asignamos el valor, ademas tenemos que asignar en el estilo del
        'mensaje de la caja de texto de que va a ser "YesNO", para que asi
        'me permita elegir dos opciones.
        salir = MsgBox("¿Esta seguro(a) que desea salir?", MsgBoxStyle.YesNo, "Mensaje al usuario")
 
        'Condicionamos
        If salir = vbYes Then
            Application.Exit()
            'O si lo desea lo puedes hacer con "Me.Close()"
        End If
 
 
    End Sub
End Class

Descargar