在visual basic（而不是VB.net）中创建一个错误弹出框

Posted 2021-04-19

如何在Visual Basic中弹出错误？

更新：我尝试通过说明在visual basic中弹出一个弹出窗口

call MsgBox("This is a pop-up message", 0, "A Message")

我不再收到编译错误，但现在我遇到了运行时错误

权限被拒绝：'MsgBox'

这是代码的概述

<%
'other functions
Function parseString(aString)
    if startPos > 0 then
     'code
    Else
      call MsgBox("This is a pop-up message", 0, "A Message")
    End if
End Function
'other functions
%>

答案

Visual Basic的MsgBox函数应该可以解决问题。示例here：

MsgBox("This is a pop-up message", 0, "A Message")

只需用消息文本/标题替换字符串，然后使用整数来控制生成的弹出窗口的按钮。

另一答案

试试这个：Dim i As Integer

i = MsgBox("Message", vbCritical, "title")

如果发生错误，它将返回1。