添加IF逻辑字段的着色逻辑，添加IF与ElseIF节点新增时附加其子节点

UTS_Core/DebugLog/CsDataLog.vb

@@ -0,0 +1,94 @@
+Imports System.IO
+''' <summary>
+''' 日志类
+''' </summary>
+Public NotInheritable Class CsDataLog
+    ''' <summary>
+    ''' 日志类型
+    ''' </summary>
+    Public Enum LogType
+        ''' <summary>堆栈跟踪信息</summary>
+        Trace
+        ''' <summary>警告信息</summary>
+        Warning
+        ''' <summary>错误信息应该包含对象名、发生错误点所在的方法名称、具体错误信息</summary>
+        [Error]
+        ''' <summary>与数据库相关的信息</summary>
+        SQL
+    End Enum
+
+
+    ''' <summary>日志文件所在路径</summary>
+    Private Shared _logPath = String.Empty
+
+    ''' <summary>日志前缀说明信息</summary>
+    Private Shared _logFilePrefix = String.Empty
+
+    ''' <summary>
+    ''' 保存日志的文件夹
+    ''' </summary>
+    Public Shared Property LogPath As String
+        Get
+
+            If Equals(_logPath, String.Empty) Then
+                _logPath = Application.StartupPath
+            End If
+            Return _logPath
+        End Get
+        Set(ByVal value As String)
+            _logPath = value
+        End Set
+    End Property
+
+    ''' <summary>
+    ''' 日志文件前缀
+    ''' </summary>
+    Public Shared Property LogFilePrefix As String
+        Get
+            Return _logFilePrefix
+        End Get
+        Set(ByVal value As String)
+            _logFilePrefix = value
+        End Set
+    End Property
+
+    ''' <summary>
+    ''' 
+    ''' </summary>
+    ''' <param name="ex"></param>
+    Public Shared Sub WriteErrorLog(ex As Exception)
+        Dim msg As String = String.Empty
+        msg &= $"ErrorMessage:{ex.Message}{vbNewLine}"
+        msg &= $"ErrorTime:{Now}{vbNewLine}"
+        msg &= $"ErrorSource:{ex.Source}{vbNewLine}"
+        msg &= $"ErrorType:{ex.GetType}{vbNewLine}"
+        msg &= $"ErrorTargetSite:{ex.TargetSite}{vbNewLine}"
+        msg &= $"ErrorStackTrace:{ex.StackTrace}{vbNewLine}"
+        WriteLog(LogType.Error, msg)
+    End Sub
+
+    ''' <summary>
+    ''' 将信息入到日志
+    ''' </summary>
+    ''' <param name="logType">日志类型</param>
+    ''' <param name="msg">日志内容</param>
+    Public Shared Sub WriteLog(ByVal logType As String, ByVal msg As String)
+        Dim sw As StreamWriter = Nothing
+        Try
+            '同一天同一类日志以追加形式保存
+            sw = File.AppendText($"{LogPath}{Path.DirectorySeparatorChar}{LogFilePrefix}_{Date.Now:yyyyMMdd}.Log")
+            sw.WriteLine(logType & "#" & Date.Now.ToString("yyyy-MM-dd HH:mm:ss: ") & msg)
+        Catch
+        Finally
+            sw.Close()
+        End Try
+    End Sub
+
+    ''' <summary>
+    ''' 写日志
+    ''' </summary>
+    Public Shared Sub WriteLog(type As LogType, ByVal msg As String)
+        WriteLog(type.ToString(), msg)
+    End Sub
+
+End Class