windows-mobile - 在 MsgBox 关闭时做一些事情

Question

我正在 NS BASIC/CE 中制作一个向用户显示警告的程序，但是当用户关闭MsgBox（单击 OK）时，我希望应用程序执行AfterWarnSub。我怎么能做到这一点？

Answer 1

对不起，我读错了但是她：

Dim varResponse As VbMsgBoxResult
vResult = Msgbox("Are you sure you wanted to make this change?.",vbOkCancel)
If result = vbOk Then
    AfterWarn()
Else
   'Do something else?
End if