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; Значение 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 при выборе кнопки Help выполняется событие HelpRequested для формы.

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

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

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

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