当 MsgBox 关闭时做一些事情

【问题标题】：Do Something When MsgBox Is Closed当 MsgBox 关闭时做一些事情
【发布时间】：2010-10-12 23:53:19
【问题描述】：

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

【问题讨论】：

标签： windows-mobile windows-ce msgbox nsbasic

【解决方案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

【讨论】：