Cuando se usa msgbox para generar salida en vb, cómo usar el valor de retorno de msgbox
Función MsgBox
Muestra un mensaje en un cuadro de diálogo, espera a que el usuario haga clic en un botón y devuelve un número entero para indicarle al usuario en qué botón hacer clic.
Sintaxis
MsgBox(mensaje[, botones] [, título] [, archivo de ayuda, contexto])
Ejemplo de función MsgBox
Este ejemplo utiliza la función MsgBox?
para mostrar un mensaje de error grave en un cuadro de diálogo con los botones "Sí" y "No". El botón predeterminado en el ejemplo es "No" y el valor de retorno de la función MsgBox depende del botón que presione el usuario. Este ejemplo supone que
DEMO.HLP es un archivo de ayuda con un código de contenido de 1000. Privado?Sub?Command1_Click()
¿Dim?Msg,?Style,?Title,?Help,?Ctxt,?Response,?MyString
Msg?=?"Do?you ?quieres?continuar?"'?Información de definición.
¿Estilo?=?vbSíNo? ?vbCritical? ?vbDefaultButton2'?Botón de definición.
Título?=?"MsgBox?Demostración"'?define el título.
¿Ayuda?=?"DEMO.HLP"'?Archivo de ayuda de definición.
Ctxt?=?1000'?Título de definición '?Contexto. '?Mostrar información.
Respuesta?=?MsgBox(Msg,?Estilo,?Título,?Ayuda,?Ctxt)
Si?Respuesta?=?vbSí?Entonces'?El usuario presiona "Sí" " ".
MyString?=?"Sí"'?Completar una operación.
¿Otro'? El usuario presionó "No".
MyString?=?"No"'?Completar una operación.
End?If
End?Sub
El siguiente código utiliza los valores de retorno 1 y 7 para reemplazar vbYes y vbNo en el código anterior. Es exactamente igual que el código anterior. ：Privado?Sub?Command1_Click()
¿Dim?Msg,?Style,?Title,?Help,?Ctxt,?Response,?MyString
Msg?=?"Do? ¿Quieres?continuar?"'?Mensaje de definición.
¿Estilo?=?vbSíNo? ?vbCritical? ?vbDefaultButton2'?Botón de definición.
Título?=?"MsgBox?Demostración"'?define el título.
¿Ayuda?=?"DEMO.HLP"'?Archivo de ayuda de definición.
Ctxt?=?1000'?Título de definición '?Contexto. '?Mostrar información.
Respuesta?=?MsgBox(Msg,?Estilo,?Título,?Ayuda,?Ctxt)
Si?Respuesta?=?1?Entonces'?el usuario presiona "Sí" " ".
MyString?=?"Sí"
'?Completar una operación.
ElseIf?Response?=?7?Then?'?El usuario presionó "No".
MyString?=?"No" '?Completar una operación
Fin?Si
Fin?Sub