msgbox

fracis
06 de Febrero del 2004
hola
tengo esto
MsgBox " salir ", vbYesNoCancel
pero yo quiero que cuando salga le aceptar o cancelar
si yo acepto me salga del programa.
pero si cancelo me deje dentro y no salga.

gracias
espero que me entendais.

bezael
06 de Febrero del 2004
OK, FRACIS, ESTO AMI ME FUNCIONA, QUIZAS ALGUIN MAS TE PUEDA DAR ALGO MAS PROFESIONAL. ( ES QUE AUN SOY UN NOVATO)
EN EL EVENTO QueryUnload DEL FORM EN CUESTION
***************************************************************************
Dim PRE
PRE = MsgBox(" CONFIRME LA SALIDA", vbOKCancel + vbQuestion, "SYSTEMA")
If PRE = vbOK Then
Cancel = False
Else
Cancel = True
End If
***************************************************************************

en?
06 de Febrero del 2004
Hola a los dos,

bezael ha respondido correctamente, sólo quiero añadir que este tipo de evaluaciones se pueden simplificar. Tomando el mismo ejemplo, otra forma de hacerlo sería así:

If MsgBox(" CONFIRME LA SALIDA", vbOKCancel + vbQuestion, "SYSTEMA") = vbNo Then Cancel = True

así os ahorrais variables y lineas de código para estos casos.

Un saludo.

andru1x
06 de Febrero del 2004
tambien podrias Hacer esto

Private Sub Form_Unload(Cancel As Integer)
Dim x As Integer
x = MsgBox(" salir ", vbYesNoCancel)

If x = vbNo Or x = vbCancel Then
Cancel = True
End If

End Sub

saludos

bezael
06 de Febrero del 2004
GRACIAS ENÇO

FRANCIS
06 de Febrero del 2004
gracias chicos por aclarar el tema.