vba:classes:log4vba
Differences
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 10:55:40] yaslaw [Creatoren] |
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 228: | Line 228: | ||
| === Beispiel === | === Beispiel === | ||
| Ein Beipiel in Direktfenster | Ein Beipiel in Direktfenster | ||
| - | <code vb>Log4vba().debugMode = true | + | <code vb>Log4vba.debugMode = true |
| - | Log4vba().debugValue "Mein Array", array("Stefan", "Erb", "Winterthur") | + | Log4vba.debugValue "Mein Array", array("Stefan", "Erb", "Winterthur") |
| 25.11.2016 10:41:07 DEBUG Mein Array: ['Stefan','Erb','Winterthur']</code> | 25.11.2016 10:41:07 DEBUG Mein Array: ['Stefan','Erb','Winterthur']</code> | ||
| Die Ausgabe mit [[#lib_printr_exists]] aktiviert und eprPrintR für ltDebug. | Die Ausgabe mit [[#lib_printr_exists]] aktiviert und eprPrintR für ltDebug. | ||
| - | <code vb>Log4vba().debugMode = true | + | <code vb>Log4vba.debugMode = true |
| - | Log4vba().typeSettings(ltDebug) = eprConsole+eprPrintR 'Ist als Standard bereits gesetzt. Ist hier nur zur Veranschaulichung | + | Log4vba.typeSettings(ltDebug) = eprConsole+eprPrintR 'Ist als Standard bereits gesetzt. Ist hier nur zur Veranschaulichung |
| - | Log4vba().debugValue "Mein Array", array("Stefan", "Erb", "Winterthur") | + | Log4vba.debugValue "Mein Array", array("Stefan", "Erb", "Winterthur") |
| 25.11.2016 12:44:09 DEBUG Mein Array | 25.11.2016 12:44:09 DEBUG Mein Array | ||
| <Variant()> ( | <Variant()> ( | ||
| 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> | ||
vba/classes/log4vba.1520589340.txt.gz · Last modified: 09.03.2018 10:55:40 by yaslaw
Page Tools
Except where otherwise noted, content on this wiki is licensed under the following license: GNU Free Documentation License 1.3
