cLogs 属性参考

📁 文件配置属性

LogDir

日志文件根目录。

Public LogDir As String

默认值: 空字符串（使用程序所在目录）

示例:

' 使用程序目录下的 logs 文件夹（默认）
Log.LogDir = ""

' 指定绝对路径
Log.LogDir = "C:\MyApp\Logs"

' 使用应用数据目录
Log.LogDir = Environ("APPDATA") & "\MyApp\Logs"

---

LogSubDir

日志子目录，用于区分业务模块。

Public LogSubDir As String

默认值: "system"

示例:

' 数据库模块日志
Log.LogSubDir = "database"
' 输出到: logs/database/...

' 网络模块日志
Log.LogSubDir = "network"
' 输出到: logs/network/...

' 用户操作日志
Log.LogSubDir = "user"
' 输出到: logs/user/...

---

LogFileNameRule

日志文件命名规则。

Public LogFileNameRule As EnumLogFileNameRule

枚举值:

值	常量	说明	示例路径
0	None	使用用户定义名	logs/system/vb.txt
1	ByMonth	按月分割	logs/system/2026/202601.txt
2	ByDay	按日分割	logs/system/2026/01/20260115.txt
3	byUser	完全用户定义	使用 LogFileNameByUer

示例:

' 按天分割（推荐，文件大小适中）
Log.LogFileNameRule = ByDay

' 按月分割（日志量小）
Log.LogFileNameRule = ByMonth

' 自定义文件名
Log.LogFileNameRule = byUser
Log.LogFileNameByUer = "custom\mylog.txt"

---

LogFileNameByUer

用户自定义日志文件名（完整相对路径）。

Public LogFileNameByUer As String

说明: 当 LogFileNameRule = byUser 或 None 时使用

示例:

Log.LogFileNameRule = byUser
Log.LogFileNameByUer = "custom\app.log"
' 输出到: logs/custom/app.log

Log.LogFileNameByUer = "2026\january\debug.txt"
' 输出到: logs/2026/january/debug.txt

---

📡 通道开关属性

SendToFormView

是否输出到窗体 ListBox。

Public SendToFormView As Boolean

配套属性:

• FormListBox - 目标 ListBox 对象
• FormListBoxMaxItem - 最大保留条目数

示例:

Set Log.FormListBox = Form1.List1
Log.FormListBoxMaxItem = 1000
Log.SendToFormView = True

Log.Data "这条会显示在 List1 中"

---

SendToDbgView

是否输出到 DbgView。

Public SendToDbgView As Boolean

示例:

Log.SendToDbgView = True
Log.Data "调试信息", "DEBUG"
' DbgView 中可见

---

SendToWebView

是否输出到网页远程调试。

Public SendToWebView As Boolean

配套属性: WebUserCode

示例:

Log.WebUserCode = "abc123"
Log.SendToWebView = True
Log.Data "远程日志"

---

🎚️ 日志控制属性

LogLevelControl

日志级别控制阈值。

Public LogLevelControl As EnumLogLevel

说明: 只记录大于等于此级别的日志

示例:

' 生产环境：只记录警告及以上
Log.LogLevelControl = LvWarn

' 调试环境：记录所有
Log.LogLevelControl = LvInfo

' 错误追踪：只记录错误
Log.LogLevelControl = LvError

---

🖥️ 窗体相关属性

FormListBox

目标 ListBox 控件。

Public FormListBox As VB.ListBox

示例:

' 绑定到窗体上的 ListBox
Set Log.FormListBox = Form1.List1

' 或主窗体的列表
Set Log.FormListBox = MainForm.LogList

---

FormListBoxMaxItem

ListBox 最大保留条目数。

Public FormListBoxMaxItem As Long

默认值: 999

说明: 超过此数量时自动移除最旧的条目

示例:

Log.FormListBoxMaxItem = 500   ' 保留最近 500 条
Log.FormListBoxMaxItem = 100   ' 保留最近 100 条

---

ShowLogsViewer

显示/隐藏内置日志查看器窗口。

Public Property Get ShowLogsViewer() As Boolean
Public Property Let ShowLogsViewer(Value As Boolean)

示例:

' 显示日志窗口
Log.ShowLogsViewer = True

' 隐藏日志窗口
Log.ShowLogsViewer = False

' 切换显示状态
Log.ShowLogsViewer = Not Log.ShowLogsViewer

---

🌐 远程调试属性

WebUserCode

网页远程调试用户识别码。

Public WebUserCode As String

获取方式:

1. 访问 http://log.vb6.pro
2. 获取随机字符串或设置自己的识别码
3. 填入此属性

示例:

Log.WebUserCode = "myapp-123"
Log.WebUserCode = "550e8400-e29b-41d4-a716-446655440000"

---

🔧 其他属性

CacheDatas

日志缓存集合（只读）。

Public CacheDatas As New Collection

说明: 调用 Save() 时写入文件并清空

---

DebugPring

调试打印开关。

Public DebugPring As Boolean

说明: 在 IDE 中输出到立即窗口

---

完整配置示例

Dim Log As New cLogs

' ========== 文件配置 ==========
Log.LogDir = Environ("APPDATA") & "\MyApp\Logs"
Log.LogSubDir = "database"
Log.LogFileNameRule = ByDay

' ========== 窗体输出配置 ==========
Set Log.FormListBox = MainForm.ListLog
Log.FormListBoxMaxItem = 1000
Log.SendToFormView = True

' ========== 远程调试配置 ==========
Log.WebUserCode = "myapp-debug-001"
Log.SendToWebView = True

' ========== 级别控制 ==========
Log.LogLevelControl = LvInfo  ' 记录所有级别

' ========== 记录日志 ==========
Log.Data "应用程序启动", "SYSTEM", LvInfo
Log.DataLine("日志系统初始化完成")
Log.Save

---

最后更新: 2026-05-17