Interaction.MsgBox(Object, MsgBoxStyle, Object) Metod

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

Parametrar

Returer

Något av följande värden:

Undantag

Exempel

I det MsgBox här exemplet används funktionen för att visa ett kritiskt felmeddelande i en dialogruta med knapparna Ja och Nej. Knappen Nej anges som standardsvar. Detta görs genom att kombinera konstantvärdena MsgBox till ett numeriskt uttryck. I det här fallet ger tillägg av 4 (ja/nej-knappkombinationen) och 16 (fönstret Kritiskt meddelande ) och 256 (den andra knappen som standardknapp) totalt 276. Värdet som returneras av MsgBox funktionen beror på den knapp som användaren har valt: Ja returnerar värdet 6; Nej returnerar värdet 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

Kommentarer

Om du utelämnar några positionsargument måste du behålla motsvarande kommaavgränsare.

Om dialogrutan visar knappen Avbryt har det samma effekt att trycka på ESC-tangenten som att klicka på Avbryt

Om dialogrutan innehåller en Hjälp-knapp finns sammanhangsberoende hjälp för dialogrutan. Inget värde returneras dock förrän någon av de andra knapparna har valts. Om du väljer knappen Help i Windows formulärprogram körs händelsen HelpRequested för formuläret.

Uppräkningsvärdena MsgBoxStyle visas i följande tabell.

Den första gruppen med värden (0–5) beskriver antalet och typen av knappar som visas i dialogrutan. Den andra gruppen (16, 32, 48, 64) beskriver ikonformatet. Den tredje gruppen (0, 256, 512) avgör vilken knapp som är standard. Den fjärde gruppen (0, 4096) bestämmer meddelanderutans modalitet och den femte gruppen anger om meddelanderutans fönster är förgrundsfönstret, tillsammans med textens justering och riktning. När du lägger till tal för att skapa ett slutligt värde för Buttons argumentet använder du bara ett tal från varje grupp.

Se även

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