| VB Extension Tools HTML project report | |
| Project: CodeHelperCollection | Module: CTrace |
| Module Type | Class module |
|---|---|
| File | C:\Code\EE-projects\units\vb\standard\src\Trace.cls |
| Author | Ralf Kunsmann |
| Date | 2001 03 22 |
| Purpose | Writing Trace information to file. |
| Requirements | CTraceHelper as public object variable 'TraceHelper' |
| Usage |
Declaration and code in any function, sub or methode, you like to. Trace information will be written to a file named [App.Title] & " Protokoll.log" in working directory. Dim Trace As CTrace Set Trace = New CTrace Trace.Action = [e.g. Name of function, sub or methode] Code in error handler Trace.ErrorInAction iErrNumber, sErrDescription |
| Class_Initialize | |
| Class_Terminate | |
| Action | |
| ErrorInAction |
| Procedure 'Class_Initialize' | List of procedures |
| Scope/Type | Private Sub |
|---|---|
| Author | Ralf Kunsmann |
| Date | 2002 06 13 |
| Purpose | If we have a current TraceHelper (CTraceHelper) object, get tracing data. |
| Procedure 'Class_Terminate' | List of procedures |
| Scope/Type | Private Sub |
|---|---|
| Author | Ralf Kunsmann |
| Date | 2002 06 13 |
| Purpose |
When object variable is Destroyed, write the trace data (as collected) to file, if tracing is active. |
| Procedure 'Action' | List of procedures |
| Scope/Type | Public Property (Let) |
|---|---|
| Code parameters | sAction As String |
| Author | Ralf Kunsmann |
| Date | 2002 06 13 |
| Purpose |
An action is to be traced. Save tracing action string and time stamp, if tracing is activ. |
| In parameters | String: Action to be traced. |
| Procedure 'ErrorInAction' | List of procedures |
| Scope/Type | Public Sub |
|---|---|
| Code parameters |
iError As Long sError As String |
| Author | Ralf Kunsmann |
| Date | 2002 06 13 |
| Purpose |
An error occurd in current action. Save error data (number and description) if tracing is activ. |
| In parameters |
Long: Error number String: Error description |