|
Private Sub Command1_Click()
Dim Mensaje, Estilo, Título,
Respuesta, MiCadena
Mensaje = "¿Estas totalmente
seguro de lo que vas a hacer?" ' cuerpo del mensaje.
Estilo = vbYesNo + vbCritical '
Define el estilo, los botones, lo que está después del mas es el
circulo rojo con la cruz.
Título = "error grave (mentira)" ' es el título.
Respuesta = MsgBox(Mensaje,
Estilo, Título) 'el paréntesis se pone también
If Respuesta = vbYes Then ' El
usuario eligió el botón Sí.
MiCadena = "Sí" ' Ejecuta una
acción.
Else ' El usuario eligió el
botón No.
MiCadena = "No" ' Ejecuta una
acción.
Form1.Visible = False 'Aca puse
una acción que usted ya conoce
End If
End Sub |