Interaction.MsgBox(Object, MsgBoxStyle, Object) Метод

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

Параметры

Возвращаемое значение

Одно из следующих значений:

Исключения

Примеры

В этом примере функция используется MsgBox для отображения сообщения о критической ошибке в диалоговом окне с кнопками Да и Нет. Кнопка Нет указана в качестве ответа по умолчанию. Это делается путем объединения значений MsgBox констант в одно числовое выражение. В этом случае добавление 4 (сочетание кнопки "Да/Нет") и 16 (окно Критическое сообщение ) и 256 (вторая кнопка по умолчанию) дает в общей сложности 276. Значение, возвращаемое функцией, MsgBox зависит от кнопки, выбранной пользователем: да возвращает значение 6; Значение No возвращает значение 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

Комментарии

Если опустить позиционные аргументы, необходимо сохранить соответствующий разделитель запятых.

Если в диалоговом окне отображается кнопка Отмена , нажатие клавиши ESC имеет тот же эффект, что и нажатие кнопки Отмена.

Если диалоговое окно содержит кнопку Справка , для этого диалогового окна предоставляется контекстная справка. Однако значение не возвращается, пока не будет выбрана одна из других кнопок. В приложениях Windows Forms при нажатии кнопки Справка выполняется HelpRequested событие для формы.

Значения MsgBoxStyle перечисления перечислены в следующей таблице.

Первая группа значений (0–5) описывает количество и тип кнопок, отображаемых в диалоговом окне. Вторая группа (16, 32, 48, 64) описывает стиль значка. Третья группа (0, 256, 512) определяет, какая кнопка используется по умолчанию. Четвертая группа (0, 4096) определяет модальность окна сообщения, а пятая группа указывает, является ли окно окна сообщения окном переднего плана, а также выравнивание и направление текста. При добавлении чисел для создания окончательного значения аргумента Buttons используйте только одно число из каждой группы.

Применяется к

См. также раздел

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