Dim res As Int=Msgbox2(“删除?”,“标题”,“是”,“取消”,“否”,Null) 如果res=DialogResponse。 积极然后 End If(结束条件)
Msgbox2Async(“删除?”,“标题”,“是”,“取消”,“否”,Null,False) 等待消息框结果(结果为Int) 如果结果=对话框响应。 积极然后 '. .. End If(结束条件)
Dim sf As Object=Msgbox2Async(“删除?”、“标题”、“是”、“取消”、“否”、Null、False) 等待(sf)消息框结果(结果为Int) 如果结果=对话框响应。 积极然后 '. .. End If(结束条件)