Interaction.MsgBox(Object, MsgBoxStyle, Object) Metodo

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

Parametri

Restituisce

Uno dei valori seguenti:

Eccezioni

Esempio

In questo esempio viene usata la MsgBox funzione per visualizzare un messaggio di errore critico in una finestra di dialogo con pulsanti Sì e No. Il pulsante No viene specificato come risposta predefinita. Questa operazione viene eseguita combinando i MsgBox valori costanti in un'espressione numerica. In questo caso, l'aggiunta di 4 (combinazione di pulsanti Sì/No) e 16 (finestra Messaggio critico ) e 256 (il secondo pulsante come pulsante predefinito) fornisce un totale di 276. Il valore restituito dalla MsgBox funzione dipende dal pulsante scelto dall'utente: Sì restituisce un valore pari a 6; No restituisce un valore pari a 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

Commenti

Se si omettono argomenti posizionali, è necessario mantenere il delimitatore virgola corrispondente.

Se nella finestra di dialogo viene visualizzato un pulsante Annulla , la pressione del tasto ESC ha lo stesso effetto di fare clic su Annulla

Se la finestra di dialogo contiene un pulsante ? , viene fornita la Guida sensibile al contesto per la finestra di dialogo. Tuttavia, fino a quando non viene scelto uno degli altri pulsanti, non viene restituito alcun valore. Nelle applicazioni Windows Form, la scelta del pulsante ? esegue l'evento HelpRequested per il modulo.

I MsgBoxStyle valori di enumerazione sono elencati nella tabella seguente.

Il primo gruppo di valori (0-5) descrive il numero e il tipo di pulsanti visualizzati nella finestra di dialogo. Il secondo gruppo (16, 32, 48, 64) descrive lo stile dell'icona. Il terzo gruppo (0, 256, 512) determina il pulsante predefinito. Il quarto gruppo (0, 4096) determina la modalità della finestra di messaggio e il quinto gruppo specifica se la finestra della finestra di messaggio è la finestra in primo piano, insieme all'allineamento e alla direzione del testo. Quando si aggiungono numeri per creare un valore finale per l'argomento Buttons , usare un solo numero da ogni gruppo.

Si applica a

Vedi anche

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