如何制作按钮＆＃34;发送报告＆＃34;在错误MsgBox？

Question

这个 errHandler 是否有办法按下发送报告或类似的内容，如果有人收到可能以某种方式记录的错误。这是我用于errHandler的代码：

On Error GoTo errHandler

....一些代码......

errHandler:
    MsgBox "An Error has Occurred  " & vbCrLf & _
        "The error number is:  " & Err.Number & vbCrLf & _
        Err.Description & vbCrLf & "Please notify the administrator"
End Sub

Answer 1

最简单的方法是更改​​MsgBox默认按钮并测试点击的按钮。

errHandler:
    If MsgBox("An Error has Occurred  " & vbCrLf & _
        "The error number is:  " & Err.Number & vbCrLf & _
        Err.Description & vbCrLf & "Would you like to send an error report?", _
        vbYesNo) == vbYes then
            send_error_report_function Err.Number
    End If
End Sub

Microsoft更多地了解了您可以在其网站上使用MsgBox执行的操作的详细信息。

另一种可以让您获得更多控制权并且需要更多开发时间的替代方案是编写自己的表单。