cLogs 方法参考

📝 日志记录方法

Data

记录日志内容（默认属性，支持链式调用）。

Public Function Data(ByVal LogContent As String, Optional ByVal LogTitle As String, Optional LogLevel As EnumLogLevel = LvInfo) As cLogs

参数:

• LogContent - 日志内容
• LogTitle - 日志标题（可选）
• LogLevel - 日志级别（默认 LvInfo）

返回: 返回自身实例，支持链式调用

示例:

Dim Log As New cLogs

' 基础用法
Log.Data "系统启动"

' 带标题
Log.Data "连接成功", "数据库"

' 指定级别
Log.Data "内存不足", "系统", LvWarn

' 链式调用
Log.Data("第一条").Data("第二条").Data("第三条")

---

DataLine

记录带换行的日志内容。

Public Function DataLine(ByVal LogContent As String, Optional ByVal LogTitle As String, Optional LogLevel As EnumLogLevel = LvInfo) As cLogs

说明: 自动在内容末尾添加换行符 vbCrLf

示例:

Log.DataLine "错误详情:"
Log.DataLine "  文件: Form1.frm"
Log.DataLine "  行号: 156"
Log.Save

---

Save

将缓存的日志写入文件。

Public Function Save() As cLogs

说明:

• 将 CacheDatas 中缓存的所有日志写入文件
• 根据 LogFileNameRule 决定文件名
• 自动创建目录结构
• 清空缓存

示例:

' 批量记录后一次性保存
Log.Data "事件1"
Log.Data "事件2"
Log.Data "事件3"
Log.Save

' 链式写法
Log.Data("事件1").Data("事件2").Data("事件3").Save

---

🔄 通道输出方法

ToFormView

输出到窗体 ListBox 控件。

Public Function ToFormView(LogStr As String, Optional LogLevel As EnumLogLevel) As String

前置条件: 需设置 FormListBox 属性

示例:

' 设置目标 ListBox
Set Log.FormListBox = Form1.List1
Log.FormListBoxMaxItem = 500  ' 最大保留条目数

' 输出日志
Log.ToFormView "实时消息"

' 或在 Data 后自动触发（如果 SendToFormView=True）
Log.SendToFormView = True
Log.Data "自动输出到 ListBox"

---

ToDbgView

输出到 DbgView 工具。

Public Function ToDbgView(LogStr As String, Optional LogLevel As EnumLogLevel) As String

说明: 使用 Windows API OutputDebugString 输出

DbgView 过滤设置:

Include: VBMAN LOG DATA*

示例:

Log.SendToDbgView = True
Log.Data "调试信息", "DEBUG", LvDebugger
' DbgView 中会显示: VBMAN LOG DATA：::[时间] [DEBUGGER] DEBUG 调试信息

---

ToWebView

输出到网页远程调试。

Public Function ToWebView(LogStr As String, Optional LogLevel As EnumLogLevel) As String

前置条件: 需设置 WebUserCode

使用步骤:

1. 访问 http://log.vb6.pro 获取用户码
2. 设置 Log.WebUserCode = "your-code"
3. 开启 Log.SendToWebView = True
4. 在网页实时查看日志

示例:

Log.WebUserCode = "abc123"
Log.SendToWebView = True
Log.Data "远程调试信息"

---

🎛️ 控制方法

View

控制日志查看器窗口显示/隐藏（链式）。

Public Function View(Value As Boolean) As cLogs

示例:

Log.View(True).Data("显示窗口并记录").Save

---

HostApp

设置宿主应用程序对象（链式）。

Public Function HostApp(o As Object) As cLogs

说明: 用于获取程序路径，默认自动设置为 App 对象

示例:

Log.HostApp(App).Data("记录").Save

---

📊 日志级别

EnumLogLevel 枚举

级别	值	常量	说明
LvInfo	0	INFO	普通信息
LvWarn	1	WARN	警告信息
LvDanger	2	DANGER	危险信息
LvError	3	ERROR	错误信息
LvDebugger	4	DEBUGGER	调试信息
LvCustom	5	CUSTOM	自定义级别

日志级别控制

Dim Log As New cLogs

' 设置控制级别（只记录 WARN 及以上）
Log.LogLevelControl = LvWarn

Log.Data "普通信息", , LvInfo     ' 被忽略（0 < 1）
Log.Data "警告信息", , LvWarn     ' 被记录（1 >= 1）
Log.Data "错误信息", , LvError    ' 被记录（3 >= 1）
Log.Save

---

最后更新: 2026-05-17