0
我必须对程序进行日志记录,并且发现了类似的代码,但仍然不知道如何对其进行编码。 日志文件的代码:程序的记录(记录)事件
Option Explicit
Public Enum LogTypeEnum
ltInfo = 1
ltWarning = 2
ltError = 3
End Enum
Public Enum LogProgramDomainEnum
lpdRole = 1
lpdCinnosti = 2
End Enum
Private mWinAdLogCol As New EMWinAdLog.WinAdLogCol
Private mFrmLog As New EMWinAdLog.WinadLogFrm
Public Sub WinADLogInit(cfg As EMACTIVEXLib.EMCONFIG, ByVal ProgramID As Integer)
mWinAdLogCol.Init cfg, ProgramID
mFrmLog.AddLogType LogTypeEnum.ltInfo, "Info"
mFrmLog.AddLogType LogTypeEnum.ltWarning, "Warning"
mFrmLog.AddLogType LogTypeEnum.ltError, "Error"
mFrmLog.AddProgramDomain LogProgramDomainEnum.lpdRole, "Role"
mFrmLog.AddProgramDomain LogProgramDomainEnum.lpdCinnosti, "Activity"
mFrmLog.Init cfg, ProgramID
End Sub
Public Sub WriteLog(LogProgramDomain As LogProgramDomainEnum, LogType As
LogTypeEnum,Description1 As String, Optional Description2 As String = "")
mWinAdLogCol.xAdd LogProgramDomain, LogType, Description1, Description2
End Sub
Public Sub ShowLog()
mFrmLog.Show 0
End Sub
Public Sub Done()
mFrmLog.Done
Set mFrmLog = Nothing
Set mWinAdLogCol = Nothing
End Sub
和〔实施例我有一个事件:
Private Sub cmAdd_Click()
Load frmAddrolu
frmAddrolu.Show vbModal, Me
If frmAddrolu.Nazov <> "" Then
Dim LokRola As TRola
Set LokRola = Role.xAdd(frmAddrolu.Nazov)
ZobrazRoleToLst cmbRole, Role
SetCmbItem cmbRole, LokRola.RolaID
If cmbRole.ListIndex >= 0 Then
ZobrazSkupiny AllSkupiny, RolaProgramPristup, treeSkup, True
treeSkup_NodeClick treeSkup.SelectedItem
End If
End If
End Sub
我只是写例子,因为我不知道该怎么做。 感谢您的示例或解释或您的任何帮助。
没有人帮助的记录? – John
编写一个函数'Log(message as String)',它打开一个文件进行追加,写入日志消息,然后关闭文件。然后在你的代码中使用这个函数来将日志条目添加到你的日志文件中。如果您需要,可以使用更多功能对其进行增强。 – MicSim