| VB Extension Tools HTML project report | |
| Project: CodeHelperCollection | Module: CTraceHelper |
| Module Type | Class module |
|---|---|
| File | C:\Code\EE-projects\units\vb\standard\src\TraceHelper.cls |
| Author | Ralf Kunsmann |
| Date | 2001 03 22 |
| Purpose |
Helper class for 'CTrace'. 'CTrace' objects need a public declared instance of 'CTraceHelper' which is named 'TraceHelper' To activate tracing set a command line argument '/p' or define the following entry in the registry: [HKEY_CURRENT_USER\Software\VB and VBA Program Settings\[App.Title]\Default] "Trace"="True". |
| Hint |
It is planed to extend tracing by alternative using NT pipe. Till know, we only made some declarations and method frames. |
| Requierements |
Public gsAppDataPath As String gsAppDataPath = NormalizePath(Environ$("APPDATA")) & "[CompanyName]\" & App.Title & "\" |
| Class_Initialize | |
| CheckTraceFile | |
| Count | |
| MainCount | |
| File | |
| Trace |
| Procedure 'Class_Initialize' | List of procedures |
| Scope/Type | Private Sub |
|---|---|
| Author | Ralf Kunsmann |
| Date | 2002 05 27 |
| Purpose |
Initialisierung der Protokollierung: Prüfen, ob irgend eine Einstellung getroffen wurde, die sagt, dass protokolliert werden soll. |
| Procedure 'CheckTraceFile' | List of procedures |
| Scope/Type | Private Sub |
|---|---|
| Author | Ralf Kunsmann |
| Date | 23.11.1999 |
| Purpose |
Wenn die Tracedatei eine bestimmte Größe überschritten hat, wird sie gesichert (umbenannt) woraufhin automatisch in eine neu Datei geschrieben wird. |
| Procedure 'Count' | List of procedures |
| Scope/Type | Public Property (Let/Get) |
|---|---|
| Code parameters | RHS As Long |
| Author | Ralf Kunsmann |
| Date | 2002 06 13 |
| Purpose | Number of currently running tracings. |
| Procedure 'MainCount' | List of procedures |
| Scope/Type | Public Property (Let/Get) |
|---|---|
| Code parameters | RHS As Long |
| Author | Ralf Kunsmann |
| Date | 2002 06 13 |
| Purpose | Number of tracings in current session. |
| Procedure 'File' | List of procedures |
| Scope/Type | Public Property (Get) |
|---|---|
| Code return value | String |
| Author | Ralf Kunsmann |
| Date | 2002 06 13 |
| Purpose | Name of the tracing file. |
| Result | String: File name. |
| Procedure 'Trace' | List of procedures |
| Scope/Type | Public Property (Get) |
|---|---|
| Code return value | Boolean |
| Author | Ralf Kunsmann |
| Date | 2002 06 13 |
| Purpose | Is tracing active. |
| Result | Boolean |