54 lines
1.3 KiB
QBasic
54 lines
1.3 KiB
QBasic
Attribute VB_Name = "modError"
|
|
'==============================================================================
|
|
'
|
|
' File : Error.bas
|
|
' Date : 18.03.1999
|
|
' Version: 1.00
|
|
' Author : Andreas Schmidt, lindner&partner
|
|
'
|
|
'==============================================================================
|
|
'
|
|
' *shared*
|
|
'
|
|
' Standard-Fehler-MessageBox mit Logging der
|
|
' Fehlermeldung.
|
|
'
|
|
'==============================================================================
|
|
'
|
|
' History:
|
|
'
|
|
' Date : 11.02.1999
|
|
' Version: 1.00
|
|
' Author : Andreas Schmidt, lindner&partner
|
|
'
|
|
' Erste dokumentierte Version.
|
|
'
|
|
'==============================================================================
|
|
|
|
Option Explicit
|
|
|
|
' Helper für Fehlerausgaben
|
|
'
|
|
' @param sMethod Name des Aufrufers
|
|
' @param sInfo optionaler Hinweistext
|
|
'
|
|
Public Sub showError(sMethod As String, Optional sInfo As String)
|
|
Dim sError As String
|
|
|
|
If IsMissing(sInfo) Then sInfo = ""
|
|
|
|
If Not IsMissing(sInfo) Then sError = sError & sInfo & vbCrLf & vbCrLf
|
|
|
|
If Err.Number <> 0 Then
|
|
sError = sError & Error$(Err.Number) & " (" & Err.Number & ")"
|
|
End If
|
|
|
|
If Not g_Logger Is Nothing Then
|
|
Call g_Logger.log(1, sMethod + ": " + sError)
|
|
End If
|
|
|
|
Call ErrorMsgBox(sMethod + ": " + sError)
|
|
End Sub
|
|
|
|
|