Как мне узнать, что я получаю от MsgBox?

Question

В VB6 я пытаюсь выяснить, как получить ввод от пользователя в MsgBox

Вот мой код:

Dim myAnswer As Integer

myAnswer = MsgBox("Do you want to buy this upgrade?", vbOKCancel, "Upgrade Description")

MsgBox предлагает ОК икнопка отмены, но я не знаю, как определить, правильно ли они нажали или отменили.

Answer 1

Здесь:

Dim myAnswer As Integer
myAnswer = MsgBox("Do you want to buy this upgrade?", vbOKCancel, "Upgrade Description")

If myAnswer = vbOK Then
    MsgBox "You clicked 'OK'."
ElseIf myAnswer = vbCancel Then
    MsgBox "You clicked 'Cancel'."
' ...
End If

Существует 7 констант для результата, возвращаемого функцией MsgBox:

Constant    Value   Description
vbOK        1       OK
vbCancel    2       Cancel
vbAbort     3       Abort
vbRetry     4       Retry
vbIgnore    5       Ignore
vbYes       6       Yes
vbNo        7       No

Ссылки:

• Функция MsgBox .