【发布时间】:2015-12-24 08:43:06
【问题描述】:
我有一个用 VB.NET 编写的 Windows 服务,它使用 Visual Basic 的 Err 对象在运行时记录错误。当我调试服务时,它没有给我任何错误,但同时它正在设置带有编号13 的Err 对象,这意味着我在某处有类型不匹配(根据Error List)知道我如何调试时可以强行抛出运行时异常吗?我试过评论下面的代码,但没有运气:-
On Error Resume Next
【问题讨论】:
我有一个用 VB.NET 编写的 Windows 服务,它使用 Visual Basic 的 Err 对象在运行时记录错误。当我调试服务时,它没有给我任何错误,但同时它正在设置带有编号13 的Err 对象,这意味着我在某处有类型不匹配(根据Error List)知道我如何调试时可以强行抛出运行时异常吗?我试过评论下面的代码,但没有运气:-
On Error Resume Next
【问题讨论】:
如果 Err 有任何错误,您可以使用 Err.Raise() 方法或 Throw Err.GetException() 方法。
If Err.Number <> 0 Then
Throw Err.GetException()
End If
或
If Err.Number <> 0 Then
Err.Raise(Number:=Err.Number, Source:=Err.Source, Description:=Err.Description, HelpFile:=Err.HelpFile, HelpContext:=Err.HelpContext)
End If
【讨论】: