Delegate Sub LogDelegate(ByVal message As String)
Public Sub AddLog(ByVal message As String)
If Forms("日志").Controls("txtlog").InvokeRequired Then
' 使用自定义委托来调用AddLog方法
Forms("日志").Controls("txtlog").Invoke(New LogDelegate(AddressOf AddLog), message)
Else
' 直接追加文本到txtLog
Forms("日志").Controls("txtlog").AppendText(message & Environment.NewLine)
End If
End Sub
AddLog(date.Now & "--------" & "加入日志信息!")
下面链接附件实例里的服务端项目,全局代码里有一个现成的日志类,不过是写文件的,自行参考
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=94825