This code is a simple logging class using richtext.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 |
Const FORM_STATUSLOG="fmStatusLog" Public Class StatusLog Private issnCurrent As NotesSession Private idbCurrent As NotesDatabase Private idocLog As NotesDocument Private iitLog As NotesRichTextItem Private ilLines As Long Sub New Set issnCurrent=New NotesSession Set idbCurrent=issnCurrent.CurrentDatabase createLog End Sub Private Sub createLog() save Set idocLog=idbCurrent.CreateDocument idocLog.replaceItemValue "Form",FORM_STATUSLOG idocLog.replaceItemValue "StartTime",Now Set iitLog=idocLog.createRichTextItem("Body") ilLines=0 End Sub Sub Log(psMessage As String) If iLLines>255 Then createLog End If iitLog.appendText CStr(Now)+ ": " iitLog.Addtab 1 iitLog.appendText psMessage iitLog.Addnewline 1 ilLines=ilLines+1 save End Sub Sub save If Not idocLog Is Nothing Then idocLog.replaceItemValue "EndTime",Now idocLog.Save false,false End If End Sub Sub Delete save End Sub End Class |