Interaction.MsgBox(Object, MsgBoxStyle, Object) Método

public static Microsoft.VisualBasic.MsgBoxResult MsgBox (object Prompt, Microsoft.VisualBasic.MsgBoxStyle Buttons = Microsoft.VisualBasic.MsgBoxStyle.OkOnly, object? Title = default);

public static Microsoft.VisualBasic.MsgBoxResult MsgBox (object Prompt, Microsoft.VisualBasic.MsgBoxStyle Buttons = Microsoft.VisualBasic.MsgBoxStyle.ApplicationModal, object Title = default);

static member MsgBox : obj * Microsoft.VisualBasic.MsgBoxStyle * obj -> Microsoft.VisualBasic.MsgBoxResult

Public Function MsgBox (Prompt As Object, Optional Buttons As MsgBoxStyle = Microsoft.VisualBasic.MsgBoxStyle.OkOnly, Optional Title As Object = Nothing) As MsgBoxResult

Public Function MsgBox (Prompt As Object, Optional Buttons As MsgBoxStyle = Microsoft.VisualBasic.MsgBoxStyle.ApplicationModal, Optional Title As Object = Nothing) As MsgBoxResult

Parámetros

Devoluciones

Uno de los siguientes valores:

Excepciones

Ejemplos

En este ejemplo se usa la MsgBox función para mostrar un mensaje de error crítico en un cuadro de diálogo con botones Sí y No. El botón No se especifica como la respuesta predeterminada. Para ello, se combinan los MsgBox valores constantes en una expresión numérica. En este caso, agregar 4 (la combinación de botones Sí/No) y 16 (la ventana Mensaje crítico ) y 256 (el segundo botón como botón predeterminado) proporciona un total de 276. El valor devuelto por la MsgBox función depende del botón elegido por el usuario: Sí devuelve un valor de 6; No devuelve un valor de 7.

' The following example requires that Option Infer be set to On.

' Define the message you want to see inside the message box.
Dim msg = "Do you want to continue?"

' Display a simple message box.
MsgBox(msg)

' Define a title for the message box.
Dim title = "MsgBox Demonstration"

' Add the title to the display.
MsgBox(msg, , title)

' Now define a style for the message box. In this example, the
' message box will have Yes and No buttons, the default will be
' the No button, and a Critical Message icon will be present.
Dim style = MsgBoxStyle.YesNo Or MsgBoxStyle.DefaultButton2 Or
            MsgBoxStyle.Critical

' Display the message box and save the response, Yes or No.
Dim response = MsgBox(msg, style, title)

' Take some action based on the response.
If response = MsgBoxResult.Yes Then
    MsgBox("YES, continue!!", , title)
Else
    MsgBox("NO, stop!!", , title)
End If

Comentarios

Si omite cualquier argumento posicional, debe conservar el delimitador de comas correspondiente.

Si el cuadro de diálogo muestra un botón Cancelar, presionar la tecla ESC tiene el mismo efecto que hacer clic en Cancelar.

Si el cuadro de diálogo contiene un botón Ayuda , se proporciona ayuda contextual para el cuadro de diálogo. Sin embargo, no se devuelve ningún valor hasta que se elige uno de los otros botones. En las aplicaciones de Windows Forms, al elegir el botón Ayuda se ejecuta el HelpRequested evento del formulario.

Los MsgBoxStyle valores de enumeración se enumeran en la tabla siguiente.

El primer grupo de valores (0-5) describe el número y el tipo de botones que se muestran en el cuadro de diálogo. El segundo grupo (16, 32, 48, 64) describe el estilo de icono. El tercer grupo (0, 256, 512) determina qué botón es el valor predeterminado. El cuarto grupo (0, 4096) determina la modalidad del cuadro de mensaje y el quinto grupo especifica si la ventana del cuadro de mensaje es la ventana de primer plano, junto con la alineación y la dirección del texto. Al agregar números para crear un valor final para el Buttons argumento, use solo un número de cada grupo.

Se aplica a

Consulte también

• InputBox(String, String, String, Int32, Int32)
• Show(String)