This shows you the differences between two versions of the page.
Both sides previous revision Previous revision Next revision | Previous revision | ||
vba:classes:log4vba [09.03.2018 11:00:50] yaslaw [debugValue()] |
vba:classes:log4vba [21.10.2019 12:10:41] (current) yaslaw |
||
---|---|---|---|
Line 1: | Line 1: | ||
<const> | <const> | ||
- | version=1.5.1 | + | version=1.5.6 |
- | vdate= 28.6.2017 | + | vdate= 21.10.2019 |
fname=log4vba.cls | fname=log4vba.cls | ||
ns=%NAMESPACE% | ns=%NAMESPACE% | ||
Line 16: | Line 16: | ||
{{%%fname%%|Download %%fname%% (V-%%version%%)}}</WRAP> | {{%%fname%%|Download %%fname%% (V-%%version%%)}}</WRAP> | ||
- | Mit dem Errohandling und Debug-Inrmationen in VBA ist es immer wieder mühsam, jedesmal alles auszuprogrammieren. Darum habe ich für mich diese Klasse geschrieben. Sie ist einfach zu implementieren und ermöglicht ein einheitliches Error-Handling über ein gesammtes Projekt. | + | Mit dem Errohandling und Debug-Informationen in VBA ist es immer wieder mühsam, jedesmal alles auszuprogrammieren. Darum habe ich für mich diese Klasse geschrieben. Sie ist einfach zu implementieren und ermöglicht ein einheitliches Error-Handling über ein gesammtes Projekt. |
===== Definitionen ===== | ===== Definitionen ===== | ||
Line 245: | Line 245: | ||
==== info() ==== | ==== info() ==== | ||
Schreibt eine Information. Der Erste Paramter kann ein Text oder ein ErrObject sein | Schreibt eine Information. Der Erste Paramter kann ein Text oder ein ErrObject sein | ||
- | <code>flag = Log4vba()info(Err) | + | <code>flag = Log4vba.info(Err) |
- | flag = Log4vba()info(Message [,ErrorBumber [,Source [,Array(Parameters) [,Settings]]]])</code> | + | flag = Log4vba.info(Message [,ErrorBumber [,Source [,Array(Parameters) [,Settings]]]])</code> |
<code vb>'/** | <code vb>'/** | ||
' * @param ErrObject/String | ' * @param ErrObject/String | ||
Line 283: | Line 283: | ||
Err_Handler: | Err_Handler: | ||
Log4vba().info "Manuelle Meldung", "testLog4vba2()" | Log4vba().info "Manuelle Meldung", "testLog4vba2()" | ||
- | Debug.Assert Log4vba().info(Err, , "testLog4vba2()", Array(iId, iArray)) | + | Debug.Assert Log4vba.info(Err, , "testLog4vba2()", Array(iId, iArray)) |
End Sub</code> | End Sub</code> | ||
<code>testLog4vba2 123, array("Stefan", "Erb", "Winterthur") | <code>testLog4vba2 123, array("Stefan", "Erb", "Winterthur") | ||
Line 497: | Line 497: | ||
' */ | ' */ | ||
Public Function writeToConsole(ByVal iLogType As eLogType, ByVal iText As String) | Public Function writeToConsole(ByVal iLogType As eLogType, ByVal iText As String) | ||
- | If Not CurrentProject.AllForms("FRM_SYS_CONSOLE").IsLoaded Then DoCmd.OpenForm C_CONSOLE | + | If Not CurrentProject.AllForms("FRM_SYS_CONSOLE").IsLoaded Then DoCmd.OpenForm "FRM_SYS_CONSOLE" |
Form_FRM_SYS_CONSOLE.log iText | Form_FRM_SYS_CONSOLE.log iText | ||
End Function</code> | End Function</code> |