вопрос про MSGBOX

[borg]

товарисчи!!!
вопрос таков
как в этом MSGBOX отловить нажатие кнопок
таких как ОК, Cancel и т.д. и т.п.
поможите кто знает!

[Prickly]

Надеюсь вопрос я понял правильно.

Код: Выделить всё

Dim msg As Byte

msg = MsgBox("Press button", vbOKCancel)
If msg = 1 Then
  MsgBox ("ok")
Else
  MsgBox ("Cancel")
End If

[Faust]

Только вот "1" я бы не сразу вспомнил. Есть такие хорошие константы, как vbOK, vbCancel, vbYes, vbNo...

[Prickly]

Вот некоторое добавление

Код: Выделить всё

MsgBox vbOK 'код кнопки OK
MsgBox vbCancel 'код кнопки Cancel
MsgBox vbYes 'код кнопки Yes
MsgBox vbNo 'код кнопки No

и так далее

[Prickly]

Опаздал с добавлением. Извиняюсь

[gaidar]

КАТЕГОРИЧЕСКИ _НЕ_ РЕКОМЕНДУЕТСЯ ИСПОЛЬЗОВАТЬ ЧИСЛОВЫЕ КОНСТАНТЫ, а то пойди потом вспомни, что чему там равно!

[Prickly]

Больше не буду, правда

[cg_ck]