User Tools

Site Tools


vba:classes:log4vba

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

Both sides previous revision Previous revision
Next revision
Previous revision
Last revision Both sides next revision
vba:classes:log4vba [05.05.2017 09:16:06]
yaslaw [info()]
vba:classes:log4vba [04.09.2019 11:46:47]
yaslaw
Line 1: Line 1:
 <​const>​ <​const>​
-    version=1.5.0 +    version=1.5.4 
-    vdate= ​02.05.2017+    vdate= ​04.09.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 41: Line 41:
  
 ==== Creatoren ==== ==== Creatoren ====
-Es gibt verschiedene Möglichkeiten ein DateTime ​zu initialisieren+Es gibt verschiedene Möglichkeiten ein Log4vba ​zu initialisieren
 ^ Methode ^ Rückgabetyp ^ Beschreibung ^ ^ Methode ^ Rückgabetyp ^ Beschreibung ^
 | [[#​instance]] | %%Log4vba%% | Erstellt eine neue Instance ​ | | [[#​instance]] | %%Log4vba%% | Erstellt eine neue Instance ​ |
Line 169: Line 169:
 ==== construct() ==== ==== construct() ====
 Iniitialisier ein bestehendes Objekt neu.  Iniitialisier ein bestehendes Objekt neu. 
-<​code>​object.construct([debugMode])+<​code>​object.construct([debugMode])</​code>​
 <code vb>'/​** <code vb>'/​**
 ' * Setzt Standardwerte für eine bestehende Instanz ' * Setzt Standardwerte für eine bestehende Instanz
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.txt · Last modified: 21.10.2019 12:10:41 by yaslaw