Вот документация о функции MsgBox.
Вот пример этого кода. Эти константы встроены в vbscript, поэтому вам не нужно объявлять их. Значение vbSystemModal
приведет к тому, что окно сообщения будет «модальным» - например, оно будет отображаться поверх всех других окон, пока не будет закрыто.
userInput = MsgBox("Prompt",vbExclamation+vbYesNo+vbSystemModal,"Title")
Select Case userInput
Case vbYes
MsgBox "User pressed yes."
Case vbNo
MsgBox "User pressed no."
End Select
Обратите внимание, что вам может потребоваться быть осторожным с неожиданным всплывающим окном для конечных пользователей, особенно в том, что касается того, какая кнопка используется по умолчанию и диалоговое окно является модальным. Если пользователь печатает и нажимает пробел, когда всплывающее окно, они могут выбрать кнопку по умолчанию, не читая сообщение в первую очередь. Вы можете рассмотреть значения vbDefaultButton1
или vbDefaultButton2
для назначения кнопки по умолчанию.