1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
Public Function WriteLogMessage(Message As String, Optional TypeMessage As MessageTypeEnum = LOG_INFO) As String
Dim CodeTypeMessage As String
WriteLogMessage = Message
Select Case TypeMessage
Case LOG_WARNING: CodeTypeMessage = "WRN"
Case LOG_ERROR: CodeTypeMessage = "ERR"
Case LOG_INTERNAL: CodeTypeMessage = "INT"
Case LOG_BULLE: CodeTypeMessage = "BUL"
Case Else: CodeTypeMessage = "LOG"
End Select
If mTraitement = 0 Then
WriteLn "TSK", "Inconnue ???", 1
End If
WriteLn CodeTypeMessage, Message, 3
End Function |
Partager