kunguito
12-11-2009, 05:20 AM
In a class module called CErrorLogSender I have
Public Event ErrorLogSend(ByVal message As String)
Public Sub SendLog(message As String)
RaiseEvent ErrorLogSend(message)
End Sub
A process at some execution point uses the previous procedure to send error messages that i want to be captured by a form and write them on a list.
Public Sub MyProcedure()
Dim sender As CErrorLogSender
Set sender=new CErrorLogSender
...
Call sender.SendLog("Procedure failed")
...
End Sub
How do I do it?
Public Event ErrorLogSend(ByVal message As String)
Public Sub SendLog(message As String)
RaiseEvent ErrorLogSend(message)
End Sub
A process at some execution point uses the previous procedure to send error messages that i want to be captured by a form and write them on a list.
Public Sub MyProcedure()
Dim sender As CErrorLogSender
Set sender=new CErrorLogSender
...
Call sender.SendLog("Procedure failed")
...
End Sub
How do I do it?