16,555
社区成员
发帖
与我相关
我的任务
分享
<Serializable()> Public Class DbException
Inherits Exception
''' <summary>
''' 错误标题
''' </summary>
''' <remarks></remarks>
Public ErrTip As String = ""
''' <summary>
''' 错误原因
''' </summary>
''' <remarks></remarks>
Public ErrReson As String = ""
''' <summary>
''' 构造函数
''' </summary>
''' <param name="ErrTip">错误标题</param>
''' <param name="ErrReson">错误原因</param>
''' <remarks></remarks>
Public Sub New(ByVal ErrTip As String, ByVal ErrReson As String)
Me.ErrTip = ErrTip
Me.ErrReson = ErrReson
End Sub
End Class
Try
Catch ex As ISRefBase.DbException
MessageBox.Show(ex.ErrReson, ex.ErrTip, MessageBoxButtons.OK, MessageBoxIcon.Error)
Return False
Catch ex As Exception
MessageBox.Show("发生未知错误,错误代码如下:" & vbCr & vbCr & ex.Message.ToString, "未知错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return False
End Try