VB6中的ErrorHelper

今天还是修改原先VB6处理的程序,在错误处理方面需要一些改进,弄了一个ErrorHelper的类,还是有点用处的,存到这里吧.

Option Explicit

Private m_Continue As Boolean

Private m_MessageString As String

Private m_DisplayDetailErrInfo As Boolean

Public Event onError()

'解析错误对象
'DefaultMessageString:显示的提示消息,如果为空则显示缺省消息
'frm:处理卸载窗体,可选
End Sub

测试代码:

Dim WithEvents eh As ErrorHelper

通过这些代码可以节约一些重复代码的数量,作为一个小的底层错误处理机制应该还可以.